ee = c("[email protected]","[email protected]","[email protected]","[email protected]")
supv = c("[email protected]","[email protected]","[email protected]","[email protected]")
hierarchy(ee,supv,format="long",descending=TRUE)
Run the code above in your browser using DataLab