fix msAbund tests

biodiverse · Oct 13, 2023 · 246e117 · 246e117
1 parent eceface
commit 246e117
Show file tree

Hide file tree

Showing 4 changed files with 128 additions and 99 deletions.
diff --git a/tests/testthat/test-msAbund.R b/tests/testthat/test-msAbund.R
@@ -575,8 +575,8 @@ y <- dat$y
 X <- dat$X
 coords <- dat$coords
 
-covs <- list(cov.1 = X[, 1, 2], 
-	     cov.2 = X[, 1, 3])
+covs <- list(cov.1 = apply(X[, , 2], 1, mean, na.rm = TRUE),
+	     cov.2 = apply(X[, , 3], 1, mean, na.rm = TRUE))
 
 data.list <- list(y = y, 
                   covs = covs)