# NOT RUN {
# Corresponds to scenario 4 in Table 2 from Leifer, Troendle, et al. (2020).
rateC <- 0.0445 # one-year C group event rate
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
dig <- 2
alpha <- 0.05
corAa <- 1/sqrt(2)
corAab <- 1/sqrt(2)
coraab <- 1/2
critvals <- crit2x2(corAa, corAab, coraab, dig, alpha)
critPA2A <- critvals$critPA2A
critPA2ab <- critvals$critPA2ab
n <- 4600
powerPA2(n, hrA, hrB, hrAB, avgprob, probAB_C,
critPA2A, critPA2ab, dig)
# $powerPA2overallA
# [1] 0.6582819
# $powerPA2simpleAB
# [1] 0.9197286
# }
Run the code above in your browser using DataLab