R Programming Project 2