# Note: For obtaining the Integrated Gradients plot the user needs to
# complete till sensitivity_analysis( ) function of the MLwrap pipeline
# using the Integrated Gradients method.
if (requireNamespace("torch", quietly = TRUE)) {
# \donttest{
wrap_object <- preprocessing(df = sim_data,
formula = psych_well ~ depression + emot_intel + resilience,
task = "regression")
wrap_object <- build_model(wrap_object, "Neural Network")
wrap_object <- fine_tuning(wrap_object, "Bayesian Optimization")
wrap_object <- sensitivity_analysis(wrap_object, methods = "Integrated Gradients")
# And then, you can obtain the Integrated Gradients plot.
plot_integrated_gradients(wrap_object)
# }
}
Run the code above in your browser using DataLab