print() helper function for print.greensIndex() functionR/greensIndex.R
print.greensIndex.Rdprint() helper function for print.greensIndex() function
# S3 method for greensIndex print(x, ...)
| x | Object resulting from applying the |
|---|---|
| ... | Additional |
Printed output of greensIndex() function
# Apply Green's Index using anthropometric data from a SMART survey in Sudan # (flag.ex01) svy <- flag.ex01 svy$flag <- 0 svy$flag <- ifelse(!is.na(svy$haz) & (svy$haz < -6 | svy$haz > 6), svy$flag + 1, svy$flag) svy$flag <- ifelse(!is.na(svy$whz) & (svy$whz < -5 | svy$whz > 5), svy$flag + 2, svy$flag) svy$flag <- ifelse(!is.na(svy$waz) & (svy$waz < -6 | svy$waz > 5), svy$flag + 4, svy$flag) svy <- svy[svy$flag == 0, ] svy$stunted <- ifelse(svy$haz < -2, 1, 2) gi <- greensIndex(data = svy, psu = "psu", case = "stunted") print(gi)#> #> Green's Index of Dispersion #> #> Green's Index (GI) of Dispersion = -0.0013, 95% CI = (-0.0021, -0.0004) #> Maximum uniformity for this data = -0.0035 #> p-value = 0.0030 #>