completed r programming assignment 1