data(DysData)
Dysenv <- new.pim.env(DysData)
Dysenv
DysenvAll <- add.poset(Dysenv, overwrite = TRUE,
compare = 'all', nobs = nobs(DysData))
compare(Dysenv)
compare(DysenvAll)
Run the code above in your browser using DataLab