Update assignment1PML.R