9. Sample-splitting, cross-fitting and repeated cross-fitting#

Sample-splitting and the application of cross-fitting is a central part of double/debiased machine learning (DML). For all DML models DoubleMLPLR, DoubleMLPLIV, DoubleMLIRM, and DoubleMLIIVM, the specification is done via the parameters n_folds and n_rep. Advanced resampling techniques can be obtained via the boolean parameters draw_sample_splitting and apply_cross_fitting as well as the methods draw_sample_splitting() and set_sample_splitting().

As an example we consider a partially linear regression model (PLR) implemented in DoubleMLPLR.

In [1]: import doubleml as dml

In [2]: import numpy as np

In [3]: from doubleml.datasets import make_plr_CCDDHNR2018

In [4]: from sklearn.ensemble import RandomForestRegressor

In [5]: from sklearn.base import clone

In [6]: learner = RandomForestRegressor(n_estimators=100, max_features=20, max_depth=5, min_samples_leaf=2)

In [7]: ml_l = clone(learner)

In [8]: ml_m = clone(learner)

In [9]: np.random.seed(1234)

In [10]: obj_dml_data = make_plr_CCDDHNR2018(alpha=0.5, n_obs=100)

library(DoubleML)
library(mlr3)
lgr::get_logger("mlr3")$set_threshold("warn")
library(mlr3learners)
library(data.table)

learner = lrn("regr.ranger", num.trees = 100, mtry = 20, min.node.size = 2, max.depth = 5)
ml_l = learner
ml_m = learner
data = make_plr_CCDDHNR2018(alpha=0.5, n_obs=100, return_type = "data.table")
obj_dml_data = DoubleMLData$new(data,
                                y_col = "y",
                                d_cols = "d")

9.1. Cross-fitting with K folds#

The default setting is n_folds = 5 and n_rep = 1, i.e., \(K=5\) folds and no repeated cross-fitting.

In [11]: dml_plr_obj = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m, n_folds = 5, n_rep = 1)

In [12]: print(dml_plr_obj.n_folds)
5

In [13]: print(dml_plr_obj.n_rep)
1

dml_plr_obj = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m, n_folds = 5, n_rep = 1)
print(dml_plr_obj$n_folds)
print(dml_plr_obj$n_rep)

[1] 5

[1] 1

During the initialization of a DML model like DoubleMLPLR a \(K\)-fold random partition \((I_k)_{k=1}^{K}\) of observation indices is generated. The \(K\)-fold random partition is stored in the smpls attribute of the DML model object.

In [14]: print(dml_plr_obj.smpls)
[[(array([ 0,  2,  3,  4,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15, 16, 17, 19,
       21, 22, 23, 24, 25, 27, 28, 29, 31, 32, 34, 35, 36, 37, 38, 40, 44,
       46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 63, 64,
       65, 67, 68, 69, 70, 71, 72, 74, 75, 76, 77, 79, 80, 81, 82, 84, 85,
       86, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98, 99]), array([ 1,  5, 18, 20, 26, 30, 33, 39, 41, 42, 43, 45, 56, 57, 66, 73, 78,
       83, 87, 96])), (array([ 0,  1,  2,  3,  4,  5,  6,  7,  8, 10, 11, 12, 13, 14, 15, 16, 17,
       18, 19, 20, 21, 22, 26, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40,
       41, 42, 43, 44, 45, 46, 48, 53, 54, 55, 56, 57, 58, 60, 61, 62, 63,
       65, 66, 69, 70, 71, 72, 73, 77, 78, 79, 80, 81, 82, 83, 84, 85, 87,
       88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99]), array([ 9, 23, 24, 25, 27, 28, 35, 47, 49, 50, 51, 52, 59, 64, 67, 68, 74,
       75, 76, 86])), (array([ 0,  1,  2,  3,  5,  6,  7,  9, 10, 11, 12, 14, 16, 17, 18, 20, 21,
       22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35, 38, 39, 40, 41, 42,
       43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 61, 62,
       63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77, 78, 79, 80, 81,
       83, 84, 86, 87, 88, 89, 90, 91, 92, 96, 98, 99]), array([ 4,  8, 13, 15, 19, 32, 34, 36, 37, 46, 54, 55, 70, 72, 82, 85, 93,
       94, 95, 97])), (array([ 0,  1,  3,  4,  5,  6,  8,  9, 13, 14, 15, 17, 18, 19, 20, 21, 22,
       23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 39, 41,
       42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 59, 64,
       65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82,
       83, 85, 86, 87, 88, 89, 93, 94, 95, 96, 97, 98]), array([ 2,  7, 10, 11, 12, 16, 38, 40, 48, 58, 60, 61, 62, 63, 81, 84, 90,
       91, 92, 99])), (array([ 1,  2,  4,  5,  7,  8,  9, 10, 11, 12, 13, 15, 16, 18, 19, 20, 23,
       24, 25, 26, 27, 28, 30, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
       43, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61,
       62, 63, 64, 66, 67, 68, 70, 72, 73, 74, 75, 76, 78, 81, 82, 83, 84,
       85, 86, 87, 90, 91, 92, 93, 94, 95, 96, 97, 99]), array([ 0,  3,  6, 14, 17, 21, 22, 29, 31, 44, 53, 65, 69, 71, 77, 79, 80,
       88, 89, 98]))]]

