R/my_pow.R

In oliverlinehan41/project3package: Collection of Lab Functions from Stat 302 Class

#' Power Function
#' 
#' This function raises input to a power.
#' 
#' @param x Numeric input to be raised to the power of \code{power}.
#' @param power Numeric input for the power to which \code{x} will be raised,
#'   defaults to \code{2}.
#'   
#' @return Numeric representing \code{x} raised to the power of \code{power}.
#' 
#' @examples 
#' my_pow(4)
#' my_pow(4, power = 3)
#' 
#' @export
my_pow <- function(x, power = 2) {
  return(x^power)
}