|
|
@ -3,7 +3,7 @@ if ( !is.loaded("mpi_initialize") ){
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
number_of_plots = 5
|
|
|
|
number_of_plots = 5
|
|
|
|
nodes = mpi.universe.size()
|
|
|
|
nodes = mpi.universe.size()-1
|
|
|
|
mpi.spawn.Rslaves(nslaves=nodes)
|
|
|
|
mpi.spawn.Rslaves(nslaves=nodes)
|
|
|
|
|
|
|
|
|
|
|
|
generate_plot <- function(filename){
|
|
|
|
generate_plot <- function(filename){
|
|
|
|