dml_plr_obj$smpls
  1. $train_ids
      1. 6
      2. 7
      3. 14
      4. 23
      5. 24
      6. 28
      7. 32
      8. 33
      9. 34
      10. 56
      11. 57
      12. 62
      13. 64
      14. 66
      15. 68
      16. 71
      17. 75
      18. 78
      19. 93
      20. 94
      21. 2
      22. 11
      23. 12
      24. 13
      25. 26
      26. 47
      27. 49
      28. 50
      29. 55
      30. 59
      31. 60
      32. 76
      33. 81
      34. 82
      35. 86
      36. 88
      37. 91
      38. 95
      39. 98
      40. 100
      41. 3
      42. 4
      43. 10
      44. 16
      45. 17
      46. 20
      47. 21
      48. 22
      49. 29
      50. 40
      51. 45
      52. 54
      53. 61
      54. 70
      55. 72
      56. 80
      57. 83
      58. 85
      59. 97
      60. 99
      61. 5
      62. 8
      63. 9
      64. 18
      65. 30
      66. 35
      67. 39
      68. 42
      69. 43
      70. 44
      71. 48
      72. 51
      73. 53
      74. 63
      75. 65
      76. 77
      77. 87
      78. 89
      79. 90
      80. 96
      1. 1
      2. 15
      3. 19
      4. 25
      5. 27
      6. 31
      7. 36
      8. 37
      9. 38
      10. 41
      11. 46
      12. 52
      13. 58
      14. 67
      15. 69
      16. 73
      17. 74
      18. 79
      19. 84
      20. 92
      21. 2
      22. 11
      23. 12
      24. 13
      25. 26
      26. 47
      27. 49
      28. 50
      29. 55
      30. 59
      31. 60
      32. 76
      33. 81
      34. 82
      35. 86
      36. 88
      37. 91
      38. 95
      39. 98
      40. 100
      41. 3
      42. 4
      43. 10
      44. 16
      45. 17
      46. 20
      47. 21
      48. 22
      49. 29
      50. 40
      51. 45
      52. 54
      53. 61
      54. 70
      55. 72
      56. 80
      57. 83
      58. 85
      59. 97
      60. 99
      61. 5
      62. 8
      63. 9
      64. 18
      65. 30
      66. 35
      67. 39
      68. 42
      69. 43
      70. 44
      71. 48
      72. 51
      73. 53
      74. 63
      75. 65
      76. 77
      77. 87
      78. 89
      79. 90
      80. 96
      1. 1
      2. 15
      3. 19
      4. 25
      5. 27
      6. 31
      7. 36
      8. 37
      9. 38
      10. 41
      11. 46
      12. 52
      13. 58
      14. 67
      15. 69
      16. 73
      17. 74
      18. 79
      19. 84
      20. 92
      21. 6
      22. 7
      23. 14
      24. 23
      25. 24
      26. 28
      27. 32
      28. 33
      29. 34
      30. 56
      31. 57
      32. 62
      33. 64
      34. 66
      35. 68
      36. 71
      37. 75
      38. 78
      39. 93
      40. 94
      41. 3
      42. 4
      43. 10
      44. 16
      45. 17
      46. 20
      47. 21
      48. 22
      49. 29
      50. 40
      51. 45
      52. 54
      53. 61
      54. 70
      55. 72
      56. 80
      57. 83
      58. 85
      59. 97
      60. 99
      61. 5
      62. 8
      63. 9
      64. 18
      65. 30
      66. 35
      67. 39
      68. 42
      69. 43
      70. 44
      71. 48
      72. 51
      73. 53
      74. 63
      75. 65
      76. 77
      77. 87
      78. 89
      79. 90
      80. 96
      1. 1
      2. 15
      3. 19
      4. 25
      5. 27
      6. 31
      7. 36
      8. 37
      9. 38
      10. 41
      11. 46
      12. 52
      13. 58
      14. 67
      15. 69
      16. 73
      17. 74
      18. 79
      19. 84
      20. 92
      21. 6
      22. 7
      23. 14
      24. 23
      25. 24
      26. 28
      27. 32
      28. 33
      29. 34
      30. 56
      31. 57
      32. 62
      33. 64
      34. 66
      35. 68
      36. 71
      37. 75
      38. 78
      39. 93
      40. 94
      41. 2
      42. 11
      43. 12
      44. 13
      45. 26
      46. 47
      47. 49
      48. 50
      49. 55
      50. 59
      51. 60
      52. 76
      53. 81
      54. 82
      55. 86
      56. 88
      57. 91
      58. 95
      59. 98
      60. 100
      61. 5
      62. 8
      63. 9
      64. 18
      65. 30
      66. 35
      67. 39
      68. 42
      69. 43
      70. 44
      71. 48
      72. 51
      73. 53
      74. 63
      75. 65
      76. 77
      77. 87
      78. 89
      79. 90
      80. 96
      1. 1
      2. 15
      3. 19
      4. 25
      5. 27
      6. 31
      7. 36
      8. 37
      9. 38
      10. 41
      11. 46
      12. 52
      13. 58
      14. 67
      15. 69
      16. 73
      17. 74
      18. 79
      19. 84
      20. 92
      21. 6
      22. 7
      23. 14
      24. 23
      25. 24
      26. 28
      27. 32
      28. 33
      29. 34
      30. 56
      31. 57
      32. 62
      33. 64
      34. 66
      35. 68
      36. 71
      37. 75
      38. 78
      39. 93
      40. 94
      41. 2
      42. 11
      43. 12
      44. 13
      45. 26
      46. 47
      47. 49
      48. 50
      49. 55
      50. 59
      51. 60
      52. 76
      53. 81
      54. 82
      55. 86
      56. 88
      57. 91
      58. 95
      59. 98
      60. 100
      61. 3
      62. 4
      63. 10
      64. 16
      65. 17
      66. 20
      67. 21
      68. 22
      69. 29
      70. 40
      71. 45
      72. 54
      73. 61
      74. 70
      75. 72
      76. 80
      77. 83
      78. 85
      79. 97
      80. 99
    $test_ids
      1. 1
      2. 15
      3. 19
      4. 25
      5. 27
      6. 31
      7. 36
      8. 37
      9. 38
      10. 41
      11. 46
      12. 52
      13. 58
      14. 67
      15. 69
      16. 73
      17. 74
      18. 79
      19. 84
      20. 92
      1. 6
      2. 7
      3. 14
      4. 23
      5. 24
      6. 28
      7. 32
      8. 33
      9. 34
      10. 56
      11. 57
      12. 62
      13. 64
      14. 66
      15. 68
      16. 71
      17. 75
      18. 78
      19. 93
      20. 94
      1. 2
      2. 11
      3. 12
      4. 13
      5. 26
      6. 47
      7. 49
      8. 50
      9. 55
      10. 59
      11. 60
      12. 76
      13. 81
      14. 82
      15. 86
      16. 88
      17. 91
      18. 95
      19. 98
      20. 100
      1. 3
      2. 4
      3. 10
      4. 16
      5. 17
      6. 20
      7. 21
      8. 22
      9. 29
      10. 40
      11. 45
      12. 54
      13. 61
      14. 70
      15. 72
      16. 80
      17. 83
      18. 85
      19. 97
      20. 99
      1. 5
      2. 8
      3. 9
      4. 18
      5. 30
      6. 35
      7. 39
      8. 42
      9. 43
      10. 44
      11. 48
      12. 51
      13. 53
      14. 63
      15. 65
      16. 77
      17. 87
      18. 89
      19. 90
      20. 96

