if (requireNamespace("rpart", quietly = TRUE)) {
# Data simulation
set.seed(1)
simul <- SimulateRegression(pk = 50)
# Running the LASSO
mycart <- CART(
xdata = simul$xdata,
ydata = simul$ydata,
family = "gaussian"
)
head(mycart$selected)
}
Run the code above in your browser using DataLab