相互情報量のWiki Rでは、 library(infotheo) x <- runif(100) y <- runif(100) xy <- cbind(x,y) # マス目に分割して計算する discr.xy <- discretize(xy) # xとyとが対応があって、その相互情報量 I <- mutinformation(discr.xy[,1],discr.xy[,2]) t <- se…