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