Applying a custom grid

oscillations_equidist <- predict_parts(explain_rf, henry, 
                                       variable_splits = list(age = seq(0, 65, 0.1),
                                                              fare = seq(0, 200, 0.1),
                                                              gender = unique(titanic_imputed$gender),
                                                              class = unique(titanic_imputed$class)), 
                                       type = "oscillations")
oscillations_equidist

##   _vname_ _ids_ oscillations
## 3  gender     1    0.3370000
## 1     age     1    0.1677235
## 4   class     1    0.1425714
## 2    fare     1    0.1040790