Create pop.R

i'm up to  "weight wessels groups", trying to make a mean weight for each country, but maybe in a simpler way to previously, by summing for each countrycode.