# NOT RUN {
## Simulate some data.
d <- GAMart()
## Model formula.
f <- list(
num ~ s(x1) + s(x2) + s(x3),
sigma ~ s(x1) + s(x2) + s(x3)
)
## Estimate model with MCMC.
b <- bamlss(f, data = d)
## Run the check, note that all variables
## for sigma should have no effect.
smooth_check(b)
# }
Run the code above in your browser using DataLab