$people@{#@count_per_age_ctry <- !age,ctry}