this is for R programming week 3 assignment