# NOT RUN {
model <- make_model('X -> K -> Y')
get_nodal_types(model)
model <- make_model('X -> K -> Y') %>%
set_restrictions(statement = 'K[X=1]>K[X=0]') %>%
set_confound(list(K = 'Y[K=1]>Y[K=0]'))
get_nodal_types(model)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab