# Superiority power #
power.paired.test(p12=0.15, p21=0.45, N=40, method="UAM")
if (FALSE) {
# Ensure that the ExactData R package is available before running the CSM test.
if (requireNamespace("ExactData", quietly = TRUE)) {
power.paired.test(p12=0.15, p21=0.45, N=40, method="CSM")
}
}
# Non-inferiority power #
power.paired.test(p12=0.30, p21=0.30, N=80, method="UAM",
alternative="less", delta=0.2)
Run the code above in your browser using DataLab