Code handout for April 3 2014 UMSL R Workshop