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)