R Programming Assignment # 1