## Create a "bamlss.frame"
set.seed(123)
d <- GAMart()
bf <- bamlss.frame(num ~ s(x1) + te(lon,lat), data = d)
## Create list of all parameters from "bamlss.frame".
p <- parameters(bf, list = TRUE)
str(p)
## Not run: ------------------------------------
# ## Estimate model.
# f <- list(num ~ s(x1) + te(lon,lat), sigma ~ s(x1))
# b <- bamlss(f, data = d, sampler = FALSE)
#
# ## Extract estimated parameters.
# parameters(b)
# parameters(b, list = TRUE)
## ---------------------------------------------
Run the code above in your browser using DataLab