For each \(k \in [K] = \lbrace 1, \ldots, K]\) the nuisance ML estimator

\[\hat{\eta}_{0,k} = \hat{\eta}_{0,k}\big((W_i)_{i\not\in I_k}\big)\]

is based on the observations of all other \(k-1\) folds. The values of the two score function components \(\psi_a(W_i; \hat{\eta}_0)\) and \(\psi_b(W_i; \hat{\eta}_0))\) for each observation index \(i \in I_k\) are computed and stored in the attributes psi_a and psi_b.

In [15]: dml_plr_obj.fit();

In [16]: print(dml_plr_obj.psi_elements['psi_a'][:5])
[[[-1.79256713e+00]]

 [[-1.58725720e+00]]

 [[-1.57039774e-02]]

 [[-2.67213066e-04]]

 [[-5.84111351e+00]]]

In [17]: print(dml_plr_obj.psi_elements['psi_b'][:5])
[[[-0.39893394]]

 [[-1.24330758]]

 [[ 0.05750886]]

 [[ 0.00554781]]

 [[ 3.59816547]]]

dml_plr_obj$fit()
print(dml_plr_obj$psi_a[1:5, ,1])
print(dml_plr_obj$psi_b[1:5, ,1])

[1] -0.448854023 -0.029007914 -0.272351367 -0.518978538 -0.005410318

