had no ideas for r so I decided;