olden$depression[1] (`actual`) not equal to -0.7335 (`expected`).

  `actual`: -0.65
`expected`: -0.73

test_that("PFI works properly regression", {
formula = "psych_well ~ gender + age + socioec_status + depression"
analysis_object <- preprocessing(df = sim_data, formula = formula, task = "regression")
analysis_object <- build_model(analysis_object = analysis_object,
analysis_object <- fine_tuning(analysis_object = analysis_object,
analysis_object <- sensitivity_analysis(analysis_object, methods = c("PFI", "SHAP", "Integrated Gradients", "Olden"))
expect_equal(pfi$Importance[[1]], 17.831, tolerance = 1e-1)
expect_equal(shap$depression[1], 18.709, tolerance = 1e-1)
expect_equal(int_grad$depression[1], 0.7978044, tolerance = 1e-1)
expect_equal(olden$depression[1], -0.7335, tolerance = 1e-1)

"psych_well ~ gender + age + socioec_status + depression"