data("bodyfat_Aeolus")
#Initial model with zeta = 2
fit1 <- PLreg(percentfat ~ days + sex + year, data = bodyfat_Aeolus,
family = "PE", zeta = 2)
summary(fit1)
# Choosing the best value for zeta
# \donttest{
extra.parameter(fit1, lower = 1, upper = 4, grid = 15)# }
Run the code above in your browser using DataLab