# NOT RUN {
rateC <- 0.0445
hrA <- 0.80
hrB <- 0.80
hrAB <- 0.72
mincens <- 4.0
maxcens <- 8.4
avgprob <- eventProb(rateC, hrA, hrB, hrAB, mincens, maxcens)$avgprob
n <- 4600
strLgrkPower(n, hrA, hrB, hrAB, avgprob, dig = 2, alpha = 0.05)
# $mean
# [1] -2.537779
# $power
# [1] 0.7182932
# $nevent
# [1] 954.8738
# }
Run the code above in your browser using DataLab