# NOT RUN {
h1 <- hypergraph_from_edgelist(list(1:3,3:5,4:9,2:6))
h2 <- hypergraph_from_edgelist(list(2:3,3:5,4:9,2:6,c(3,5,10:11)))
hypergraph.disjoint.union(h1,h2)
hypergraph.union(h1,h2)
hypergraph.intersection(h1,h2)
# }
Run the code above in your browser using DataLab