Apartment-prices: Model Performance

Both models have almost the same performance.

library("DALEX")
library("randomForest")


model_apart_lm <- archivist::aread("pbiecek/models/55f19")
model_apart_rf <- archivist::aread("pbiecek/models/fe7a5")


explain_apart_lm <- DALEX::explain(model = model_apart_lm, 
                                   data    = apartments_test[,-1], 
                                   y       = apartments_test$m2.price, 
                                   label   = "Linear Regression")

explain_apart_rf <- DALEX::explain(model = model_apart_rf, 
                           data    = apartments_test[,-1], 
                           y       = apartments_test$m2.price, 
                           label   = "Random Forest")


mr_lm <- DALEX::model_performance(explain_apart_lm)
mr_rf <- DALEX::model_performance(explain_apart_rf)

list(lm = mr_lm, 
     rf = mr_rf) |>
  lapply(\(x) unlist(x$measures) |> round(4)) |>
  as.data.frame()

##              lm         rf
## mse  80137.9850 80061.7697
## rmse   283.0865   282.9519
## r2       0.9012     0.9013
## mad    212.7067   169.0738