## Not run: ------------------------------------
# ## Generate some data.
# d <- GAMart()
#
# ## Model formula.
# f <- list(
# num ~ s(x1) + s(x2),
# sigma ~ s(x3) + te(lon,lat)
# )
#
# ## Estimate model.
# b <- bamlss(f, data = d)
#
# ## Print the summary.
# print(summary(b))
## ---------------------------------------------
Run the code above in your browser using DataLab