dragons <- DALEX::dragons[1:100, ]
# fit a model
model_lm <- lm(life_length ~ ., data = dragons)
lm_audit <- audit(model_lm, data = dragons, y = dragons$life_length)
# validate a model with auditor
mr_lm <- model_residual(lm_audit)
# plot results
plotD3(mr_lm)
plotD3(mr_lm, type = "prediction")
hn_lm <- model_halfnormal(lm_audit)
plotD3(hn_lm)
Run the code above in your browser using DataLab