# NOT RUN {
spmd.code = "
library(pbdDMAT, quiet = TRUE)
init.grid()
x <- ddmatrix('rnorm', nrow=3, ncol=3), bldim=2
cv <- cov(x)
cv
finalize()
"
pbdMPI::execmpi(spmd.code = spmd.code, nranks = 2L)
# }
Run the code above in your browser using DataLab