# NOT RUN {
h <- hypergraph_from_edgelist(list(3:7,8:12,c(1,3,9)))
k <- reorder_vertices(h)
hnames(h)
hnames(k)
h <- hypergraph_from_edgelist(list(letters[3:7],letters[8:12],
LETTERS[c(1,3,9)]))
k <- reorder_vertices(h)
hnames(h)
hnames(k)
# }
Run the code above in your browser using DataLab