ir <- iris
fit_num <- lm(Sepal.Length ~ ., data = ir)
ir$fitted <- fit_num$fitted
performance(ir, "Sepal.Length", "fitted")
performance(ir, "Sepal.Length", "fitted", metrics = r_squared)
performance(
ir,
actual = "Sepal.Length",
predicted = "fitted",
metrics = c(`R-squared` = r_squared, rmse = rmse)
)
performance(
ir,
actual = "Sepal.Length",
predicted = "fitted",
metrics = r_squared,
deviance_function = deviance_gamma
)
performance(
ir,
actual = "Sepal.Length",
predicted = "fitted",
metrics = r_squared,
deviance_function = deviance_tweedie,
tweedie_p = 2
)
Run the code above in your browser using DataLab