# \donttest{
# load dataset
set.seed(123456)
xlearner_nn <- metalearner_neural(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.preds = FALSE)
hte_plot(xlearner_nn)
hte_plot(xlearner_nn,
selected_vars = c("age", "income"),
cut_points = c(33, 3),
custom_labels = c("Age <= 33", "Age > 33", "Income <= 3", "Income > 3"),
n_boot = 500)
# }
Run the code above in your browser using DataLab