intM <- matrix(c(0,1,0,0,1,1,1,0,1,1,1,1,1,0,1,1),
nrow=4, ncol=4,
dimnames=list(c("p1","p2","p3","p4"),
c("p1","p3","p5","p7")))
sharedInt <- getSharedInteraction(intM)
score <- congruence(intM, sharedInt, mode="query", universe=15, padjust=FALSE)
Run the code above in your browser using DataLab