media <- function(x) {
   s <- 0
   for (i in 1:length(x) ) {
       s <- s + x[i]
   }
   m = s / length(x)

  return(m)
  
}