set.seed(2016); tab2 <- matrix(sample(1:2, size=42, replace=TRUE), ncol=7)
if(requireNamespace("flexclust")) { flexclust::comPart(tab2[1,], tab2[2,])
flexclust::comPart(tab2[1,], tab2[3,])
flexclust::comPart(tab2[1,], tab2[4,]) }
## via randIndFx():
randIndFx(tab2, adjSense=FALSE)
cor(t(tab2))
randIndFx(tab2, adjSense=TRUE)
Run the code above in your browser using DataLab