R/Media_U.R

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

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

Media_U <- function(vectorunal){
  vectorunal <- mean(vectorunal)*2
  return(vectorunal)
}