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