From: Benjamin Auder <benjamin.auder@somewhere>
Date: Wed, 15 Jan 2020 08:33:48 +0000 (+0100)
Subject: Add draft of a function to draw computation times
X-Git-Url: https://git.auder.net/%7B%7B%20asset%28%27mixstore/images/pieces/scripts/R.css?a=commitdiff_plain;h=7613f4dee17de4ec1c244adfe3c9a3e5df3ede08;p=morpheus.git

Add draft of a function to draw computation times
---

diff --git a/reports/printTime.R b/reports/printTime.R
new file mode 100644
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(" ")
+  }
+}