dragons <- DALEX::dragons[1:100, ]
# fit a model
lm_model <- lm(life_length ~ ., data = dragons)
# create an explainer
lm_audit <- audit(lm_model, data = dragons, y = dragons$life_length)
# calculate score
score_rec(lm_audit)
Run the code above in your browser using DataLab