Make mixed effect model results from coxme.object (coxme package)
coxme.display(coxme.obj, dec = 2)
coxme.obj | coxme.object |
---|---|
dec | Decimal point, Default: 2 |
Fixed effect table, random effect, metrics, caption
DETAILS
library(coxme) fit <- coxme(Surv(time, status) ~ ph.ecog + age + (1 | inst), lung) coxme.display(fit)#> $table #> crude HR(95%CI) crude P value adj. HR(95%CI) adj. P value #> ph.ecog "1.66 (1.32,2.09)" "< 0.001" "1.61 (1.27,2.03)" "< 0.001" #> age "1.02 (1,1.04)" "0.043" "1.01 (0.99,1.03)" "0.227" #> #> $ranef #> [,1] [,2] [,3] [,4] #> Random effect NA NA NA NA #> inst(Intercept) 0.02 NA NA NA #> #> $metric #> [,1] [,2] [,3] [,4] #> <NA> NA NA NA NA #> No. of groups(inst) 18 NA NA NA #> No. of observations 226 NA NA NA #> No. of events 163 NA NA NA #> #> $caption #> [1] "Mixed effects Cox model on time ('time') to event ('status') - Group inst" #>