Initial code

R code to upload data