if (FALSE) ## Simulate data.
d <- GAMart()
## Model only including covariate x1.
b1 <- bamlss(num ~ s(x1), data = d)
## Now, also including x2 and x2.
b2 <- bamlss(num ~ s(x1) + s(x2) + s(x3), data = d)
## Compare using the CRPS score.
CRPS(b1)
CRPS(b2)
Run the code above in your browser using DataLab