# \donttest{
# load dataset
set.seed(123456)
xlearner_nn <- metalearner_deepneural(cov.formula = support_war ~ age +
income + employed + job_loss,
data = exp_data,
treat.var = "strong_leader",
meta.learner.type = "X.Learner",
stepmax = 2e+9,
nfolds = 5,
algorithm = "rprop+",
hidden.layer = c(3),
linear.output = FALSE,
binary.outcome = FALSE)
hte_plot(xlearner_nn)
# }
Run the code above in your browser using DataLab