## Not run: ------------------------------------
# d <- GAMart()
# b1 <- bamlss(num ~ s(x1), data = d)
# b2 <- bamlss(num ~ s(x1) + s(x2), data = d)
# DIC(b1, b2)
## ---------------------------------------------
Run the code above in your browser using DataLab