# NOT RUN {
lm_model_idea <- linear_reg() %>% set_engine("lm")
has_multi_predict(lm_model_idea)
lm_model_fit <- fit(lm_model_idea, mpg ~ ., data = mtcars)
has_multi_predict(lm_model_fit)
multi_predict_args(lm_model_fit)
library(kknn)
knn_fit <-
nearest_neighbor(mode = "regression", neighbors = 5) %>%
set_engine("kknn") %>%
fit(mpg ~ ., mtcars)
multi_predict_args(knn_fit)
multi_predict(knn_fit, mtcars[1, -1], neighbors = 1:4)$.pred
# }
Run the code above in your browser using DataLab