R Programming Ass 1 Done