Merge pull request #599 from vkhodygo/r4.3_fix

FIX: resolve issue of element-wise comparison introduced in 4.3.0
amices · Nov 20, 2023 · 3abe393 · 3abe393
2 parents 538f614 + 063fb6d
commit 3abe393
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
     }