R homework1