Check in complete.R for Assignment1