projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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"))
{
{
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))
{
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)),
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)
))
}
print(toprint, digits=2)
-
#
}
+ }
}
}
}
}