modelEvaluators.r

mape <- function(actual, predicted) {
  100 * mean(abs(actual - predicted) / actual)
}

mse <- function(actual, predicted) {
  mean((actual - predicted) ^ 2)
}

mae <- function(actual, predicted) {
  mean(abs(actual - predicted))
}