R/samp_mean.R

In AndrewElaryan/Lab1Intro: Introduction to Math 4973

#' Sample Mean
#'
#' @param x a vector
#'
#' @return xbar: the sample mean
#' @export
#'
#' @examples samp_mean(c(1,2,3))
samp_mean <- function(x) {
  xsum <- 0
  for(xj in x) {
    xsum <- xsum + xj
  }
  xbar = xsum / length(x)
  return(xbar)
}