Add draft of a function to draw computation times

[morpheus.git] / reports / printTime.R

diff --git a/reports/printTime.R b/reports/printTime.R
new file mode 100644 (file)
index 0000000..3e83a12
--- /dev/null
+++ b/reports/printTime.R
@@ -0,0 +1,10 @@
+load("timings.RData")
+for (d in c(2,5,10))
+{
+  cat("\n")
+  for (n in 4:6)
+  {
+    cat(mean(sapply(1:100, function(i) tm[[i]]$fm[d,n])))
+    cat(" ")
+  }
+}