Trial simulation for Aza+Rigo confirmatory PIII

library(gsDesign)
n.I <- nBinomial(p1 = 0.38, p2 = 0.64, beta = 0.1, alpha = 0.025)
y <- gsDesign(k=2, n.fix=n.I, timing=.5, alpha=.025, beta=.1)
print(gsProbability(theta=y$delta, d=y))