require(curl) require(igraph)
library(“curl”, lib.loc=“/Library/Frameworks/R.framework/Versions/3.1/Resources/library”) library(“igraph”, lib.loc=“/Library/Frameworks/R.framework/Versions/3.1/Resources/library”)
vertex=data.frame(node) network=graph.data.frame(edge,directed=TRUE,vertices=vertex) ecount(network) V(network) summary(network) network <- set.graph.attribute(network, “layout”, layout.kamada.kawai(network)) plot(network,vertex.shape=“circle”, vertex.color=“red” ,vertex.size=5)