Changed r file
Final files - PML Assignment