[1]  1.24627471 -0.01341600  0.51445823  0.20906738 -0.04629439

9.2. Repeated cross-fitting with K folds and M repetitions#

Repeated cross-fitting is obtained by choosing a value \(M>1\) for the number of repetition n_rep. It results in \(M\) random \(K\)-fold partitions being drawn.

In [18]: dml_plr_obj = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m, n_folds = 5, n_rep = 10)

In [19]: print(dml_plr_obj.n_folds)
5

In [20]: print(dml_plr_obj.n_rep)
10

dml_plr_obj = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m, n_folds = 5, n_rep = 10)
print(dml_plr_obj$n_folds)
print(dml_plr_obj$n_rep)

[1] 5

[1] 10

For each of the \(M\) partitions, the nuisance ML models are estimated and score functions computed as described in Cross-fitting with K folds. The resulting values of the score functions are stored in 3-dimensional arrays psi_a and psi_b, where the row index corresponds the observation index \(i \in [N] = \lbrace 1, \ldots, N\rbrace\) and the column index to the partition \(m \in [M] = \lbrace 1, \ldots, M\rbrace\). The third dimension refers to the treatment variable and becomes non-singleton in case of multiple treatment variables.

In [21]: dml_plr_obj.fit();

In [22]: print(dml_plr_obj.psi_elements['psi_a'][:5, :, 0])
[[-1.77322644e+00 -1.42752593e+00 -2.31266247e+00 -1.87165068e+00
  -1.00668440e+00 -1.47751687e+00 -1.81662142e+00 -1.37707823e+00
  -1.76459273e+00 -1.53715851e+00]
 [-2.76717648e+00 -2.60461917e+00 -1.59451372e+00 -1.51276643e+00
  -2.27370233e+00 -1.54426603e+00 -1.28305994e+00 -2.19761191e+00
  -1.79353971e+00 -2.43087478e+00]
 [-4.85962825e-02 -1.13388821e-01 -6.51225539e-03 -3.42929734e-04
  -3.55049655e-02 -1.70949761e-04 -1.43963189e-02 -7.81509838e-02
  -2.01465322e-02 -7.55960706e-02]
 [-2.64860544e-03 -8.37742123e-03 -1.03285503e-02 -2.36717351e-02
  -1.31730635e-02 -8.79563512e-06 -9.69946718e-03 -8.94783587e-02
  -4.71055496e-03 -6.68248896e-04]
 [-4.11900727e+00 -4.02577978e+00 -5.76247174e+00 -4.99944442e+00
  -5.02531672e+00 -6.06303261e+00 -4.92549623e+00 -5.69921565e+00
  -3.87296510e+00 -5.34067786e+00]]

