kst <- kstructure(set(set(), set("a"), set("b"), set("c"), set("a","b"),
set("b","c"), set("a","b","c")))
kstructure_is_wellgraded(kst)
kst <- kstructure(set(set(), set("a"), set("b"), set("c"), set("a","b"),
set("a","b","c")))
kstructure_is_wellgraded(kst)
Run the code above in your browser using DataLab