# NOT RUN {
# Save code in a file "demo.r" and run with 2 processors by
# > mpiexec -np 2 Rscript demo.r
suppressPackageStartupMessages(library(pbdDMAT, quiet=T))
init.grid()
comm.set.seed(seed=1234, diff=TRUE)
x <- ddmatrix("rnorm", 5, 5, bldim=2)
test <- comm.any(is.na(x))
comm.print(test)
x[1,1] <- NA
test <- comm.any(is.na(x))
comm.print(test)
finalize()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab