Nothing
# sequential bootstrapping
source('nuclearBootstrapInit.R')
R <- 20000
stime <- system.time(boot(nuke.data, nuke.fun, R=R, m=1, fit.pred=new.fit, x.pred=new.data))
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.