[r] programming assignment 1