R/dog_years.R

In ramrhodes/blueberrypanda:

Defines functions dog_years

Documented in dog_years

#' Age in dog years
#'
#' @param age
#'
#' @return
#' @export
#'
#' @examples
dog_years <- function(age) {
  dog_age <- age * 7
  return(dog_age)
}