Displaying 1 result from an estimated 1 matches for "needk".
Did you mean:
need
2008 May 02
0
Adaptive design code
...0.69/muhat) + sum( 1 - exp(-0.69*(t + B - r)/muhat) )
exp.k<-delta.k + k0
# Calculate number of necessary events to get desired conditional power (formula on p. 3745)
zeps<-qnorm(1-eps)
zpow<-qnorm(cond.pow)
theta <- min(max(0,log(meda.hat/med0.hat)),log(med.a/med.0))
needK<-(2*(zpow + zeps)/theta)^2 + k0
### If conditional power at interim look is acceptable, let trial finish and compute final test statistic
### after the exp.k death
if(exp.k > needK){
# final death is exp.k (stop trial after the exp.k event)
k <- exp.k
#...