Hi,

When running the following code one would expect to see high rates of (early) efficacy. A true p of 0.90, and trying to beat 0.20. However the results indicate complete futulity:

Should https://github.com/Genentech/phase1b/blob/main/R/ocPredprob.R line 61 have TRUE instead of FALSE?

results <- ocPredprob(
decision1 = TRUE,
nnE = c(20, 30, 40),
nnF = c(20, 30, 40),
truep = 0.90,
phiU = 0.75,
phiL = 0.20,
tT = 0.70,
p0 = 0.20,
parE = c(0.2, 0.8),
sim = 10000
)