Homework 3 with R