```
# NOT RUN {
#Create a graph....
g<-rgraph(5)
g
#Transpose it
gt(g)
gt(g)==t(g) #For adjacency matrices, same as t(g)
#Now, see both versions in edgelist form
as.edgelist.sna(g)
gt(g,return.as.edgelist=TRUE)
# }
```

Run the code above in your browser using DataLab