second R Homework