## graphNEL
uG <- ug(~me:ve + me:al + ve:al + al:an + al:st + an:st)
mcs(uG)
rip(uG)
jTree(uG)
## Adjacency matrix
uG <- ug(~me:ve:al + al:an:st, result="matrix")
mcs(uG)
rip(uG)
jTree(uG)
## Sparse adjacency matrix
uG <- ug(c("me","ve","al"),c("al","an","st"), result="Matrix")
mcs(uG)
rip(uG)
jTree(uG)
## Non--decomposable graph
uG <- ug(~1:2+2:3+3:4+4:5+5:1)
mcs(uG)
rip(uG)
jTree(uG)
Run the code above in your browser using DataLab