if (requireNamespace("gamlss", quietly = TRUE) &&
requireNamespace("gamlss.data", quietly = TRUE)) {
data(abdom, package="gamlss.data")
if (FALSE) {
mod <- gamlss(y~pb(x), sigma.fo=~pb(x), family=BCT,
data=abdom, method=mixed(1,20))
}
## load stored object
mod <- readRDS(system.file("extdata", "gamlss_example.rds",
package="broom.mixed"))
tidy(mod)
}
Run the code above in your browser using DataLab