R Programming Asssignment