ml <- REGModelList$new(
data = mtcars,
y = "mpg",
x = c("factor(cyl)", colnames(mtcars)[3:5]),
covars = c(colnames(mtcars)[8:9], "factor(gear)")
)
ml
ml$print()
ml$plot_forest()
ml$build(f = "gaussian")
if (FALSE) {
ml$build(f = "gaussian", parallel = TRUE)
}
ml$print()
ml$result
ml$forest_data
ml$plot_forest()
Run the code above in your browser using DataLab