发帖
雷达卡
怎么用SPSS快速计算某地的人口“期望寿命”（分享之4）
福建省疾控中心 潘宝骏(13509366051@163.com)
* 例子引自方积乾主编: 卫生统计学, 第 7 版, 人民卫生出版社,2016年，P.372.
DATA LIST FREE /x p d.
VARIABLE LABELS x '年龄组' /p '人口数' /d '死亡数'.
BEGIN DATA.
0 20005 156
1 86920 58
5 102502 47
10 151494 49
15 182932 48
20 203107 68
25 240289 120
30 247076 162
35 199665 160
40 163820 294
45 145382 417
50 86789 522
55 69368 546
60 51207 628
65 39112 891
70 20509 831
75 12301 926
80 6586 731
85 1909 269
END DATA.
FORMATS x p d(F10.0).
COMPUTE m=d/p.
COMPUTE n=5.
IF (x=0) n=1.
IF (x=1) n=4.
COMPUTE q=2*n*m/(2+n*m).
IF (x=0) q=d/p.
IF (x=85) q=1.
IF (x=0) l1=100000.
IF (x=0) d1=100000*q.
IF (x=0) l2=100000-d1.
LOOP IF (x>0).
COMPUTE l1=LAG(l2).
COMPUTE d1=l1*q.
COMPUTE l2=l1-d1.
END LOOP IF (x=85).
COMPUTE l=n/2*(l1+l2).
IF (x=0) l=l2+0.15*100000*q.
IF (x=85) l=l1/m.
SORT CASES BY x(D).
CREATE t=CSUM(l).
SORT CASES BY x(A).
COMPUTE e=t/l1.
FORMATS m q(F9.6) l1 d1 l2 l t(F11.0) n (F4.0).
LIST VARIABLES=x p d m q l e /CASES=From 1 TO 19.
x p d m q l e 0 20005 156 0.007798 0.007798 99337 75.67 1 86920 58 0.000667 0.002666 396352 75.26 5 102502 47 0.000459 0.00229 494212 71.45 10 151494 49 0.000323 0.001616 493247 66.61 15 182932 48 0.000262 0.001311 492525 61.72 20 203107 68 0.000335 0.001673 491790 56.79 25 240289 120 0.000499 0.002494 490766 51.89 30 247076 162 0.000656 0.003273 489351 47.01 35 199665 160 0.000801 0.003999 487572 42.16 40 163820 294 0.001795 0.008933 484422 37.31 45 145382 417 0.002868 0.014239 478815 32.63 50 86789 522 0.006015 0.029627 468339 28.06 55 69368 546 0.007871 0.038596 452395 23.84 60 51207 628 0.012264 0.059496 430300 19.7 65 39112 891 0.022781 0.107766 394632 15.79 70 20509 831 0.040519 0.183959 337926 12.39 75 12301 926 0.075278 0.316776 255593 9.62 80 6586 731 0.110993 0.434421 162422 7.93 85 1909 269 0.140911 1.000000 166563 7.10
京公网安备 11010802022788号
