R/CI.R

In 3schwartz/SpecialeScrAndFun: Script and functions used for master thesis.

#' CI
#'
#' @description Empirically estimate confidence intervals (default: 95%)
#' @param x values
#' @param na.rm How to adjust NA's
#' @param alpha significance level
#'
#' @return estimated (lower, upper) beta confidence interval
#' @author Marius Hofert
#' @export
CI <- function(x, alpha = 0.05, na.rm = FALSE) {
  quantile(x, probs = c(alpha/2, 1-alpha/2), na.rm = na.rm, names = FALSE)
}