R/average_two.R

In etesdahl/fooFactors: Fixing Those Very Pesky Factor Habits

#' Averages two numbers
#'
#'Averages two numbers.
#'
#' @param a number
#' @param b number
#'
#' @return number
#' @export
#'
#' @examples
#'
average_two <- function(a, b) {
    c <- (a+b)/2
    return(c)
}