el <- as_edgelist(ga)
el
     [,1] [,2]
[1,]    1    2
[2,]    2    3
[3,]    3    4
[4,]    4    5
[5,]    5    6
[6,]    6    7
[7,]    7    8
[8,]    1    8

el[3,1]
[1] 3
el[3,2]
[1] 4

nrow(el)
[1] 8


