Fix K = 1 bug

NERC-CEH · Sep 25, 2024 · 13e32b7 · 13e32b7
1 parent b909bc8
commit 13e32b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sim_data_funs.R b/R/sim_data_funs.R
@@ -465,7 +465,7 @@ jsdm_sim_data <- function(N, S, D = NULL, K = 0L, family, method = c("gllvm", "m
   }
   if (isTRUE(species_intercept)) {
     if (K > 0) {
-      x <- x[, 2:ncol(x)]
+      x <- x[, 2:ncol(x), drop = FALSE]
     } else {
       x <- NULL
     }