# NOT RUN {
data(obfuscation)
oc <- paired.to.contingency(group = obfuscation[,c("subject", "atom")],
t1 = obfuscation$control,
t2 = obfuscation$treatment)
clust.bin.pair(oc$ak, oc$bk, oc$ck, oc$dk, method="durkalski")
# }
Run the code above in your browser using DataLab