R prog assignment2