powered by
Compute the root mean squared percentage error regression loss.
RMSPE(y_pred, y_true)
Root Mean Squared Percentage Error Loss
Estimated target values vector
Ground truth (correct) target values vector
data(cars) reg <- lm(log(dist) ~ log(speed), data = cars) RMSPE(y_pred = exp(reg$fitted.values), y_true = cars$dist)
Run the code above in your browser using DataLab