Create download_prepare_data.R

this file contains the function for downloading and cleaning the data, one can just source this file in R Console, and then just call the function for e.g 
"data<-prepareData()"