LabeljsRanef: Apply label information to jstable random effect object using label data

Source: R/label.R

Apply label information to ranef object of jstable using label data

LabeljsRanef(obj.ranef, ref)

Arguments

obj.ranef

ranef of lmer.display, coxme.display, cox2.display
ref

Label data made by mk.lev function

Value

ranef of lmer.display, coxme.display, cox2.display with label information

Details

DETAILS

Examples

library(coxme)
fit <- coxme(Surv(time, status) ~ sex + ph.ecog + ph.karno + (1 | inst) + (1 | sex), lung)
fit.table <- coxme.display(fit)
#> Warning: Using formula(x) is deprecated when x is a character vector of length > 1.
#>   Consider formula(paste(x, collapse = " ")) instead.
#> Warning: Using formula(x) is deprecated when x is a character vector of length > 1.
#>   Consider formula(paste(x, collapse = " ")) instead.
#> Warning: Using formula(x) is deprecated when x is a character vector of length > 1.
#>   Consider formula(paste(x, collapse = " ")) instead.
lung.label <- mk.lev(lung)
LabeljsTable(fit.table$table, ref = lung.label)
#>          crude HR(95%CI)    crude P value adj. HR(95%CI)     adj. P value
#> sex      "0.59 (0.42,0.82)" "0.002"       "0.56 (0.4,0.79)"  "< 0.001"   
#> ph.ecog  "1.66 (1.32,2.09)" "< 0.001"     "1.96 (1.38,2.8)"  "< 0.001"   
#> ph.karno "0.98 (0.97,1)"    "0.005"       "1.01 (0.99,1.03)" "0.241"     
LabeljsRanef(fit.table$ranef, ref = lung.label)
#>                 [,1] [,2] [,3] [,4]
#> Random effect     NA   NA   NA   NA
#> inst(Intercept) 0.02   NA   NA   NA
#> sex(Intercept)  0.00   NA   NA   NA