R Programming Project 1