# Generating data
data_fam <- model_fam_data(fam_name = "BE")
# Fit model
library("gamlss")
beta_model <- gamlss(BE ~ norm2 + binomial1,
data = data_fam, family = BE())
distreg.vis:::fam_obtainer(model = beta_model)
Run the code above in your browser using DataLab