最近我们被客户要求撰写关于Lee-Carter模型的研究报告,包括一些图形和统计输出。
昨天上午,我们获得了分娩产妇的平均年龄两个图表,根据孩子的出生顺序排序,区间是1905-1965年:
然后是1960-2000年:
这些图形令人兴奋,特别是在过去30年中观察到的增长方面,这使我想到了寿命的增长趋势。我们可以找到其他有趣的数据(在这种情况下为平均 出生年龄 )。
> age$Age=as.character(age$AGE)
> age$AGE=as.numeric(substr(age$Age,1,2))+
+ as.numeric(substr(age$Age,4,4))/10
> plot(age$ANNEE+.5,age$AGE,
+ type="l",lwd=2,col="blue")
我们在上面的图中发现深蓝色的曲线,
获取祖母的平均年龄,我们进一步分析
> tail(age)
AGE