negentropy <- function(x){(1/12)*(mean(x^3)^2)+(1/48)*kurtosis(x)^2}
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.