split sample means

demos/sample_means/slurm_generate_plots.R

@@ -0,0 +1,11 @@
+arg = commandArgs(TRUE)
+
+samples = rep(NA, 100000)
+for ( i in 1:100000 ){ samples[i] = mean(rexp(40, 0.2)) }
+
+jpeg(paste('plots/', arg, '.jpg', sep=""))
+
+hist(samples, main="", prob=T)
+lines(density(samples), col="darkblue", lwd=3)
+
+dev.off()

demos/sample_means/slurm_submit_generate_plots.sh

@@ -1,8 +1,8 @@
 #!/bin/bash
-#SBATCH --ntasks=5
+#SBATCH --ntasks=6
 
 cd $SLURM_SUBMIT_DIR
 
 mkdir plots/
 
-mpiexec -n 1 R --vanilla -f generate_plots.R
+R --vanilla -f slurm_generate_plots.R --args "plot$SLURM_ARRAY_TASK_ID"