Uploading Asiignment 2 R code