## One-sided using O'Brien-Fleming Type
alphaByUseFunction(1,3,0.05,0,1,c(0.33,0.66,1.0))
## Two-sided using Power family: $\alpha t^{\phi}$ with $\phi$==1
alphaByUseFunction(3,3,0.05,1,2,c(0.33,0.66,1.0))
Run the code above in your browser using DataLab