powered by
edgeDeletedSubgraphs(gs)
library(graph) set.seed(123) g <- randomEGraph(as.character(1:8), 0.55) one.eds <- edgeDeletedSubgraphs(g) two.eds <- edgeDeletedSubgraphs(one.eds)
Run the code above in your browser using DataLab