updates

drizopoulos · Mar 24, 2024 · 8d5b7b4 · 8d5b7b4
1 parent de00779
commit 8d5b7b4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,9 +1,9 @@
 Package: GLMMadaptive
 Title: Generalized Linear Mixed Models using Adaptive Gaussian Quadrature
-Version: 0.9-3
+Version: 0.9-4
 Authors@R: person("Dimitris", "Rizopoulos", email = "[email protected]",
                   role = c("aut", "cre"), comment = c(ORCID = '0000-0001-9397-0900'))
-Date: 2024-03-21
+Date: 2024-03-24
 Maintainer: Dimitris Rizopoulos <[email protected]>
 BugReports: https://github.com/drizopoulos/GLMMadaptive/issues
 Description: Fits generalized linear mixed models for a single grouping factor under

diff --git a/R/Functions.R b/R/Functions.R
@@ -592,7 +592,7 @@ cr_marg_probs <- function (eta, direction = c("forward", "backward")) {
     } else {
         cumsum_1_minus_p <- apply(plogis(eta[, seq(ncoefs, 2), drop = FALSE], log.p = TRUE, 
                                            lower.tail = FALSE), 1L, cumsum)
-        if (is.matrix(cumsum_1_minus_p)) cumsum_1_minus_p <- t(cumsum_1_minus_p)
+        cumsum_1_minus_p <- if (is.matrix(cumsum_1_minus_p)) t(cumsum_1_minus_p) else as.matrix(cumsum_1_minus_p)
         probs <- exp(plogis(eta, log.p = TRUE) + 
                          cbind(cumsum_1_minus_p[, seq(ncoefs - 1, 1)], 0))
         cbind(1 - rowSums(probs), probs)