added complete.R assignment 2 wk2