Update Assignment1.R