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