R scripts for the getdata quizzes