# NOT RUN {
data(sbp, package = "pimeta")
set.seed(20161102)
# }
# NOT RUN {
pimeta::bootPI(sbp$y, sbp$sigmak, B = 50000)
# }
# NOT RUN {
# $muhat
# [1] -0.3340597
# $lbpi
# [1] -0.8768976
# $ubpi
# [1] 0.2248231
# }
Run the code above in your browser using DataLab