y <- rnorm(30) # Some data: 30 draws from standard normal.
x <- rvboot(y) # A random vector of length 30 (each component has the same distribution)
print(mean(x)) # Bootstrap estimate of the mean.
print(sd.rv(x)) # Bootstrap estimate of the sd.
Run the code above in your browser using DataLab