R/tools_distributional.R

In rcalinjageman/esci2: Effect Sizes and Confidence Intervals

distributional_wrapper <- function(call, mu, sigma, df) {
  
  if (call == "dist_normal") {
    sigma[is.na(sigma)] <- .Machine$double.xmin
    return(distributional::dist_normal(mu = mu, sigma = sigma))
  }
      
  if (call == "dist_student_t") {
    df[is.na(df)] <- 1
    sigma[is.na(sigma)] <- .Machine$double.xmin
    return(distributional::dist_student_t(mu = mu, sigma = sigma, df = df))
  }
    
}