R/exp.R

In STAT545-UBC-students/hw07-Mengsuper: Convenient Computation of Powers

#' Exponential function (base e)
#'
#' @param x: input vector
#' @return e^x
#' @export

expo <- function(x) {
    if (any(!is.numeric(x))) {
        return ("Please enter numbers")
    }
    pow(exp(1), x, plot_it = FALSE)
}