R programming assignment2 upload