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