The default alpha spending function
alphaspendf(t)
t
The normalized look times
numeric
t<-c(0.33,0.67,1) alphas<-alphaspendf(t) ## The function is currently defined as function (t) 0.025 * t^4