Create calEntropy.R