data(simDat3)
mod1 <- cslseModel(Y ~ Z | ~ X1 * X2, data = simDat3)
mod2 <- selSLSE(mod1, "BLSE", "AIC")
## We changed the knots to the BLSE-BIC selection
## already stored in the model object
update(mod2, "BLSE", "BIC")
## We recover the original set of knots
update(mod2, "None")
Run the code above in your browser using DataLab