新生児一万人のある年齢まで生き残る数 sv <- data.frame(age=seq(0,90,10), suvives=c(10000,9590,9510,9295,9067,8651,7590,5278,3625,1530))>sv age suvives 1 0 10000 2 10 9590 3 20 9510 4 30 9295 5 40 9067 6 50 8651 7 60 7590 8 70 5278 9 80 3625 10 90 1530 生まれて１０年後に死ぬ確率 (10000-9590)/10000 = 0.041 60歳まで生きる確率 7590/10000 = 0.759 ３０才から４０才までに死ぬ (9295-9067)/10000 = 0.0228 ４０才の人が１０年以内に死ぬ (9067-8651)/9067 = 0.04588 |