R/myci.R

In Jacob-R-Davis/MATH4753.Davis: MATH 4753 Package - Jacob Davis

#' 95% confidence interval for mean
#'
#' @param x A vector of numerical data
#' @param alpha Significance level
#'
#' @return 95% confidence interval for mean
#' @export
#'
#' @examples myci(x=1:10, alpha=0.05)
myci <- function(x, alpha=0.05){
  t=qt((1-(alpha/2)),(length(x)-1))
  ci=c()
  ci[1]=mean(x)-t*sd(x)/sqrt(length(x))
  ci[2]=mean(x)+t*sd(x)/sqrt(length(x))
  ci
}