Updated R code

Downloading file from S3