From 44f42839d662e2e5ceb45afd370ebb0e2f5857e9 Mon Sep 17 00:00:00 2001 From: fweber144 Date: Wed, 15 Feb 2023 21:37:38 +0100 Subject: [PATCH] Amend #1459: `check_response = TRUE` has no effect if `req_vars = character()` Thus, we need to set `req_vars` to the response variable. --- R/projpred.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/projpred.R b/R/projpred.R index 435826f7c..331ab6737 100644 --- 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)