Nothing
test01 <- function(){
mB <- c(1,2,1,3,4,10)
MO <- c("Full", "noYS", "noYZ", "noYSZS", "noS", "noZ",
"noY", "justS", "justZ", "noSZ", "noYSZ")
testouts <- foreach(i = 1:length(mB)) %do% {
MO[mB[i]]
}
testouts2 <- foreach(i = 1:length(mB)) %dopar% {
MO[mB[i]]
}
checkEquals(testouts, testouts2)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.