# NOT RUN {
df = mtcars2[, ! names(mtcars2) <!-- %in% 'ids' ] -->
train = caret::train( disp ~ .
                     , df
                     , method = 'rf'
                     , trControl = caret::trainControl( method = 'none' )
                     , importance = TRUE )
pred_train = caret::predict.train(train, df)
p = alluvial_model_response_caret(train, degree = 4, pred_train = pred_train)
p_grid = add_marginal_histograms(p, data_input = df)
p_grid = add_imp_plot(p_grid, p, data_input = df)
# }
Run the code above in your browser using DataLab