adding R homework