## Create the data: two binary relations among three elements
arr <- round( replace( array(runif(18), c(3,3,2)), array(runif(18),
c(3,3,2))>.9, 3 ) )
## Make the Relation Box
rarr <- rbox(arr)
## Calculate the cumulated person hierarchy
cph(rarr)
Run the code above in your browser using DataLab