## load the data
data("incubA")
## given e.g. a partial order table in the object 'po'
po <- partial.order(as.strings(incubA$IM))
## find the levels in the lattice diagram
## Not run: diagram.levels(po)
Run the code above in your browser using DataLab