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