三言小文,道尽相关性
library(infotheo) compute_fun<-function(x,y){ return(entropy(x)+entropy(y)-entropy(cbind(x,y))) } pvalue<-compute_fun(data[,1],data[,2])library(infotheo) compute_fun<-function(x,y){ return(entropy(x)+entropy(y)-entropy(cbind(x,y))) } pvalue<-compute_fun(data[,1],data[,2])