Update Initial_Example_R_Scripts.r