R/basic_operations.R

In EriqLaplus/sampleR: What the Package Does (One Line, Title Case)

#' Add
#'
#' @param a 
#' @param b 
#'
#' @return
#' @export
#'
#' @examples
add <- function(a, b){
  result <- a + b
  return(result)
}

#' Subtract
#'
#' @param a 
#' @param b 
#'
#' @return
#' @export
#'
#' @examples
subtract <- function(a, b){
  result <- a - b
  return(result)
}

#' Divide
#'
#' @param numerator 
#' @param denominator 
#'
#' @return
#' @export
#'
#' @examples
divide <- function(numerator, denominator){
  if(denominator == 0){
    stop("Nah")
  }
  else {
    result <- numerator / denominator
    return(result)
  }
}