R/ismultiple13.R

In LeonardoAlcivar/BDA-Api-Hw: Simple Package homework

#' ismultiple13
#'
#' @description The functions checks if the input value is a multiple of 13.
#' If not it returns the residual.
#' @param x Real Value
#'
#' @return String expressing if the input value is a multiple of 13 or the residual.
#'
#'
#' @examples
#' x <- 15
#' multiple13(x)
#' Not Multiple. The residual is: 2
#'
#' @export
ismultiple13 <- function(x) {
  if (x %% 13 == 0) return("Multiple")
  else {
    return(x %% 13)
  }
}