R-Progr assigment 2