Merge pull request #65 from sl-eeper/master

add c index in cox2.display

Author: jinseob2kim

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: jstable
 Title: Create Tables from Different Types of Regression
-Version: 1.3.8
-Date: 2024-11-28
+Version: 1.3.9
+Date: 2024-02-05
 Authors@R: c(person("Jinseob", "Kim", email = "[email protected]", role = c("aut", "cre"),  comment = c(ORCID = "0000-0002-9403-605X")),
              person("Zarathu", role = c("cph", "fnd")),
              person("Yoonkyoung","Jeon", role = c("aut")),

NEWS.md

@@ -1,3 +1,6 @@
+# jstable 1.3.9
+* Update: Add C-Index in cox2.display
+
 # jstable 1.3.8
 * Update: Detect mixed model and show corresponding values in  'TableSubgroupGLM', 'TableSubgroupMultiGLM'
 

R/cox2.R

@@ -247,8 +247,12 @@ cox2.display <- function(cox.obj.withmodel, dec = 2, msm = NULL) {
   no.obs <- model$n
   no.event <- model$nevent
   aic <- stats::AIC(model)
-  metric.mat <- cbind(c(NA, no.obs, no.event, aic), matrix(NA, 4, ncol(fix.all) - 1))
-  rownames(metric.mat) <- c(NA, "No. of observations", "No. of events", "AIC")
+  ccd<-model$concordance
+  concordance_value <- round(ccd["concordance"],3)
+  std_value <- round(ccd["std"],3)
+  c_index<-paste0(concordance_value, '(', std_value, ')')
+  metric.mat <- cbind(c(NA, no.obs, no.event, aic, c_index ), matrix(NA, 5, ncol(fix.all) - 1))
+  rownames(metric.mat) <- c(NA, "No. of observations", "No. of events", "AIC", "C-Index")
 
   ## Integrated ll
   # ll = model$loglik[2]

jstable.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 12e42a5d-6633-4bd9-bd4a-a6bf42b4d15d
 
 RestoreWorkspace: Default
 SaveWorkspace: Default