# NOT RUN {
h <- hypergraph_from_edgelist(list(c(1:4,16),
c(4:7,16),
c(4,8:10,16),
c(4,10:16),
c(4,16)))
is.star(h) ## TRUE
is.star(h,type='strong') ## FALSE
intersection_set(h) ## 4, 16
# }
Run the code above in your browser using DataLab