Example of Bootstrapping(reshaping)

n: number of observations B: repeat the two steps B times X: Sample

#B <- 10000
#n<- 300
#resamples <- matrix(sample(x,n * B,replace = TRUE),B, n)
#medians <- apply(resamples, 1, median)
#sd(medians)
#quantile(medians, c(.025, .975))
#hist(medians)