FIX: resolve issue of element-wise comparison introduced in 4.3.0

amices · Nov 1, 2023 · 063fb6d · 063fb6d
1 parent 538f614
commit 063fb6d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/predictorMatrix.R b/R/predictorMatrix.R
@@ -140,7 +140,10 @@ edit.predictorMatrix <- function(predictorMatrix,
                                  user.visitSequence,
                                  maxit) {
   # edit predictorMatrix to a monotone pattern
-  if (maxit == 1L && !is.null(user.visitSequence) && user.visitSequence == "monotone") {
+  if (maxit == 1L &&
+      !is.null(user.visitSequence) &&
+      length(user.visitSequence) == 1 &&
+      user.visitSequence == "monotone") {
     for (i in 1L:length(visitSequence)) {
       predictorMatrix[visitSequence[i], visitSequence[i:length(visitSequence)]] <- 0
     }