# load a dataset
data("incubA")
# given e.g. a partial order table in the object 'po'
po <- as.strings(incubA$IM) |>
partial.order(type="strings")
# plot the order relation as a Hasse diagram
if (FALSE) if(require(Rgraphviz)) {
plot(hasse(po))
}
Run the code above in your browser using DataLab