
Title
bias(boot, theta)
A vector of bootstrap estimates of theta
the sample estimate of theta
z0 the bias parameter for BCa CI
# NOT RUN {
X<-data.frame(rnorm(1000))
theta<-mean(X)
boot<-NaiveBoot(X)
boot<-lapply(boot, mean)
boot<-do.call(rbind, boot)
bias(boot, theta)
# }
Run the code above in your browser using DataLab