# Example 1: power calculation
(design1 <- getDesignOneRateExact(
n = 525, lambdaH0 = 0.049, lambda = 0.012,
D = 0.5, alpha = 0.025))
# Example 2: sample size calculation
(design2 <- getDesignOneRateExact(
beta = 0.2, lambdaH0 = 0.2, lambda = 0.3,
D = 1, alpha = 0.05))
Run the code above in your browser using DataLab