R/average_of.R

In ices-eg/WKBIOPTIM4:

#' Average of numbers
#'
#' @param x A vector of input numbers
#'
#' @return a mean value
#'
#' @export
#'
#' @examples
#' average_of(c(2,3))

average_of <- function(x){
  output <- mean(x)
  return(output)
}