fix trimming in binary IIVM test, increase tol again

Author: PhilippBach

tests/testthat/test-double_ml_iivm_binary_outcome.R

@@ -35,7 +35,9 @@ patrick::with_parameters_test_that("Unit tests for IIVM:",
       ml_g = learner_pars$ml_g$clone(),
       ml_m = learner_pars$ml_m$clone(),
       ml_r = learner_pars$ml_r$clone(),
-      dml_procedure = dml_procedure, score = score)
+      dml_procedure = dml_procedure,
+      trimming_threshold = trimming_threshold,
+      score = score)
     theta = iivm_hat$coef
     se = iivm_hat$se
 
@@ -66,8 +68,8 @@ patrick::with_parameters_test_that("Unit tests for IIVM:",
     boot_theta_obj = double_mliivm_obj$boot_coef
 
     # at the moment the object result comes without a name
-    expect_equal(theta, theta_obj, tolerance = 1e-4)
-    expect_equal(se, se_obj, tolerance = 1e-4)
-    expect_equal(as.vector(boot_theta), as.vector(boot_theta_obj), tolerance = 1e-4)
+    expect_equal(theta, theta_obj, tolerance = 1e-8)
+    expect_equal(se, se_obj, tolerance = 1e-8)
+    expect_equal(as.vector(boot_theta), as.vector(boot_theta_obj), tolerance = 1e-8)
   }
 )