Merge pull request #1522 from fweber144/revert_ellipsis_projpred

Revert some ellipses from #1521
paul-buerkner · Jul 4, 2023 · 2f00a5c · 2f00a5c
2 parents 1f211db + 9276fe9
commit 2f00a5c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/projpred.R b/R/projpred.R
@@ -197,7 +197,7 @@ get_refmodel.brmsfit <- function(object, newdata = NULL, resp = NULL,
   }
   data <- current_data(
     object, newdata, resp = resp, check_response = TRUE,
-    allow_new_levels = TRUE, ...
+    allow_new_levels = TRUE
   )
   attr(data, "terms") <- NULL
   args <- nlist(
@@ -250,7 +250,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 = all.vars(bterms$respform), ...
+      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)