library(iPRISM)
data(ppi, package = "iPRISM")
# \donttest{
library(igraph)
graph <- simplify(ppi)
graph_comp <- components(graph)$membership == which.max(components(graph)$csize)
graph <- induced_subgraph(graph, V(graph)[graph_comp])
plot(graph)
# }
Run the code above in your browser using DataLab