R/01_measures.R

In adambondarzewskiITF/utilitiesAdamExample:

#' Title
#'
#' @param x vector of numerics passed to sum function
#'
#' @return
#' @export
#'
#' @examples
sum2 <- function(x) {sum(x, na.rm = TRUE)}

#' Title
#'
#' @param x vector of numerics passed to mean2 function
#'
#' @return
#' @export
#'
#' @examples
mean2 <- function(x) {mean(x, na.rm = TRUE)}