if (FALSE) {
MyData <- coexpression.data
My_graph <- graph_from_data_frame(MyData)
GraphVertices <- V(My_graph)
cr <- clusterRank(graph = My_graph, vids = GraphVertices,
directed = FALSE, loops = TRUE, ncores = 1)
}
Run the code above in your browser using DataLab