# NOT RUN {
model <- make_model('X -> Y') %>%
set_confound(list('X <-> Y'), add_confounds_df = FALSE)
model$confounds_df
set_confounds_df(model)$confounds_df
# An example where a restriction is applied after a confounding relation is set removes
model <- make_model('X -> Y') %>%
set_confound(list(X = '(Y[X=1] > Y[X=0])')) %>%
set_restrictions('(Y[X=1] > Y[X=0])')
# }
Run the code above in your browser using DataLab