From 7613f4dee17de4ec1c244adfe3c9a3e5df3ede08 Mon Sep 17 00:00:00 2001
From: Benjamin Auder <benjamin.auder@somewhere>
Date: Wed, 15 Jan 2020 09:33:48 +0100
Subject: [PATCH] Add draft of a function to draw computation times

---
 reports/printTime.R | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 reports/printTime.R

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(" ")
+  }
+}
-- 
2.44.0