final assignment on R course