LabeljsGeeglm: Apply label information to geeglm.display object using label data

Apply label information to geeglm.display object using label data

Usage

LabeljsGeeglm(obj, ref)

Arguments

obj

geeglm.display object

ref

Label data made by mk.lev function

Value

geeglm.display object with label information

Details

DETAILS

Examples

library(geepack)
library(jstable)
data(dietox)
dietox$Cu <- as.factor(dietox$Cu)
gee01 <- geeglm(Weight ~ Time + Cu,
  id = Pig, data = dietox,
  family = gaussian, corstr = "ex"
)
g1 <- geeglm.display(gee01)
LabeljsGeeglm(g1, ref = mk.lev(dietox))
#> $table
#>                crude coeff(95%CI)   crude P value adj. coeff(95%CI)  
#> Time           "6.94 (6.79,7.1)"    "< 0.001"     "6.94 (6.79,7.1)"  
#> Cu: ref.=Cu000 NA                   NA            NA                 
#>                "-0.59 (-3.73,2.54)" "0.711"       "-0.84 (-3.9,2.23)"
#>                "1.9 (-1.87,5.66)"   "0.324"       "1.77 (-1.9,5.45)" 
#>                adj. P value
#> Time           "< 0.001"   
#> Cu: ref.=Cu000 NA          
#>                "0.593"     
#>                "0.345"     
#> 
#> $metric
#>                                  crude coeff(95%CI) crude P value
#>                                  NA                 NA           
#> Estimated correlation parameters "0.775"            NA           
#> No. of clusters                  "72"               NA           
#> No. of observations              "861"              NA           
#>                                  adj. coeff(95%CI) adj. P value
#>                                  NA                NA          
#> Estimated correlation parameters NA                NA          
#> No. of clusters                  NA                NA          
#> No. of observations              NA                NA          
#> 
#> $caption
#> [1] "GEE(gaussian) predicting Weight by Time, Cu - Group Pig"
#>