R Programming first coded assignment