diff --git a/chin_sim_image/scripts/sim_run.R b/chin_sim_image/scripts/sim_run.R index ad00b01c6a04c9ca1aff3ca8d247b830c6136eaf..13a0fd4d5691ae0d3e54f57e4d0fed92a9b9520b 100644 --- a/chin_sim_image/scripts/sim_run.R +++ b/chin_sim_image/scripts/sim_run.R @@ -126,7 +126,7 @@ nimblechains <- 9 # nimblechains <- 2 nset <- 150 -nsim <- 100 +nsim <- 1000 theseefficiencies <- "Max efficiency 0.1" arrResults <- array(data=NA, dim=c(length(nset)*2, nsim, 7, 300)) @@ -1226,7 +1226,7 @@ for (i in nset) { ##----Save simulation results/print to console - if(j %% 5 == 0) { + if(j %% 100 == 0) { filename <- paste0('output/R_ss',thiscounter,'_',j,'.RData', collapse='') save(arrResults, file=filename)