Update entropy.R