powered by
Return single sample binary predictive probability
return.ss.bin.int.req( a.trt = 1, b.trt = 1, Delta.lrv = 0.2, Delta.tv = 0.35, tau.tv = 0.1, tau.lrv = 0.8, tau.ng = 0.65, interim.n.t = c(0:39), final.n.t = 40, p.success = 0.5, x.ng = NULL, x.go = NULL, go.thresh = 0.8, ng.thresh = 0.8 )
prior alpha parameter
prior beta parameter
TPP Lower Reference Value aka Min TPP
TPP Target Value aka Base TPP
threshold associated with Base TPP
threshold associated with Min TPP
threshold associated with No-Go
number of trials at interim
number of trials at final
probability of success
responses for go; leave null for standard rule
go threshold for predictive probability at interim
no-go threshold for predictive probability at interim
holdit <- return.ss.bin.int.req() head(holdit)
Run the code above in your browser using DataLab