MAPE(y_pred, y_true)
data(cars) reg <- lm(log(dist) ~ log(speed), data = cars) MAPE(y_pred = exp(reg$fitted.values), y_true = cars$dist)
Run the code above in your browser using DataCamp Workspace