R Code for GES673 UMBC