# NOT RUN {
# Corresponds to scenario 5 in Table 2 from Leifer, Troendle, et al. (2019).
n <- 4600
rateC <- 0.0445
hrA <- 0.80
hrB <- 0.80
hrAB <- 0.72
mincens <- 4.0
maxcens <- 8.4
fac2x2design(n, rateC, hrA, hrB, hrAB, mincens, maxcens, dig = 2, alpha = 0.05, niter = 1)
# $powerA
# [1] 0.7182932
# $powerB
# [1] 0.7182932
# $power23.13
# [1] 0.9290062
# $power13.13.13
# [1] 0.9302078
# $power12.12
# [1] 0.9411688
# $events
# [1] 954.8738
# $evtprob
# probC probA probB probAB
# 0.2446365 0.2012540 0.2012540 0.1831806
# }
Run the code above in your browser using DataLab