R Coding stuff from the Meetup Group