Adding R script for Week 3 Entropy Project