R/check_prob.R

In annabardin/Workout03: Functions for Binomial Distributions

# CHECK PROB
#Description: private aux function
#Input: prob
#Output: returns TRUE if valid, error if invalid
check_prob <- function(prob){
  if (prob>=0 & prob<=1){
    return(TRUE)
  }
  else{
    stop("invalid prob value")
  }
}