# \donttest{
si <- STE_internal(
X = dat_multisource[, 2:10],
Y = dat_multisource$Y,
EM = dat_multisource$EM,
S = dat_multisource$S,
A = dat_multisource$A,
cross_fitting = FALSE,
source_model = "MN.nnet",
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(si)
# }
Run the code above in your browser using DataLab