Amend paul-buerkner#1459: check_response = TRUE has no effect if `r…

…eq_vars = character()` Thus, we need to set `req_vars` to the response variable.
fweber144 · Feb 15, 2023 · 44f4283 · 44f4283
1 parent c793d9f
commit 44f4283
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/projpred.R b/R/projpred.R
@@ -241,7 +241,7 @@ get_refmodel.brmsfit <- function(object, newdata = NULL, resp = NULL,
   if (extract_y) {
     data <- current_data(
       object, newdata, resp = resp, check_response = TRUE,
-      allow_new_levels = TRUE, req_vars = character()
+      allow_new_levels = TRUE, req_vars = all.vars(bterms$respform)
     )
     y <- model.response(model.frame(bterms$respform, data, na.action = na.pass))
     y <- unname(y)