updates

DESCRIPTION

@@ -1,15 +1,15 @@
 Package: JMbayes2
 Type: Package
 Title: Extended Joint Models for Longitudinal and Time-to-Event Data
-Version: 0.4-6
+Version: 0.4-7
 Authors@R: c(person("Dimitris", "Rizopoulos", email = "[email protected]",
                   role = c("aut", "cre"), comment = c(ORCID = '0000-0001-9397-0900')),
            person("Grigorios", "Papageorgiou", email = "[email protected]",
                   role = "aut"),
            person("Pedro", "Miranda Afonso", email = "[email protected]",
                   role = "aut"))
 Maintainer: Dimitris Rizopoulos <[email protected]>
-Date: 2023-09-10
+Date: 2023-10-27
 BugReports: https://github.com/drizopoulos/JMbayes2/issues
 Description: Fit joint models for longitudinal and time-to-event data under the Bayesian approach. Multiple longitudinal outcomes of mixed type (continuous/categorical) and multiple event times (competing risks and multi-state processes) are accommodated. Rizopoulos (2012, ISBN:9781439872864).
 Suggests: lattice, knitr, rmarkdown, pkgdown

Development/jm/test_jm.R

@@ -330,5 +330,16 @@ length(jm2$mcmc$bs_gammas)
 length(jm3$mcmc$bs_gammas)
 
 
+##############################################################################
+
+data("pbc2", "pbc2.id", package = "JMbayes2")
+pbc2$id_char <- as.character(pbc2$id)
+pbc2$id_num <- as.numeric(pbc2$id_char)
+# pbc2[1:100, c("id", "id_char", "id_num")]
+# lapply(pbc2[, c("id", "id_char", "id_num")], summary)
+
+pbc2.id$id_char <- as.character(pbc2.id$id)
+pbc2.id$id_num <- as.numeric(pbc2.id$id_char)
+
 
 

R/jm.R

@@ -65,6 +65,7 @@ jm <- function (Surv_object, Mixed_objects, time_var, recurrent = FALSE,
     }
     idVar <- id_names[1L]
     idL <- dataL[[idVar]]
+    idL <- factor(idL, levels = unique(idL))
     nY <- length(unique(idL))
     # order data by idL and time_var
     if (is.null(dataL[[time_var]])) {

man/JMbayes2.Rd

@@ -15,8 +15,8 @@ Fit joint models for longitudinal and time-to-event data under the Bayesian appr
 \tabular{ll}{
 Package: \tab JMbayes2\cr
 Type: \tab Package\cr
-Version: \tab 0.4-5\cr
-Date: \tab 2023-06-23\cr
+Version: \tab 0.4-7\cr
+Date: \tab 2023-10-27\cr
 License: \tab GPL (>=3)\cr
 }