LabelepiDisplay: Apply label information to epiDisplay object using label data

Apply label information to epiDisplay.object using label data

LabelepiDisplay(epiDisplay.obj, label = F, ref)

Arguments

epiDisplay.obj	epiDisplay.object or glmshow.object
label	Apply label information, Default: F
ref	Label data made by mk.lev function

Value

epiDisplay.object with label information

Details

DETAILS

Examples

fit <- glm(Sepal.Length ~ Sepal.Width + Species, data = iris)
fit.table <- glmshow.display(fit)
iris.label <- mk.lev(iris)
LabelepiDisplay(fit.table, label = TRUE, ref = iris.label)
#>                      crude coeff.(95%CI)  crude P value adj. coeff.(95%CI)
#> Sepal.Width          "-0.22 (-0.53,0.08)" "0.152"       "0.8 (0.6,1.01)"  
#> Species: ref.=setosa NA                   NA            NA                
#>    versicolor        "0.93 (0.73,1.13)"   "< 0.001"     "1.46 (1.24,1.68)"
#>    virginica         "1.58 (1.38,1.78)"   "< 0.001"     "1.95 (1.75,2.14)"
#>                      ""                   ""            ""                
#> No. of observations  "150"                ""            ""                
#> R-squared            "0.7259"             ""            ""                
#> AIC value            "183.9366"           ""            ""                
#>                      adj. P value sig 
#> Sepal.Width          "< 0.001"    "**"
#> Species: ref.=setosa NA           NA  
#>    versicolor        "< 0.001"    "**"
#>    virginica         "< 0.001"    "**"
#>                      ""           NA  
#> No. of observations  ""           NA  
#> R-squared            ""           NA  
#> AIC value            ""           NA