vacOutcomeAgegroup.RdAgegroups
vacOutcomeAgegroup(x, agecuts)
data.frame(age = 0:100,
group = vacOutcomeAgegroup(0:100, agecuts = c(0, 12, 16, 20, 30, 40, 50, 60, 70, 80, Inf))
)
#> age group
#> 1 0 0-11
#> 2 1 0-11
#> 3 2 0-11
#> 4 3 0-11
#> 5 4 0-11
#> 6 5 0-11
#> 7 6 0-11
#> 8 7 0-11
#> 9 8 0-11
#> 10 9 0-11
#> 11 10 0-11
#> 12 11 0-11
#> 13 12 12-15
#> 14 13 12-15
#> 15 14 12-15
#> 16 15 12-15
#> 17 16 16-19
#> 18 17 16-19
#> 19 18 16-19
#> 20 19 16-19
#> 21 20 20-29
#> 22 21 20-29
#> 23 22 20-29
#> 24 23 20-29
#> 25 24 20-29
#> 26 25 20-29
#> 27 26 20-29
#> 28 27 20-29
#> 29 28 20-29
#> 30 29 20-29
#> 31 30 30-39
#> 32 31 30-39
#> 33 32 30-39
#> 34 33 30-39
#> 35 34 30-39
#> 36 35 30-39
#> 37 36 30-39
#> 38 37 30-39
#> 39 38 30-39
#> 40 39 30-39
#> 41 40 40-49
#> 42 41 40-49
#> 43 42 40-49
#> 44 43 40-49
#> 45 44 40-49
#> 46 45 40-49
#> 47 46 40-49
#> 48 47 40-49
#> 49 48 40-49
#> 50 49 40-49
#> 51 50 50-59
#> 52 51 50-59
#> 53 52 50-59
#> 54 53 50-59
#> 55 54 50-59
#> 56 55 50-59
#> 57 56 50-59
#> 58 57 50-59
#> 59 58 50-59
#> 60 59 50-59
#> 61 60 60-69
#> 62 61 60-69
#> 63 62 60-69
#> 64 63 60-69
#> 65 64 60-69
#> 66 65 60-69
#> 67 66 60-69
#> 68 67 60-69
#> 69 68 60-69
#> 70 69 60-69
#> 71 70 70-79
#> 72 71 70-79
#> 73 72 70-79
#> 74 73 70-79
#> 75 74 70-79
#> 76 75 70-79
#> 77 76 70-79
#> 78 77 70-79
#> 79 78 70-79
#> 80 79 70-79
#> 81 80 80-Inf
#> 82 81 80-Inf
#> 83 82 80-Inf
#> 84 83 80-Inf
#> 85 84 80-Inf
#> 86 85 80-Inf
#> 87 86 80-Inf
#> 88 87 80-Inf
#> 89 88 80-Inf
#> 90 89 80-Inf
#> 91 90 80-Inf
#> 92 91 80-Inf
#> 93 92 80-Inf
#> 94 93 80-Inf
#> 95 94 80-Inf
#> 96 95 80-Inf
#> 97 96 80-Inf
#> 98 97 80-Inf
#> 99 98 80-Inf
#> 100 99 80-Inf
#> 101 100 80-Inf