# 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