Add finished assignment 1 R Programming