Update AS.410.671.FA13_Lab3.R