quiz2.R work