## methods for "paircomp" data
pc <- paircomp(rbind(
c(2, 1, 0),
c(1, 1, -1),
c(1, -2, -1),
c(0, 0, 0)))
pc
## extract
mscale(pc)
## replace (collapse to >/=/< scale)
mscale(pc) <- sign(mscale(pc))
pcRun the code above in your browser using DataLab