entropyfunctions.R