In [23]: print(dml_plr_obj.psi_elements['psi_b'][:5, :, 0])
[[-3.28724009e-01 -2.30904377e-01 -9.25858590e-02 -4.03589551e-01
  -4.36310837e-01 -3.97609542e-01 -5.81252855e-02 -1.42600978e-01
  -3.02777428e-01 -3.20416635e-01]
 [-9.87711270e-01 -1.48822761e+00 -1.29891460e+00 -1.41410178e+00
  -1.11056221e+00 -1.11895960e+00 -8.41394238e-01 -1.45538766e+00
  -1.06704363e+00 -9.95014763e-01]
 [ 2.82210247e-02  6.36309943e-02 -1.81498222e-02  6.15378576e-03
  -5.35897222e-02  1.01749525e-03  5.44957176e-02  1.07322054e-02
   8.93254114e-02  3.31487339e-02]
 [-1.28128502e-02 -2.79035761e-02  4.23583677e-02  6.46574634e-02
   6.68580075e-02  7.18565871e-04 -3.87238510e-02  1.63790040e-01
  -3.86716588e-02  1.25884147e-02]
 [ 1.60958782e+00  1.76695973e+00  1.83252670e+00  1.79930559e+00
   1.98759195e+00  2.84108151e+00  1.58469880e+00  2.25150647e+00
   7.97611143e-01  3.18817086e+00]]

dml_plr_obj$fit()
print(dml_plr_obj$psi_a[1:5, ,1])
print(dml_plr_obj$psi_b[1:5, ,1])

            [,1]        [,2]         [,3]          [,4]         [,5]
[1,] -0.88673339 -1.09000533 -0.641603241 -4.223793e-01 -1.166972406
[2,] -0.10141061 -0.03222717 -0.354263714 -2.725616e-02 -0.009609559
[3,] -2.29286042 -0.59073707 -1.186462460 -7.230884e-01 -0.751618255
[4,] -2.24238163 -1.71706322 -2.210940300 -5.579812e-01 -1.754267613
[5,] -0.04240159 -0.14531539 -0.002197321 -8.648250e-07 -0.070854669
             [,6]        [,7]        [,8]        [,9]       [,10]
[1,] -1.069475671 -0.97542755 -1.00300411 -1.03120657 -0.96013956
[2,] -0.127088528 -0.63508769 -0.66098554 -0.03111280 -0.12713348
[3,] -0.431941991 -1.64136296 -0.64354136 -0.54966421 -0.61737397
[4,] -0.905435028 -1.87095373 -0.88351053 -0.87561132 -1.66936868
[5,] -0.009900955 -0.02812438 -0.01155434 -0.06879769 -0.09523083

            [,1]        [,2]        [,3]         [,4]       [,5]         [,6]
[1,]  1.67005965  1.61777151  1.32150159 0.9480910573 1.63889343  1.560373914
[2,] -0.05479526 -0.05024471 -0.17397092 0.0103211192 0.02914785 -0.009321263
[3,]  1.76176443  0.76452749  0.86503543 0.7379142191 0.98695518  0.575776533
[4,]  0.94945286  1.06828194  1.55902169 0.3854148438 1.03583801  0.821824825
[5,] -0.07485241  0.27405194  0.02514018 0.0002720078 0.26025951 -0.037446055
           [,7]        [,8]        [,9]       [,10]
[1,]  1.4528974  1.53615094  1.47941056  1.40054421
[2,] -0.1099609 -0.28585878 -0.07413666 -0.09895246
[3,]  1.1863528  0.63797681  0.26387637  0.67652097
[4,]  1.6941821  0.80916442  0.72406240  1.12067796
[5,]  0.0936411 -0.04094347  0.31133219  0.27591682

We estimate the causal parameter \(\tilde{\theta}_{0,m}\) for each of the \(M\) partitions with a DML algorithm as described in Double machine learning algorithms. Standard errors are obtained as described in Variance estimation and confidence intervals. The aggregation of the estimates of the causal parameter and its standard errors is done using the median

\[ \begin{align}\begin{aligned}\tilde{\theta}_{0} &= \text{Median}\big((\tilde{\theta}_{0,m})_{m \in [M]}\big),\\\hat{\sigma} &= \sqrt{\text{Median}\big((\hat{\sigma}_m^2 + (\tilde{\theta}_{0,m} - \tilde{\theta}_{0})^2)_{m \in [M]}\big)}.\end{aligned}\end{align} \]

