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