uploading first R script