RprogrammingAss2