# NOT RUN {
## Generate some data.
d <- GAMart()
## Create a "bamlss.frame".
bf <- bamlss.frame(num ~ s(x1) + s(x2), data = d)
## Extract the smooth construct.
sc <- smooth.construct(bf)
str(sc)
## Also possible with formulas.
f <- bamlss.formula(list(
num ~ s(x1) + te(lon,lat),
sigma ~ s(x2)
), family = "gaussian")
sc <- smooth.construct(f, data = d)
str(sc)
# }
Run the code above in your browser using DataLab