if (FALSE) {
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 = 3, pred_train = pred_train)
plot_imp(p, mtcars2)
}
Run the code above in your browser using DataLab