if (FALSE) ## Simulate data.
set.seed(123)
d <- GAMart()
## Estimate model.
f <- num ~ x1 + x2 + x3 + s2(x1,bs="sr") + s2(x2,bs="sr") + s2(x3,bs="sr")
b <- bamlss(f, data = d, optimizer = boost, sampler = FALSE)
plot(b)
Run the code above in your browser using DataLab