{
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)),
))
}
print(toprint, digits=2)
- #}
+ }
}
}