Added downloading/unzipping to R script