ugr <- ug(~me:ve,~me:al,~ve:al,~al:an,~al:st,~an:st)
ugr <- ug(~me:ve:al,~al:an:st)
ugr <- ug(c("me","ve"),c("me","al"),c("ve","al"),c("al","an"),c("al","st"),c("an","st"))
ugr <- ug(~me:ve:al, c("me","ve"),c("me","al"),c("ve","al"),c("al","an"),c("al","st"),c("an","st"))
dagr <- dag(c("me","ve"),c("me","al"),c("ve","al"),c("al","an"),c("al","st"),c("an","st"))
dagr <- dag(~me:ve,~me:al,~ve:al,~al:an,~al:st,~an:st)
dagr <- dag(~me:ve:al,~ve:al:an)
edges(ugr)
nodes(ugr)
edges(dagr)
nodes(dagr)
ugList(list(~me:ve:al,~al:an:st))
dagList(list(~me:ve:al,~ve:al:an))
Run the code above in your browser using DataLab