Merge pull request #161 from DoubleML/m-pliv-iv-type

Adapt nuisance est for `IV-type` score (PLR) & new score `IV-type` for PLIV

Author: MalteKurz

R/double_ml_iivm.R

@@ -366,8 +366,10 @@ DoubleMLIIVM = R6Class("DoubleMLIIVM",
         "ml_r1" = r1_hat)
       return(res)
     },
-    score_elements = function(y, z, d, g0_hat, g1_hat, m_hat, r0_hat,
-      r1_hat, smpls) {
+    score_elements = function(y = y, z = z, d = d,
+      g0_hat = g0_hat, g1_hat = g1_hat, m_hat = m_hat,
+      r0_hat = r0_hat, r1_hat = r1_hat,
+      smpls = smpls) {
 
       u0_hat = y - g0_hat
       u1_hat = y - g1_hat

R/double_ml_irm.R

@@ -296,7 +296,10 @@ DoubleMLIRM = R6Class("DoubleMLIRM",
         }
         psis = list(psi_a = psi_a, psi_b = psi_b)
       } else if (is.function(self$score)) {
-        psis = self$score(y, d, g0_hat, g1_hat, m_hat, smpls)
+        psis = self$score(
+          y = y, d = d,
+          g0_hat = g0_hat, g1_hat = g1_hat, m_hat = m_hat,
+          smpls = smpls)
       }
       return(psis)
     },