# NOT RUN {
## DAGs
dagNEL <- dag(~ a:b:c + c:d:e, result="graphNEL")
dagMAT <- dag(~ a:b:c + c:d:e, result="matrix")
dagMATS <- dag(~ a:b:c + c:d:e, result="dgCMatrix")
## Undirected graphs
ugNEL <- ug(~a:b:c + c:d:e, result="graphNEL")
ugMAT <- ug(~a:b:c + c:d:e, result="matrix")
ugMATS <- ug(~a:b:c + c:d:e, result="dgCMatrix")
## Is it a DAG?
is_dag(dagNEL)
is_dag(dagMAT)
is_dag(dagMATS)
is_dag(ugNEL)
is_dag(ugMAT)
is_dag(ugMATS)
## Is it an undirected graph
is_ug(dagNEL)
is_ug(dagMAT)
is_ug(dagMATS)
is_ug(ugNEL)
is_ug(ugMAT)
is_ug(ugMATS)
## Is it a triangulated (i.e. chordal) undirected graph
is_tug(dagNEL)
is_tug(dagMAT)
is_tug(dagMATS)
is_tug(ugNEL)
is_tug(ugMAT)
is_tug(ugMATS)
## Example where the graph is not triangulated
ug2NEL <- ug(~ a:b + b:c + c:d + d:a, result="graphNEL")
ug2MAT <- ug(~ a:b + b:c + c:d + d:a, result="matrix")
ug2MATS <- ug(~ a:b + b:c + c:d + d:a, result="dgCMatrix")
is_tug(ug2NEL)
is_tug(ug2MAT)
is_tug(ug2MATS)
## Bidirected graphs
graph::edgemode(ugNEL)
graph::edgemode(ugNEL) <- "directed"
graph::edgemode(ugNEL)
is_dag(ugNEL)
is_ug(ugNEL)
# }
Run the code above in your browser using DataLab