# Test: small network - undirceted_unwweighted_connected
adjacency_undirected_unweighted_connected<-read.table("test_smaller_nw_adjacency_undirected_unweighted_connected.txt")
adjacency_matrix_undirected_unweighted_connected<-as.matrix(read.table("test_smaller_nw_adjacency_undirected_unweighted_connected.txt"))

g_adjacency_undirected_weighted_connected <- graph.adjacency(adjacency_matrix_undirected_unweighted_connected)

fg_undirected_unweighted_connected<-fastgreedy.community(g_adjacency_undirected_weighted_connected)
g_adjacency_undirected_weighted_connected
membership(g_adjacency_undirected_weighted_connected)
sizes(g_adjacency_undirected_weighted_connected)