R course assigment