# NOT RUN {
spmd.code = "
library(pbdDMAT, quiet = TRUE)
init.grid()
# don't do this in production code
x <- matrix(1:9, 3)
x <- as.ddmatrix(x)
y <- svd(A)
y
finalize()
"
pbdMPI::execmpi(spmd.code = spmd.code, nranks = 2L)
# }
Run the code above in your browser using DataLab