inst/examples/sleigh/sequentialBootstrap.R

# 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')

Try the nws package in your browser

Any scripts or data that you put into this service are public.

nws documentation built on May 2, 2019, 8:51 a.m.