r programming assignment2