# NOT RUN {
## Generate some data.
d <- GAMart()
## Model formula.
f <- list(
log(pnum) ~ s(x1) + log(x2),
sigma ~ s(x3)
)
## Estimate model.
b <- bamlss(f, data = d)
## Extract the model frame.
head(model.frame(b))
# }
Run the code above in your browser using DataCamp Workspace