lab 4

knitr::opts_chunk$set(echo = TRUE)
vector <- c(3,5,7,9,11,123.034)

mean_func <- function(para){
  sum <- 0
  n <- 0
  for(ele in para){
    sum <- sum + ele
    n <- n + 1
  }
  return(sum/n)
}

print(mean_func(vector))

## [1] 26.339