r proggraming assignment2