Evaluación del rendimiento de un modelo: MAPE en R

Question

Estoy tratando de comparar dos modelos. He obtenido el error cuadrático medio (RMSE), pero no es satisfactorio. Por eso intento calcular el error medio porcentual absoluto (MAPE).

¿Existe algún paquete en R donde pueda calcular el error medio porcentual absoluto?

Answer 1

Siempre puedes codificarla tú mismo:

mape <- function(y, yhat)
mean(abs((y - yhat)/y))

Answer 2

Para el MAPE, utilice la siguiente función:

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

Para la fórmula, puede consultar el siguiente enlace:

http://www.forecastpro.com/Trends/forecasting101August2011.html