Add draft of a function to draw computation times
[morpheus.git] / reports / printTime.R
CommitLineData
7613f4de
BA
1load("timings.RData")
2for (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}