Quiz 2 data and R program