
Last chance! 50% off unlimited learning
Sale ends in
# single age groups
x <- 1:100
rc9(x, rc9.fund)
plot(x, rc9(x, rc9.fund), type="l")
# 5 year age groups
x <- seq(2.5, 102.5, 5)
plot(x, rc9(x, rc9.fund), type="l")
Run the code above in your browser using DataLab