explainability code in R