統計学演習‎ > ‎確率‎ > ‎

確率 - 例題2

新生児一万人のある年齢まで生き残る数
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

生まれて10年後に死ぬ確率
(10000-9590)/10000 = 0.041

60歳まで生きる確率
7590/10000 = 0.759

30才から40才までに死ぬ
(9295-9067)/10000 = 0.0228

40才の人が10年以内に死ぬ
(9067-8651)/9067 = 0.04588
Comments