R/calc_boundaries.R

In Lucy-333/sprtt: Sequential Probability Ratio Tests Toolbox

calc_boundaries <- function(power, alpha, log = FALSE){
  A <- power / alpha
  B <- (1 - power) / (1 - alpha)

  if (log == FALSE) {
    list(
      A = A,
      B = B
    )
  } else{
    list(
      A = log(A),
      B = log(B)
    )
  }
}