fix sample means example

5 years ago · 5617f1698d
parent cf04b6a15f
commit 5617f1698d
1 changed files with 1 additions and 1 deletions
--- a/demos/sample_means/generate_plots.R
+++ b/demos/sample_means/generate_plots.R
@ -3,7 +3,7 @@ if ( !is.loaded("mpi_initialize") ){
 }

 number_of_plots = 5
-nodes = mpi.universe.size()
+nodes = mpi.universe.size()-1
 mpi.spawn.Rslaves(nslaves=nodes)

 generate_plot <- function(filename){