R/template-foo.R

In jeksterslab/template: Title

#' Foo
#'
#' Sum function.
#'
#' @author Ivan Jacob Agaloos Pesigan
#' @param x Numeric.
#' @param y Numeric.
#' @export
#' @family Template Functions
#' @keywords template
Foo <- function(x, y) {
  stopifnot(
    is.numeric(x),
    is.numeric(y)
  )
  return(x + y)
}