Updated the r code file; Small formating changes: 2014-05-02 12:52:36