## get tables
irefindex_curr_ecoli = get_irefindex("562", "13.0", tempdir())
INTACT_curr_ecoli = select_database("intact", irefindex_curr_ecoli, "this_database")
edgeList_ecoli = convert_MITAB_to_edgeList(INTACT_curr_ecoli, "default", "spoke")
graph_ecoli = convert_edgeList_to_graph(edgeList_ecoli, graphical_package="igraph")
## execute function
if(interactive()) {
summary = summary_graph(graph_ecoli, "igraph")
summary$nodes_and_edges
table(summary$degree_distribution)
x11(); hist(summary$degree_distribution)
table(summary$nodes_per_connected_component)
x11(); barplot(summary$nodes_per_connected_component, xlab="Size Components",
ylab="Number Components")
title(main="Distribution of Connected Components")
summary$graph_per_module[[1]]
}
Run the code above in your browser using DataLab