if (FALSE) {
set_new_model("shallow_learning_model")
set_model_mode("shallow_learning_model", "partition")
set_model_engine("shallow_learning_model", "partition", "stats")
set_fit(
model = "shallow_learning_model",
mode = "partition",
eng = "stats",
value = list(
interface = "formula",
protect = c("formula", "data"),
func = c(pkg = "stats", fun = "lm"),
defaults = list()
)
)
get_fit("shallow_learning_model")
get_fit("shallow_learning_model")$value
}
Run the code above in your browser using DataLab