Create loadingdata.R