Expand age groups population.

Usage

expand_age_pop(x, method = "linear")

Arguments

x: Vector, population for each age group.
method: Method for expanding, options are 'linear', 'constant', 'periodic', or 'natural'. Default is 'linear'.

Value

Vector contain the expanded age population.

Examples

ages <- c(
  5053, 17743, 25541, 32509, 30530, 34806, 36846, 38691, 40056,
  39252, 37349, 30507, 26363, 21684, 15362, 11725, 7461, 3260, 915)
expand_age_pop(ages)
#>     x    y
#> 1   0 5053
#> 2   1 4649
#> 3   2 4446
#> 4   3 4240
#> 5   4 4408
#> 6   5 4704
#> 7   6 4874
#> 8   7 5042
#> 9   8 5321
#> 10  9 5600
#> 11 10 6158
#> 12 11 6438
#> 13 12 6717
#> 14 13 6638
#> 15 14 6558
#> 16 15 6114
#> 17 16 6035
#> 18 17 5956
#> 19 18 6127
#> 20 19 6298
#> 21 20 6672
#> 22 21 6844
#> 23 22 7015
#> 24 23 7097
#> 25 24 7178
#> 26 25 7209
#> 27 26 7293
#> 28 27 7374
#> 29 28 7448
#> 30 29 7522
#> 31 30 7601
#> 32 31 7676
#> 33 32 7750
#> 34 33 7805
#> 35 34 7859
#> 36 35 7954
#> 37 36 8009
#> 38 37 8063
#> 39 38 8031
#> 40 39 7999
#> 41 40 7943
#> 42 41 7909
#> 43 42 7876
#> 44 43 7800
#> 45 44 7724
#> 46 45 7739
#> 47 46 7665
#> 48 47 7589
#> 49 48 7315
#> 50 49 7041
#> 51 50 6585
#> 52 51 6310
#> 53 52 6036
#> 54 53 5871
#> 55 54 5705
#> 56 55 5617
#> 57 56 5451
#> 58 57 5286
#> 59 58 5098
#> 60 59 4911
#> 61 60 4752
#> 62 61 4563
#> 63 62 4376
#> 64 63 4123
#> 65 64 3870
#> 66 65 3513
#> 67 66 3261
#> 68 67 3008
#> 69 68 2863
#> 70 69 2717
#> 71 70 2652
#> 72 71 2505
#> 73 72 2360
#> 74 73 2189
#> 75 74 2019
#> 76 75 1830
#> 77 76 1662
#> 78 77 1491
#> 79 78 1323
#> 80 79 1155
#> 81 80  921
#> 82 81  755
#> 83 82  587
#> 84 83  528
#> 85 84  469
#> 86 85  299
#> 87 86  242
#> 88 87  182
#> 89 88  123
#> 90 89   64
#> 91 90    5
#> 92 91    0
#> 93 92    0