suppressPackageStartupMessages(library(pbdMPI, quietly=TRUE))
sleeptime <- 1
time <- system.time({
if (comm.rank()==0)
Sys.sleep(sleeptime)
barrier()
})[3]
test <- abs(time - sleeptime) <= .1 # sleep isn't really guaranteed
test <- comm.all(test)
comm.print(test)
finalize()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.