Table for coxph.object with model option: TRUE - allow "frailty" or "cluster" model

cox2.display(cox.obj.withmodel, dec = 2)

Arguments

cox.obj.withmodel

coxph.object with model option: TRUE

dec

Decimal point, Default: 2

Value

Table, cluster/frailty info, metrics, caption

Details

GEE like - cluster, Mixed effect model like - frailty

Examples

library(survival);data(lung) fit1 <- coxph(Surv(time, status) ~ ph.ecog + age + cluster(inst), data = lung, model = TRUE) fit2 <- coxph(Surv(time, status) ~ ph.ecog + age + frailty(inst), data = lung, model = TRUE) cox2.display(fit1)
#> $table #> crude HR(95%CI) crude P value adj. HR(95%CI) adj. P value #> ph.ecog "1.61 (1.25,2.08)" "< 0.001" "1.56 (1.22,2)" "< 0.001" #> age "1.02 (1.01,1.03)" "0.007" "1.01 (1,1.02)" "0.085" #> #> $ranef #> [,1] [,2] [,3] [,4] #> cluster NA NA NA NA #> inst NA NA NA NA #> #> $metric #> [,1] [,2] [,3] [,4] #> <NA> NA NA NA NA #> No. of observations 226 NA NA NA #> No. of events 163 NA NA NA #> #> $caption #> [1] "Marginal Cox model on time ('time') to event ('status') - Group inst" #>
cox2.display(fit2)
#> $table #> crude HR(95%CI) crude P value adj. HR(95%CI) adj. P value #> ph.ecog "1.64 (1.31,2.05)" "< 0.001" "1.58 (1.26,1.99)" "< 0.001" #> age "1.02 (1,1.04)" "0.041" "1.01 (0.99,1.03)" "0.225" #> #> $ranef #> [,1] [,2] [,3] [,4] #> frailty NA NA NA NA #> inst NA NA NA NA #> #> $metric #> [,1] [,2] [,3] [,4] #> <NA> NA NA NA NA #> No. of observations 226 NA NA NA #> No. of events 163 NA NA NA #> #> $caption #> [1] "Frailty Cox model on time ('time') to event ('status') - Group inst" #>