Rでエントロピーの概算

Rでエントロピーの概算：

x<-rnorm(10^5)
v<-hist(x,32)
sum(log(v$density)*v$density*mean(diff(v$mid)),na.rm=T)
非連続なら
entropy.empirical(table(x))

entropyパッケージ