# NOT RUN {
# Dataset
data(airpollution)
# output will be a qbld class object
output <- model.qbld(fixed_formula = wheeze~smoking+I(age^2)-1, data = airpollution, id="id",
random_formula = ~1, p=0.25, nsim=1000, method="block", burn=0,
summarize=FALSE, verbose=FALSE)
# summary
summary(output, epsilon=0.1)
# plots
plot(output)
# GIG sampler
rgig(n = 1, lambda = 0.5, a = 1, b = 2)
# ALD sampler
raldmix(n = 10, mu = 5, sigma = 10, p = 0.5)
# }
Run the code above in your browser using DataLab