week9quiz.r