powered by
glist2adjMAT(glist, vn = uniquePrim(c(glist, recursive = TRUE)), result="matrix") vpaL2adjMAT(vpaL, vn=uniquePrim(c(vpaL, recursive=TRUE)), result="matrix")
"matrix"
"Matrix"
NULL
glist
ug
dag
glist <- list(1:3,2:4,4:5) am1 <- glist2adjMAT(glist) am2 <- vpaL2adjMAT(glist) ## plot(coerceGraph(am1, "igraph")) ## plot(coerceGraph(am2, "igraph"))
Run the code above in your browser using DataLab