R Programming class midterm