R/myci.R

Defines functions myci

#' myci
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples
myci<-function(x){
  mp <-c(-1,1)
  t<-qt(1-0.05/2, 25-1)
  mean(x)+mp*t*sd(x)/sqrt(25)
}
benjamin-roper/MATH4753rope0007 documentation built on Nov. 14, 2020, 12:50 p.m.