R script created, downloads data