R/myci.R

Defines functions myci

Documented in myci

#' @title myci
#'
#' @param x
#'
#' @return Returns 95% confidence interval.
#' @export
#'
#' @examples
myci<- function(x){
  n<-length(x)
  std <- sd(x)
  t<-qt(1-0.05/2,n-1)
  mp <- c(-1,1)
  mean(x)+ mp*t*std/sqrt(n)

}
Vert0000/MATH4752Projects1 documentation built on Dec. 31, 2020, 5:40 p.m.