# NOT RUN {
sel_fo <- SelectedFormula(
sale_amount ~ sale_year + built + style + construction,
sale_amount ~ sale_year + base_size + bedrooms + basement,
data = ICHomes
)
model_fit <- fit(sel_fo, model = GLMModel)
(selected_model <- as.MLModel(model_fit))
plot(selected_model)
# }
Run the code above in your browser using DataLab