# NOT RUN {
# Corresponds to scenario 5 in Table 2 from Leifer, Troendle, et al. (2020).
rateC <- 0.0445
hrA <- 0.80
hrB <- 0.80
hrAB <- 0.72
mincens <- 4.0
maxcens <- 8.4
evtprob <- eventProb(rateC, hrA, hrB, hrAB, mincens, maxcens)
avgprob <- evtprob$avgprob
probAB_C <- evtprob$probAB_C
probA_C <- evtprob$probA_C
dig <- 2
alpha <- 0.05
corAa <- 1/sqrt(2)
corAab <- 1/sqrt(2)
coraab <- 1/2
critEA3 <- crit2x2(corAa, corAab, coraab, dig, alpha)$critEA3
n <- 4600
powerEA3(n, hrA, hrB, hrAB, avgprob, probA_C, probAB_C,
critEA3, dig, cormat12 = matrix(c(1, sqrt(0.5), sqrt(0.5), 1), byrow = TRUE,
nrow = 2), niter = 1, abseps = 1e-03)
# $powerEA3overallA
# [1] 0.5861992
# $powerEA3simpleA
# [1] 0.5817954
# $powerAB
# [1] 0.9071236
# $powerEA3anyA
# [1] 0.7060777
# }
Run the code above in your browser using DataLab