# NOT RUN {
n <- 3000
theta <- rnorm(n, sd = 3)
ses <- sqrt(rgamma(n, shape = 10, rate = 1))
XX <- theta + ses*rnorm(n)
dd <- cbind(XX,ses)
rv <- rvalues(dd, family = gaussian, prior = "conjugate")
rvb <- rvalueBoot(rv, R = 10)
summary(rvb$rval.repmat[512,])
# }
Run the code above in your browser using DataLab