R/mult.R

In wrightaprilm/R_package_Wright: An R package for super smart science

#' Multiply together two numbers
#' 
#' @param x A number
#' @param y Another number
#' @return product The product of multiplying x and y
#' @usage 
#' mult(4, 5)
#' mult(5, 3)

mult <- function(x, y){
  product <- x*y
  if (is.numeric(product) == FALSE){
    return("ERROR - non-numeric")
  }
  return(product)
}