Add mean absolute error and coefficient of variation

R/utils-stats.R

@@ -20,8 +20,10 @@ summary_df <- function(df, x, y) {
     mean = mean(x, na.rm = TRUE),
     median = median(x, na.rm = TRUE),
     sdev = sd(x, na.rm = TRUE),
+    cv = sd(x, na.rm = TRUE) / mean(x, na.rm = TRUE),
     kurtosis = e1071::kurtosis(x, na.rm = TRUE),
     rmse = mean((y - x)^2, na.rm = TRUE)^.5,
+    mae = mean(abs(y - x), na.rm = TRUE),
     mse = mean((y - x)^2, na.rm = TRUE),
     r2  = cor(x, y, use = "pairwise.complete.obs")^2,
     b = lm(x ~ y)$coefficients[2],