powered by
This function converts cumulative alpha levels into normal critical boundaries.
alpha2boundary( alphas, t, initIntvl = c(1, 2 * stats::qnorm(p = alphas[1], lower.tail = FALSE)) )
a vector of critical boundaries
a list of cumulative errors from some error spending functions
a vector of information times
a pair of numbers as the lower and upper bounds of critical boundaries, used for stats::uniroot function
stats::uniroot
Jiangtao Gou
The current version of ldbounds::ldBounds may not work for Hwang-Shih-DeCani boundaries.
ldbounds::ldBounds
library(ldbounds) tvec <- c(0.5,1) result <- ldbounds::ldBounds(t=tvec, iuse=1, alpha=0.05, sides=1) print(result$upper.bounds) bd <- alpha2boundary(alphas = result$exit.pr, t=tvec) print(bd)
Run the code above in your browser using DataLab