This for R programming Assignment