# NOT RUN {
## Generate some data.
d <- GAMart()
## Increasing: constr = 1.
## Decreasing: constr = 2.
b <- bamlss(num ~ s2(x1,bs="ms",xt=list(constr=2)),
data = d, sampler = FALSE, optimizer = boost)
plot(b)
# }
Run the code above in your browser using DataLab