updates

.Rproj.user/shared/notebooks/paths

@@ -1,9 +1,11 @@
 C:/R/etc/Rprofile.site="E8B48AB4"
+C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/./R/Functions.R="36C863FD"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/.Rbuildignore="F29CFAE5"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/.github/workflows/R-CMD-check.yml="642A6941"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/DESCRIPTION="85068334"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/NAMESPACE="06DFA126"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/NEWS.md="0394AC2D"
+C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/R/Functions.R="04BBF6A8"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/R/mixed_model.R="8C72A7FD"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/README.md="CC30862A"
 C:/Users/Dimitris/Documents/PackagesGitHub/GLMMadaptive/_pkgdown.yml="A5519C8D"

DESCRIPTION

@@ -1,9 +1,9 @@
 Package: GLMMadaptive
 Title: Generalized Linear Mixed Models using Adaptive Gaussian Quadrature
-Version: 0.9-1
+Version: 0.9-2
 Authors@R: person("Dimitris", "Rizopoulos", email = "[email protected]",
                   role = c("aut", "cre"), comment = c(ORCID = '0000-0001-9397-0900'))
-Date: 2023-10-17
+Date: 2024-01-16
 Maintainer: Dimitris Rizopoulos <[email protected]>
 BugReports: https://github.com/drizopoulos/GLMMadaptive/issues
 Description: Fits generalized linear mixed models for a single grouping factor under

R/methods.R

@@ -849,7 +849,7 @@ create_lists <- function (object, newdata) {
     } else {
         X_zi <- offset_zi <- Z_zi <- NULL
     }
-    y_lis <- if (is.matrix(y)) lapply(id_unq, function (i) y[id == i, ]) else split(y, id)
+    y_lis <- if (is.matrix(y)) lapply(id_unq, function (i) y[id == i, , drop = FALSE]) else split(y, id)
     N <- if (NCOL(y) == 2) y[, 1] + y[, 2]
     N_lis <- if (NCOL(y) == 2) split(N, id)
     X_lis <- lapply(id_unq, function (i) X[id == i, , drop = FALSE])

man/GLMMadaptive.Rd

@@ -17,8 +17,8 @@ Gaussian quadrature rule.
 \tabular{ll}{
 Package: \tab GLMMadaptive\cr
 Type: \tab Package\cr
-Version: \tab 0.9-1\cr
-Date: \tab 2023-10-17\cr
+Version: \tab 0.9-2\cr
+Date: \tab 2024-01-16\cr
 License: \tab GPL (>=3)\cr
 }