r programming assignment 2