programming assignment2 in R done