R/new_function.R

In molly-williams/mollyspackage2:

#' Gary is cute, but how cute?
#'
#' This is how you find out how cute Gary is
#' @param t is he asking for a treat?
#' @param h did he just get a haircut?
#' @param a are other animals around?
#' @param b baseline cuteness
#' @return cuteness
#'
#'

gary = function(t, h, a, b=100) {
P = t*(h^3)*a + b
return(C)
}