nn<-matrix(0,nrow=5000,ncol=5000)
for (i in 1:5000){
for(j in 1:5000){
x <- y.ct.m[i,]
y <- y.ct.m[j,]
nn[i,j]<-mutinformation(x,y)
}