powered by
Ho: OR=1
Ha: not equal to 1
RelativeRisk.Equality(alpha, beta, or, k, pt, pc)
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
Chow SC, Shao J, Wang H. Sample Size Calculation in Clinical Research. New York: Marcel Dekker, 2003
# NOT RUN { Example.4.6.4<-RelativeRisk.Equality(0.05,0.2,2,1,0.4,0.25) Example.4.6.4 # }
Run the code above in your browser using DataLab