powered by
calculates the probability for efficacy given the Z value
curtailDesign(theObject, current0)
numeric
The sequential design object
The current Z value
design1<-sequential.design() design1<-calcBoundaries(design1) design1<-setCurrentLook(design1,1) prob1<-curtailDesign(design1,1.5)
Run the code above in your browser using DataLab