suppressPackageStartupMessages(library(pbdMPI, quietly=TRUE))
testval <- length(allgather(comm.rank()))
trueval <- comm.size()
if (comm.rank()==0) testval == trueval
finalize()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.