# NOT RUN {
# a simple MCMCglmm model
if (require(MCMCglmm)) {
data(PlodiaPO)
m <- MCMCglmm(PO ~ 1, random = ~ FSfamily, data = PlodiaPO, verbose=FALSE, pr=TRUE)
}
# extract the parameter names
paramNamesMCMCglmm(m)
# }
Run the code above in your browser using DataLab