# check format
str(rc9.fund)
# single age groups
x <- 1:100
rc9(x, rc9.fund)
plot(x, rc9(x, rc9.fund), type="l")
# alter to see the effect of mu2
p1 <- rc9.fund
p1$mu2 <- 30
plot(x, rc9(x, rc9.fund), type="l")
lines(x, rc9(x, p1), lty=2)
Run the code above in your browser using DataLab