week9quiz.R