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) if (interactive()){ plot(as(am1, "graphNEL")) plot(as(am2, "graphNEL")) }
Run the code above in your browser using DataLab