R/negentropy.R

negentropy <-
function(x){(1/12)*(mean(x^3)^2)+(1/48)*kurtosis(x)^2}
javiergarcirod/stfa documentation built on May 4, 2019, 6:40 p.m.