powered by
Calculates the upper boundaries for efficacy at each look time
alphaspend(levels, t, int = rep(500, length(t)), tol = 0.005)
numeric
The cumulative alpha spending at each look time
Normalized look times
The number of intervals the solution space is partitioned into
Tolerance of the solution using uniroot
f<- function(t) 0.025*t^4 t<-c(0.33,0.67,1) cum_probs<-f(t) alphaspend(levels=cum_probs,t,int=rep(500, length(t)),tol=0.005)
Run the code above in your browser using DataLab