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