Update Assignment_1.R