# load a dataset
data("incubA")
# a partial order of strings from dataset image matrix
po <- incubA |> getElement("IM") |>
as.strings() |>
partial.order(type="strings")
# plot the order relation as a Hasse diagram
if (FALSE) if(require(Rgraphviz)) {
plot(hasse(po))
}
Run the code above in your browser using DataLab