R/v.l.cl.R

In jrminter/rAnaLab: Helper Functions for the Analytical Laboratory

#' Compute the lower 95 percent confidence limit of a vector
#'
#' A helper function for several others
#'
#' @param x A vector of observations
#'
#' @return the lower 95 percent CL
#'
#' @export
#'
v.l.cl <- function(x){
  # 95 percent CI from t-distribution
  # from www.cyclismo.org/tutorial/R/confidence.html
  error <- v.std.err(x)*qt(0.975, df=length(x))
  ci.x.ll <- mean(x)-error
  ci.x.ll
}