Update Entropy.R