Homework 1 with R