Nothing
bbootstrap <-
function(xx, B = 100) {
tmp <- rep(0, B)
b <- 1
while(b <= B) {
tmp[b] <- median(sample(xx, replace = TRUE))
b <- b + 1
}
return(sqrt(mean((tmp - mean(tmp))^2)))
}
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.