## Load the data, and obtain the partial order
data("incubA")
po <- partial.order(strings(incubA))
## Get a cluster vector given induced inclusion on the PO
iinc("0,0", po, prsep=",")
iinc(transf(1-po), po)
Run the code above in your browser using DataLab