Uploaded completed R script