R Programming Ass 1 updated