Nothing
# parallel bootstrapping
init <- function() {
nwsDir <- .path.package('nws', quiet=TRUE)
source(file.path(nwsDir, 'examples', 'sleigh', 'nuclearBootstrapInit.R'))
}
task <- function(y)
boot(nuke.data, nuke.fun, R=y, m=1, fit.pred=new.fit, x.pred=new.data)
library(nws)
s <- sleigh()
R <- 20000
numChunks <- 200
chunkSize <- R / numChunks
t <- eachWorker(s, init)
stime <- system.time(eachElem(s, task, rep(chunkSize, numChunks)))
cat('Elapsed time:', stime[3], '\n')
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.