entropy.r added