z <- apply(dat, 1, function(x) paste(sort(x), collapse=""))
zz <- outer(z,z,"==")
data.frame(first=col(zz)[lower.tri(zz)][zz[lower.tri(zz)]],second=row(zz)[lower.tri(zz)][zz[lower.tri(zz)]])
there should be a bettter solution...
---
Dear all,
I have carried out a pairwise comparison study that I want to analyze
using the BradleyTerry package to establish a rank order of my
stimuli. However, BT does not handle ties between stimuli, so I need
to find those in my data before I can use that model.
The code below goes from the fo