R/pow.R

In cheungamanda/powers: Simple Computation of Powers

#' Generic Power Function
#'
#' This function raises a vector to any power. I'm making it internal,
#' by not \code{export}ing, because I don't want users to use it.
#'
#' @param x Vector to raise to some power.
#' @param a Power to raise \code{x} by.
#' @param plot_it Display a plot of \code{x} vs the output? Use logical.
#'
#' @return The vector \code{x}, raised to the power of \code{a}.
pow <- function(x, a, plot_it) {
  if (any(is.na(x))) warning("Argument contains NA(s). NA(s) dropped in results.")
      res <- (as.numeric(x))^a
  if (plot_it) print(ggplot2::qplot(x, res))
  return(res[!is.na(res)])
}