Update Data_byCountry.R