## Undirected graphs
##
ugr <- ug(~me+ve,~me+al,~ve+al,~al+an,~al+st,~an+st)
edges(ugr)
nodes(ugr)
mcs(ugr)
mcsMAT(as.adjMAT(ugr))
rip(ugr)
ripMAT(as.adjMAT(ugr))
## Directed graphs
##
dagr <- dag(~me+ve,~me+al,~ve+al,~al+an,~al+st,~an+st)
edges(dagr)
nodes(dagr)
moralize(dagr)
Run the code above in your browser using DataLab