### Save code in a file "demo.r" and run in 4 processors by
### > mpirun -np 4 Rscript demo.r
### Setup mpi environment.
library(Rmpi)
library(pmclust)
invisible(mpi.comm.dup(0, 1))
### Generate an example data.
COMM.RANK <- mpi.comm.rank()
catmpi("I am ", COMM.RANK, "\n", COMM.SHOW = c(1, 2))
### Quit Rmpi.
mpi.quit()Run the code above in your browser using DataLab