Update EntropyProg.R