怎么用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