R/MAPE.R

In Braja93/braja: General data manipulation functions

#' Mean Absolute Percentage Error
#'
#' Mean Absolute Percentage Error.
#' @param Actual vector of "Actual" data
#' @param Fitted vector of "Fitted" data
#' @keywords MAPE error
#' @export

MAPE <- function(Actual, Fitted) {
  return(mean(abs(Actual - Fitted) / Actual))
}