## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse=TRUE, comment="#>")

## -----------------------------------------------------------------------------
library(PropTestR)
r <- compare_2prop(82, 100, 75, 100, method=c("wald","score","fisher","miettinen_nurminen"))
print(r)

## -----------------------------------------------------------------------------
farrington_manning(82, 100, 85, 100, margin=-0.10, alternative="greater")

## -----------------------------------------------------------------------------
equivalence_2prop(80, 100, 78, 100, margin=0.10, conf.level=0.90)