install.packages("igraph")
library(igraph)
ga <- sample_smallworld(dim=1, size=8, nei=1, p=0)
plot(ga, layout=layout_in_circle)


