# NOT RUN {
model_fit <- fit(sale_amount ~ ., data = ICHomes,
model = SelectedModel(GBMModel, GLMNetModel, SVMRadialModel))
(selected_model <- as.MLModel(model_fit))
summary(selected_model)
# }
Run the code above in your browser using DataLab