## get the operating characteristics for single-agent trials
oc <- get.oc.pop(target=0.3,n=15,cohortsize=3,titration=TRUE,
cutoff=2.5,cutoff_e=5/24,
skeleton=c(0.3,0.4,0.5,0.6),n.trial=1000,
risk.cutoff=0.8,earlyterm=TRUE,start=1, seed=123)
summary(oc) # summarize design operating characteristics
plot(oc)
Run the code above in your browser using DataLab