assignment1PML.R