r programming assignment 1