# NOT RUN {
dag <- dagify(m ~ x + y, m_jr ~ m)
is_collider(dag, "m")
is_downstream_collider(dag, "m_jr")
# a downstream collider is also treated as a collider
is_collider(dag, "m_jr")
# but a direct collider is not treated as a downstream collider
is_downstream_collider(dag, "m")
# }
Run the code above in your browser using DataCamp Workspace