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