R/get_seq_decision.R

In MeikeSteinhilber/sprtt: Sequential Probability Ratio Tests Toolbox

get_seq_decision <- function(likelihood_ratio, boundaries){
  if (likelihood_ratio >= boundaries$A) {
    decision <- "accept H1"
  } else if (likelihood_ratio <= boundaries$B) {
    decision <- "accept H0"
  } else{
    decision <- "continue sampling"
  }
  decision
}