# For 90 percent power (pow), a call to gsearlyModel provides a feasible design
fp <- c(0.0000,0.0010,0.0250)
tn <- c(0.2400,0.7200,0.9750)
modeldesign <- gsearlyModel(rmodel="dilin", trecruit=36, s=3, tfu=c(3,6,12),
tinterims=c(18,30), pow=0.9, vphi=0.5, m=2,
cmodel="uniform", sd=20, rho=0.5, theta=8, fp=fp, tn=tn)
# Simulate data from this model
simdata <- gsearlySimulate(mod=modeldesign, nsim=10, full=FALSE)
# Model parameters
simdata$parameters
# Change correlation model
newsimdata <- gsearlySimulate(mod=modeldesign, nsim=10,
cmodel="exponential", rho=0.75, full=FALSE)
# Model parameters
newsimdata$parameters
Run the code above in your browser using DataLab