programming assignment 1 for r programming