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)

}

}