if(require("Rgraphviz")) {
## simple example
plot(as.relation(1 : 5))
## inclusion on a power set:
ps <- 2 ^ set("a", "b", "c")
inc <- set_outer(ps, set_is_subset)
plot(relation(incidence = inc))
}
Run the code above in your browser using DataLab