powered by
subg(g, dat, refcol=1, maincomp=TRUE, connected=TRUE, transdat=TRUE)
data(hs.inter) data(ER.deg) #subnet <- subg(g=hs.inter, dat=ER.deg$dat, refcol=1)
Run the code above in your browser using DataLab