# \donttest{
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.
# }
if (FALSE) {
model <- make_model('X->Y') %>% set_restrictions(te('X', 'Y'))
}
Run the code above in your browser using DataLab