Nothing
`bootstrap.wa` <- function(object, n.boot = 1000,
verbose = TRUE, ...) {
retval <- predict(object, object$orig.x, CV = "bootstrap",
n.boot = n.boot, verbose = verbose)
.call <- match.call()
.call[[1]] <- as.name("bootstrap")
retval$call = .call
class(retval) <- "bootstrap.wa"
return(retval)
}
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.