R/calc_seq_ttest_boundaries.R

In sprtt: Sequential Probability Ratio Tests: Using t-Statistic

calc_seq_ttest_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)
    )
  }
}