R/the_paired_2x2_table_CIs_ratio.R
the_paired_2x2_table_CIs_ratio.RdThe Paired 2x2 table CIs ratio
the_paired_2x2_table_CIs_ratio(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_ratio(bentur_2009)
#>
#> Estimate of pi_1+: 2/21 = 0.095
#> Estimate of pi_+1: 8/21 = 0.381
#> Estimate of phi = pi_1+/pi_+1: 0.250
#>
#> Interval method 95% CI log width
#> --------------------------------------------------------------------
#> Wald 0.0625 to 0.9996 2.772
#> Tang asymptotic score 0.0653 to 0.9069 2.631
#> Bonett-Price hybrid Wilson score 0.0677 to 0.9227 2.612
#> Bonett-Price hybrid Wilson score w/CC 0.0418 to 1.1271 3.294
#> MOVER Wilson score 0.0686 to 0.8695 2.539
#> --------------------------------------------------------------------
#> CC = continuity correction
# Complete response before and after consolidation therapy
# (Cavo et al., 2012)
the_paired_2x2_table_CIs_ratio(cavo_2012)
#>
#> Estimate of pi_1+: 65/161 = 0.404
#> Estimate of pi_+1: 75/161 = 0.466
#> Estimate of phi = pi_1+/pi_+1: 0.867
#>
#> Interval method 95% CI log width
#> --------------------------------------------------------------------
#> Wald 0.7597 to 0.9886 0.263
#> Tang asymptotic score 0.7476 to 0.9876 0.278
#> Bonett-Price hybrid Wilson score 0.7579 to 0.9910 0.268
#> Bonett-Price hybrid Wilson score w/CC 0.7475 to 1.0058 0.297
#> MOVER Wilson score 0.7592 to 0.9866 0.262
#> --------------------------------------------------------------------
#> CC = continuity correction