# Save code in a file "demo.r" and run with 2 processors by
# > mpiexec -np 2 Rscript demo.r
### Initial
library(pbdMPI, quietly = TRUE)
init()
if(comm.size() != 2){
comm.cat("2 processors are requried.\n", quiet = TRUE)
finalize()
}
### Examples
comm.warning("test warning.\n")
comm.warnings()
comm.stop("test stop.\n")
### Finish
finalize()
Run the code above in your browser using DataLab