uploading R script