## 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