Create Load_the_data.R