R/Media_2.R

In alberto1976/Runal: Un paquete de ejemplo que hace tal cosa

#' Una funcion que calcula un promedio unal por 2
#'
#' @param vectorunal Un vector numerico
#' @return El promedio unal calculado
#' @export

Media_2 <- function(vectorunal){
  vectorunal <- mean(vectorunal)*3
  return(vectorunal)
}