Playing about with a dataset and R