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