Update totalnumberofpeople.R