Initial checkin

This is the R code for performing the analysis associated with the peer
assessment