Reporting scripts + TODO in OptimParams

[morpheus.git] / reports / printResults.R

diff --git a/reports/printResults.R b/reports/printResults.R
index 2c3dbee..a6cac05 100644 (file)
--- a/reports/printResults.R
+++ b/reports/printResults.R
@@ -13,13 +13,12 @@ pprms <- function(link)
 {
   for (n in c("5000", "10000", "100000", "500000", "1000000"))
   {
-    method  =1
-    #for (method in 1:2)
-    #{
+    for (method in 1:2)
+    {
       toprint <- c()
       for (d in c(2,5,10))
       {
-        name <- paste0("res_", n, "_", d, "_", link, "_6,3,1.RData")
+        name <- paste0("res_", n, "_", d, "_", link, ".RData")
         params <- prms(name, method)
         toprint <- c(toprint, c(
           sum(abs(params[[1]] - params[[4]]$p)),
@@ -28,6 +27,6 @@ pprms <- function(link)
         ))
       }
       print(toprint, digits=2)
-    #}
+    }
   }
 }