# \donttest{
ai <- ATE_internal(
X = dat_multisource[, 1:10],
Y = dat_multisource$Y,
S = dat_multisource$S,
A = dat_multisource$A,
source_model = "MN.glmnet",
source_model_args = list(),
treatment_model_type = "separate",
treatment_model_args = list(
family = binomial(),
SL.library = c("SL.glmnet", "SL.nnet", "SL.glm"),
cvControl = list(V = 5L)
),
outcome_model_args = list(
family = gaussian(),
SL.library = c("SL.glmnet", "SL.nnet", "SL.glm"),
cvControl = list(V = 5L)
)
)
plot(ai)
# }
Run the code above in your browser using DataLab