# \donttest{
require(PDXpower)
PowTab <- PowFrailty(ctl.med.surv = 2.4,
tx.med.surv = 7.2, nu = 1, tau2 = 0.1, sim = 20,
censor = TRUE, Ct = 12, n = 3, m = 4, ncores = 1)
plotpower(PowTab, ylim = c(0, 1))
# }
Run the code above in your browser using DataLab