powered by
Ho: \(|log(OR)| \ge margin \)
Ha: |log(OR)| < margin
RelativeRisk.Equivalence(alpha, beta, or, k, pt, pc, margin)
significance level
power = 1-beta
or=pt(1-pc)/pc(1-pt)
k=nT/nC
the probability of observing an outcome of interest for a patient treatment by a test treatment
the probability of observing an outcome of interest for a patient treatment by a control
the superiority or non-inferiority margin
Chow SC, Shao J, Wang H. Sample Size Calculation in Clinical Research. New York: Marcel Dekker, 2003
# NOT RUN { Example.4.6.4<-RelativeRisk.Equivalence(0.05,0.2,2,1,0.25,0.25,.5) Example.4.6.4 # }
Run the code above in your browser using DataLab