Lime with Caret

lime_with_caret.R

library(tidyverse)
library(caret)
library(lime)

#fit
lasso_caret<- train(data = mtcars, mpg~., method = "glmnet",
                    tuneGrid = expand.grid(alpha = 1,
                                           lambda = 0))
#LIME
explainer <- lime(mtcars, lasso_caret) #here the train data
explanation <- explain(mtcars, explainer) #here the test data

#plots
plot_features(explanation, ncol = 2)
plot_features(explanation, ncol = 1, cases = "Volvo 142E") #plot a specific case
plot_explanations(explanation) #plot feature by case