R Programming Assignent 1