# PDAG example with directed and undirected edges
cg <- caugi(
A %-->% B %---% C,
B %-->% D,
class = "PDAG"
)
posteriors(cg, "A") # B, C, D
posteriors(cg, "A", open = FALSE) # A, B, C, D
posteriors(cg, "B") # C, D
posteriors(cg, "D") # NULL (no posteriors)
# For DAGs, posteriors equals descendants
cg_dag <- caugi(
A %-->% B %-->% C,
class = "DAG"
)
posteriors(cg_dag, "A") # B, C
Run the code above in your browser using DataLab