R/Mult.R

In ChiJingLeow/R_Package_Leow: An R package for gene expression analyses

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

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