The estimate of the causal parameter \(\tilde{\theta}_{0}\) is stored in the coef attribute and the asymptotic standard error \(\hat{\sigma}/\sqrt{N}\) in se.

In [24]: print(dml_plr_obj.coef)
[0.45902562]

In [25]: print(dml_plr_obj.se)
[0.08009698]

print(dml_plr_obj$coef)
print(dml_plr_obj$se)

        d 
0.4835046 

         d 
0.08445476

The parameter estimates \((\tilde{\theta}_{0,m})_{m \in [M]}\) and asymptotic standard errors \((\hat{\sigma}_m/\sqrt{N})_{m \in [M]}\) for each of the \(M\) partitions are stored in the attributes _all_coef and _all_se, respectively.

In [26]: print(dml_plr_obj._all_coef)
[[0.4531164  0.4080867  0.4716829  0.47383356 0.40423723 0.48423737
  0.47074557 0.39201598 0.4498626  0.46493483]]

In [27]: print(dml_plr_obj._all_se)
[[0.08058929 0.07957192 0.07998887 0.08717845 0.08104548 0.07691771
  0.07482018 0.07991451 0.08431449 0.07731967]]

print(dml_plr_obj$all_coef)
print(dml_plr_obj$all_se)

          [,1]      [,2]     [,3]      [,4]      [,5]      [,6]      [,7]
[1,] 0.4947658 0.5008854 0.474789 0.4360217 0.4478085 0.5008702 0.4587649
          [,8]      [,9]     [,10]
[1,] 0.4200862 0.4922201 0.5179888

           [,1]       [,2]      [,3]       [,4]       [,5]       [,6]
[1,] 0.08765606 0.08627643 0.0784755 0.09019323 0.08210669 0.08894478
           [,7]       [,8]       [,9]      [,10]
[1,] 0.08311082 0.08550712 0.07773148 0.07657793

9.3. Externally provide a sample splitting / partition#

All DML models allow a partition to be provided externally via the method set_sample_splitting(). In Python we can for example use the K-Folds cross-validator of sklearn KFold in order to generate a sample splitting and provide it to the DML model object. Note that by setting draw_sample_splitting = False one can prevent that a partition is drawn during initialization of the DML model object. The following calls are equivalent. In the first sample code, we use the standard interface and draw the sample-splitting with \(K=4\) folds during initialization of the DoubleMLPLR object.

In [28]: np.random.seed(314)

In [29]: dml_plr_obj_internal = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m, n_folds = 4)

In [30]: print(dml_plr_obj_internal.fit().summary)
       coef   std err         t         P>|t|     2.5 %    97.5 %
d  0.426759  0.081962  5.206772  1.921539e-07  0.266116  0.587402

set.seed(314)
dml_plr_obj_internal = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m, n_folds = 4)
dml_plr_obj_internal$fit()
dml_plr_obj_internal$summary()

Estimates and significance testing of the effect of target variables
  Estimate. Std. Error t value Pr(>|t|)    
d   0.50978    0.08334   6.117 9.53e-10 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

In the second sample code, we use the K-Folds cross-validator of sklearn KFold and set the partition via the set_sample_splitting() method.

In [31]: dml_plr_obj_external = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m, draw_sample_splitting = False)

In [32]: from sklearn.model_selection import KFold

In [33]: np.random.seed(314)

In [34]: kf = KFold(n_splits=4, shuffle=True)

In [35]: smpls = [(train, test) for train, test in kf.split(obj_dml_data.x)]

In [36]: dml_plr_obj_external.set_sample_splitting(smpls);

In [37]: print(dml_plr_obj_external.fit().summary)
       coef   std err         t         P>|t|     2.5 %    97.5 %
d  0.426759  0.081962  5.206772  1.921539e-07  0.266116  0.587402

dml_plr_obj_external = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m, draw_sample_splitting = FALSE)

set.seed(314)
# set up a task and cross-validation resampling scheme in mlr3
my_task = Task$new("help task", "regr", data)
my_sampling = rsmp("cv", folds = 4)$instantiate(my_task)

train_ids = lapply(1:4, function(x) my_sampling$train_set(x))
test_ids = lapply(1:4, function(x) my_sampling$test_set(x))
smpls = list(list(train_ids = train_ids, test_ids = test_ids))

