temp R file to download and load data

temp R file to download and load data