edgelist <- c(c(1,2),c(1,3),c(1,4),c(4,5),c(4,6))
graph <- make_graph(edgelist, directed=F)

edgelist <- c(c(7,2),c(7,3),c(7,5),c(7,6))
graph <- make_graph(edgelist, directed=F)