forgot one rep.int()

mayer79 · mayer79 · commit 81265dbb07c9 · 2023-12-01T10:12:57.000+01:00
diff --git a/R/permshap.R b/R/permshap.R
@@ -90,7 +90,7 @@ permshap.default <- function(object, X, bg_X, pred_fun = stats::predict,
   precalc <- list(
     Z = Z,
     Z_code = rowpaste(Z), 
-    bg_X_rep = rep_rows(bg_X, rep(seq_len(bg_n), times = m_exact))
+    bg_X_rep = rep_rows(bg_X, rep.int(seq_len(bg_n), m_exact))
   )
   
   if (m_exact * bg_n > 2e5) {

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ permshap.default <- function(object, X, bg_X, pred_fun = stats::predict,`
`90`	`90`	`precalc <- list(`
`91`	`91`	`Z = Z,`
`92`	`92`	`Z_code = rowpaste(Z),`
`93`		`- bg_X_rep = rep_rows(bg_X, rep(seq_len(bg_n), times = m_exact))`
	`93`	`+ bg_X_rep = rep_rows(bg_X, rep.int(seq_len(bg_n), m_exact))`
`94`	`94`	`)`
`95`	`95`
`96`	`96`	`if (m_exact * bg_n > 2e5) {`