remove times keyword

ModelOriented · Dec 1, 2023 · cc86da5 · cc86da5
1 parent 7326218
commit cc86da5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/pd_raw.R b/R/pd_raw.R
@@ -64,7 +64,7 @@ ice_raw <- function(object, v, X, grid, pred_fun = stats::predict,
   n_grid <- NROW(grid)
 
   # Explode everything to n * n_grid rows
-  X_pred <- rep_rows(X, rep.int(seq_len(n), times = n_grid))
+  X_pred <- rep_rows(X, rep.int(seq_len(n), n_grid))
   if (D1) {
     grid_pred <- rep(grid, each = n)
   } else {

diff --git a/R/perm_importance.R b/R/perm_importance.R
@@ -124,7 +124,7 @@ perm_importance.default <- function(object, X, y, v = NULL,
 
   # Stack y and X m times
   if (m_rep > 1L) {
-    ind <- rep.int(seq_len(n), times = m_rep)
+    ind <- rep.int(seq_len(n), m_rep)
     X <- rep_rows(X, ind)
     if (is.vector(y) || is.factor(y)) {
       y <- y[ind]