Create load_data.R

added script to load raw data and save it in a cvs file