R/the_paired_2x2_table_CIs_difference.R
the_paired_2x2_table_CIs_difference.RdThe Paired 2x2 table CIs difference
the_paired_2x2_table_CIs_difference(n, alpha = 0.05)NULL. This function should be called for its printed output.
# Airway hyper-responsiveness before and after stem cell transplantation
# (Bentur et al., 2009)
the_paired_2x2_table_CIs_difference(bentur_2009)
#> Estimate of pi_1+: 2/21 = 0.095
#> Estimate of pi_+1: 8/21 = 0.381
#> Estimate of delta = pi_1+ - pi_+1: -0.286
#>
#> Interval method 95% CI width
#> --------------------------------------------------------------
#> Wald -0.5197 to -0.0517 0.468
#> Wald w/continuity correction -0.5293 to -0.0422 0.487
#> Wald w/Agresti-Min adjustment -0.4932 to -0.0285 0.465
#> Wald w/Bonett-Price adjustment -0.5084 to -0.0134 0.495
#> Newcombe square-and-add -0.5069 to -0.0256 0.481
#> Tango asymptotic score -0.5172 to -0.0260 0.491
#> --------------------------------------------------------------
# Complete response before and after consolidation therapy
# (Cavo et al., 2012)
the_paired_2x2_table_CIs_difference(cavo_2012)
#> Estimate of pi_1+: 65/161 = 0.404
#> Estimate of pi_+1: 75/161 = 0.466
#> Estimate of delta = pi_1+ - pi_+1: -0.062
#>
#> Interval method 95% CI width
#> --------------------------------------------------------------
#> Wald -0.1184 to -0.0058 0.113
#> Wald w/continuity correction -0.1186 to -0.0057 0.113
#> Wald w/Agresti-Min adjustment -0.1182 to -0.0045 0.114
#> Wald w/Bonett-Price adjustment -0.1195 to -0.0032 0.116
#> Newcombe square-and-add -0.1186 to -0.0046 0.114
#> Tango asymptotic score -0.1240 to -0.0054 0.119
#> --------------------------------------------------------------