R/calc_seq_ttest_non_centrality_parameter.R

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

calc_seq_ttest_non_centrality_parameter <- function(seq_ttest_arguments) {
  x <- seq_ttest_arguments@x
  y <- seq_ttest_arguments@y
  d <- seq_ttest_arguments@d

  if (seq_ttest_arguments@one_sample == TRUE ||
      seq_ttest_arguments@paired == TRUE
  ) {
    d * sqrt(length(x))
  } else{
    d / sqrt(1 / length(x) + 1 / length(y))
  }
}