# NOT RUN {
te('A', 'B')
model <- make_model('X->Y') %>% set_restrictions(increasing('X', 'Y'))
query_model(model, list(ate = te('X', 'Y')), using = 'parameters')
# set_restrictions breaks with te because it requires a listing
# of causal types, not numeric output.
# }
# NOT RUN {
model <- make_model('X->Y') %>% set_restrictions(te('X', 'Y'))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab