reports/printTime.R

   1 load("timings.RData")
   2 for (d in c(2,5,10))
   3 {
   4   cat("\n")
   5   for (n in 4:6)
   6   {
   7     cat(mean(sapply(1:100, function(i) tm[[i]]$fm[d,n])))
   8     cat(" ")
   9   }
  10 }