dml_plr_obj_external$set_sample_splitting(smpls)
dml_plr_obj_external$fit()
dml_plr_obj_external$summary()

Estimates and significance testing of the effect of target variables
  Estimate. Std. Error t value Pr(>|t|)    
d   0.50978    0.08334   6.117 9.53e-10 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

9.4. Sample-splitting without cross-fitting#

The boolean flag apply_cross_fitting allows to estimate DML models without applying cross-fitting. It results in randomly splitting the sample into two parts. The first half of the data is used for the estimation of the nuisance ML models and the second half for estimating the causal parameter. Note that cross-fitting performs well empirically and is recommended to remove bias induced by overfitting, see also Sample splitting to remove bias induced by overfitting.

In [38]: np.random.seed(314)

In [39]: dml_plr_obj_external = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m,
   ....:                                     n_folds = 2, apply_cross_fitting = False)
   ....: 

In [40]: print(dml_plr_obj_external.fit().summary)
       coef   std err         t     P>|t|     2.5 %    97.5 %
d  0.415161  0.112574  3.687884  0.000226  0.194519  0.635802

dml_plr_obj_external = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m,
                                    n_folds = 2, apply_cross_fitting = FALSE)
dml_plr_obj_external$fit()
dml_plr_obj_external$summary()

Estimates and significance testing of the effect of target variables
  Estimate. Std. Error t value Pr(>|t|)    
d    0.3719     0.1015   3.665 0.000247 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Note, that in order to split data unevenly into train and test sets the interface to externally set the sample splitting via set_sample_splitting() needs to be applied, like for example:

In [41]: np.random.seed(314)

In [42]: dml_plr_obj_external = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m,
   ....:                                     n_folds = 2, apply_cross_fitting = False, draw_sample_splitting = False)
   ....: 

In [43]: from sklearn.model_selection import train_test_split

In [44]: smpls = train_test_split(np.arange(obj_dml_data.n_obs), train_size=0.8)

In [45]: dml_plr_obj_external.set_sample_splitting(tuple(smpls));

In [46]: print(dml_plr_obj_external.fit().summary)
       coef   std err         t     P>|t|     2.5 %    97.5 %
d  0.607454  0.143081  4.245509  0.000022  0.327019  0.887888

dml_plr_obj_external = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m,
                                        n_folds = 2, apply_cross_fitting = FALSE,
                                        draw_sample_splitting = FALSE)

set.seed(314)
# set up a task and cross-validation resampling scheme in mlr3
my_task = Task$new("help task", "regr", data)
my_sampling = rsmp("holdout", ratio = 0.8)$instantiate(my_task)

train_ids = list(my_sampling$train_set(1))
test_ids = list(my_sampling$test_set(1))
smpls = list(list(train_ids = train_ids, test_ids = test_ids))

dml_plr_obj_external$set_sample_splitting(smpls)
dml_plr_obj_external$fit()
dml_plr_obj_external$summary()

Estimates and significance testing of the effect of target variables
  Estimate. Std. Error t value Pr(>|t|)   
d    0.4236     0.1527   2.774  0.00554 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

9.5. Estimate DML models without sample-splitting#

The implementation of the DML models allows the estimation without sample splitting, i.e., all observations are used for learning the nuisance models as well as for the estimation of the causal parameter. Note that this approach usually results in a bias and is therefore not recommended without appropriate theoretical justification, see also Sample splitting to remove bias induced by overfitting.

In [47]: np.random.seed(314)

In [48]: dml_plr_no_split = dml.DoubleMLPLR(obj_dml_data, ml_l, ml_m,
   ....:                                 n_folds = 1, apply_cross_fitting = False)
   ....: 

In [49]: print(dml_plr_obj_external.fit().summary)
       coef  std err         t     P>|t|     2.5 %    97.5 %
d  0.572623  0.13585  4.215115  0.000025  0.306362  0.838884

dml_plr_no_split = DoubleMLPLR$new(obj_dml_data, ml_l, ml_m,
                                n_folds = 1, apply_cross_fitting = FALSE)

set.seed(314)
dml_plr_no_split$fit()
dml_plr_no_split$summary()

Estimates and significance testing of the effect of target variables
  Estimate. Std. Error t value Pr(>|t|)    
d   0.43383    0.08218   5.279  1.3e-07 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1