R Code for the Data User Group