intM <- c(0,1,0,0,1,1,0,0,1,0,0,1,1,0,1,0)
dim(intM) <- c(4,4)
dimnames(intM) <- list(c("p1","p2","p3","p4"),c("p1","p3","p5","p7") )
respV <- c("p6","p8")
intM
getUniquePairs(intM,respV,only=FALSE)
getUniquePairs(intM,respV,only=TRUE)
getUniquePairs(intM,only=FALSE)
getUniquePairs(intM,only=TRUE)
Run the code above in your browser using DataLab