# NOT RUN {
library(BayesLN)
# Load the dataset included in the package
data("laminators")
data_pred_new <- data.frame(Worker = unique(laminators$Worker))
Mod_est<-LN_hierarchical(formula_lme = log_Y~(1|Worker),
data_lme = laminators,
data_pred = data_pred_new,
functional = c("Subject","Marginal"),
order_moment = 2, nsamp = 50000, burnin = 10000)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab