_ /* BASIC PROGRAM FOR WEB. */ LIBNAME A "C:\SAS\DATA"; OPTIONS LS=75 PS=500 NOLABEL; DATA XXX; SET A.S3DATA; *PUT RUN AT END; ARRAY KK KK01-KK51; DO OVER KK; KK=0;END; * ARKANSA 7-26-95; IF STATE = 04 THEN DO; IF YEAR = 95 THEN DO; KK04 =.3; END; IF YEAR GT 95 THEN DO; KK04 = 1; END; END; * CALIFOR 3-7-94; IF STATE = 05 THEN DO; IF YEAR = 94 THEN DO; KK05 =.8; END; IF YEAR GT 94 THEN DO; KK05 = 1; END; END; * COLORA 5-31-94; IF STATE = 06 THEN DO; IF YEAR = 94 THEN DO; KK06 =.6; END; IF YEAR GT 94 THEN DO; KK06 = 1; END; END; * CONN. 10-1-94; IF STATE = 07 THEN DO; IF YEAR = 94 THEN DO; KK07 =.3; END; IF YEAR GT 94 THEN DO; KK07 = 1; END; END; * FLORIDA 10-1-95; IF STATE = 10 THEN DO; IF YEAR = 95 THEN DO; KK10 =.3; END; IF YEAR GT 95 THEN DO; KK10 = 1; END; END; * GEORGIA 1-1-95; IF STATE = 11 THEN DO; IF YEAR = 95 THEN DO; KK11 = 1; END; IF YEAR GT 95 THEN DO; KK11 = 1; END; END; * INDIANA 7-1-94; IF STATE = 15 THEN DO; IF YEAR = 94 THEN DO; KK15 =.5; END; IF YEAR GT 94 THEN DO; KK15 = 1; END; END; * KANSAS 7-1-94; IF STATE = 17 THEN DO; IF YEAR = 94 THEN DO; KK17 =.5; END; IF YEAR GT 94 THEN DO; KK17 = 1; END; END; * LOUISIA 8-27-94; IF STATE = 19 THEN DO; IF YEAR = 94 THEN DO; KK19 =.3; END; IF YEAR GT 94 THEN DO; KK19 = 1; END; END; * MARYLAND 6-1-94; IF STATE = 21 THEN DO; IF YEAR = 94 THEN DO; KK21 =.6; END; IF YEAR GT 94 THEN DO; KK21 = 1; END; END; * MONTANA 7-1-95; IF STATE = 27 THEN DO; IF YEAR = 95 THEN DO; KK27 =.5; END; IF YEAR GT 95 THEN DO; KK27 = 1; END; END; * NEVADA 7-1-95; IF STATE = 29 THEN DO; IF YEAR = 95 THEN DO; KK29 =.5; END; IF YEAR GT 95 THEN DO; KK29 = 1; END; END; * NEW JER 6-22-95; IF STATE = 31 THEN DO; IF YEAR = 95 THEN DO; KK31 =.5; END; IF YEAR GT 95 THEN DO; KK31 = 1; END; END; * NEW MEX 7-1-94; IF STATE = 32 THEN DO; IF YEAR = 94 THEN DO; KK32 =.5; END; IF YEAR GT 94 THEN DO; KK32 = 1; END; END; * NORTH CA 5-1-94; IF STATE = 34 THEN DO; IF YEAR = 94 THEN DO; KK34 =.7; END; IF YEAR GT 94 THEN DO; KK34 = 1; END; END; * NORTH DA 7-1-95; IF STATE = 35 THEN DO; IF YEAR = 95 THEN DO; KK35 =.5; END; IF YEAR GT 95 THEN DO; KK35 = 1; END; END; * PENNSY 12-10-95; IF STATE = 39 THEN DO; IF YEAR = 95 THEN DO; KK39 =.1; END; IF YEAR GT 95 THEN DO; KK39 = 1; END; END; * SOUTH CA 1-1-96; IF STATE = 41 THEN DO; IF YEAR = 96 THEN DO; KK41 = 1; END; IF YEAR GT 96 THEN DO; KK41 = 1; END; END; * TENNESSE 7-1-94; IF STATE = 43 THEN DO; IF YEAR = 94 THEN DO; KK43 =.5; END; IF YEAR GT 94 THEN DO; KK43 = 1; END; END; * UTAH 5-1-95; IF STATE = 45 THEN DO; IF YEAR = 95 THEN DO; KK45 =.7; END; IF YEAR GT 95 THEN DO; KK45 = 1; END; END; * VERMONT 7-1-95; IF STATE = 46 THEN DO; IF YEAR = 95 THEN DO; KK46 =.5; END; IF YEAR GT 95 THEN DO; KK46 = 1; END; END; * VIRGINIA 7-1-94; IF STATE = 47 THEN DO; IF YEAR = 94 THEN DO; KK47 =.5; END; IF YEAR GT 94 THEN DO; KK47 = 1; END; END; * WASHING 12-2-93; IF STATE = 48 THEN DO; IF YEAR = 93 THEN DO; KK48 =.1; END; IF YEAR GT 93 THEN DO; KK48 = 1; END; END; * WISCONS 4-28-94; IF STATE = 50 THEN DO; IF YEAR = 94 THEN DO; KK50 =.7; END; IF YEAR GT 94 THEN DO; KK50 = 1; END; END; KKZ=KK04+KK05+KK06+KK07+KK10+KK11+KK15+ KK17+KK19+KK21+KK27+KK29+KK31+KK32+ KK34+KK35+KK39+KK41+KK43+KK45+KK46+ KK47+KK48+KK50; ARRAY LAW KKZ KK01-KK51; ARRAY LAGLAW1 KKZ1 KK101-KK151; DO OVER LAGLAW1; LAGLAW1=LAG(LAW); END; ARRAY LAGLAW2 KKZ2 KK201-KK251; DO OVER LAGLAW2; LAGLAW2=LAG2(LAW); END; ARRAY LAGLAW3 KKZ3 KK301-KK351; DO OVER LAGLAW3; LAGLAW3=LAG3(LAW); END; ARRAY LAGLAW4 KKZ4 KK401-KK451; DO OVER LAGLAW4; LAGLAW4=LAG4(LAW); END; ARRAY LAGLAW5 KKZ5 KK501-KK551; DO OVER LAGLAW5; LAGLAW5=LAG5(LAW); END; ARRAY LAGLAW6 KKZ6 KK601-KK651; DO OVER LAGLAW6; LAGLAW6=LAG6(LAW); END; ARRAY DISLAG KKDLZ KKDL01-KKDL51; DO OVER DISLAG; DISLAG=SUM(OF LAW LAGLAW1-LAGLAW4)/5; END; ARRAY LAWTREND KKTRZ KKTR01-KKTR51; DO OVER DISLAG; LAWTREND=SUM(OF LAGLAW1-LAGLAW6); END; ARRAY POPAGE P1519 P2024 P2529; DO OVER POPAGE; POPAGE=POPAGE/P0099*100; END; CRTOT=CRTOT-CRMUR; CRVIO= CRRAP+CRASS+CRROB; CRMAJ= CRRAP+CRASS+CRROB+CRBUR; RTPI=TPI/CPI/100; EMPLOY=EMPLOY/1000;; PRCYE=(PRCYE+LAG(PRCYE))/2; ARRAY ZZZZ CRMAJ CRTOT CRVIO CRPRO CRMUR CRRAP CRROB CRASS CRBUR CRLAR CRMV EMPLOY RTPI PRCYE; DO OVER ZZZZ; ZZZZ=ZZZZ/POP*100;END; ARRAY LEVELS P1519 P2024 P2529 CRMAJ CRTOT CRVIO CRPRO CRMUR CRRAP CRROB CRASS CRBUR CRLAR CRMV UNRATE PRATE RTPI EMPLOY AMPCT METPCT PRCYE; ARRAY FORLOGS LP1519 LP2024 LP2529 LCRMAJ LCRTOT LCRVIO LCRPRO LCRMUR LCRRAP LCRROB LCRASS LCRBUR LCRLAR LCRMV LUNRATE LPRATE LRTPI LEMPLOY LAMPCT LMETPCT LPRCYE; DO OVER LEVELS; FORLOGS=LOG(LEVELS); END; TREND=YEAR-69;IF TREND LT 1 THEN TREND=1;TRENDX=TREND**2; ARRAY TR TR1-TR51;DO OVER TR;IF _I_=STATE THEN TR=TREND;ELSE TR=0;END; ARRAY TRX TRX1-TRX51; DO OVER TRX; TRX=TR-21; IF TRX LT 0 THEN TRX = 0; END; ARRAY QD QD1-QD51;DO OVER QD;IF _I_=STATE THEN QD=TRENDX;ELSE QD=0;END; ARRAY ST ST1-ST51;DO OVER ST;IF _I_=STATE THEN ST=1; ELSE ST=0; END; ARRAY Y Y59-Y101; DO OVER Y; IF _I_+58=YEAR THEN Y=1; ELSE Y=0; END; VVV=LCRMUR; WTMUR=POP**1; WTRAP=POP**.7; WTROB=POP**.5; WTASS=POP**.6; WTBUR=POP**.3; WTLAR=POP**.3; WTMV=POP**.3; WTPRCYE=POP**.2; VVV1=LAG(VVV); VVV2=LAG2(VVV); PROC REG; TITLE MURDER BASIC, KKZ; WEIGHT WTMUR; MODEL VVV = KKZ LP1519 LP2024 LP2529 LUNRATE LEMPLOY LRTPI LPRATE LAMPCT LMETPCT LPRCYE VVV1 VVV2 Y71-Y98 ST2-ST8 ST10-ST51 ; PROC REG OUTEST=EST1; TITLE MURDER IND LAWS; WEIGHT WTMUR; MODEL VVV = KK04 KK05 KK06 KK07 KK10 KK11 KK15 KK17 KK19 KK21 KK27 KK29 KK31 KK32 KK34 KK35 KK39 KK41 KK43 KK45 KK46 KK47 KK48 KK50 LP1519 LP2024 LP2529 LUNRATE LEMPLOY LRTPI LPRATE LAMPCT LMETPCT LPRCYE VVV1 VVV2 Y71-Y98 ST2-ST8 ST10-ST51 ; TEST KK04,KK05,KK06,KK07,KK10,KK11,KK15,KK17,KK19,KK21, KK27,KK29,KK31,KK32,KK34,KK35,KK39,KK41,KK43,KK45, KK46,KK47,KK48,KK50; DATA EST1; SET EST1; ARRAY FORSUM KK01-KK51; DO OVER FORSUM; IF FORSUM=. THEN FORSUM=0;END; MEAN=SUM(OF KK01-KK51)/24; ARRAY FORSQR KKSQR01-KKSQR51; DO OVER FORSQR; FORSQR=(FORSUM-MEAN)**2; IF FORSUM=0 THEN FORSQR=0; END; VARIANCE=SUM(OF KKSQR01-KKSQR51)/(24*23); SD=VARIANCE**.5; TRATIO=MEAN/SD; PROC PRINT; VAR MEAN TRATIO SD VARIANCE; PROC REG DATA=XXX; TITLE MURDER BASIC, KKZ, WITH ST. TRENDS; WEIGHT WTMUR; MODEL VVV = KKZ LP1519 LP2024 LP2529 LUNRATE LEMPLOY LRTPI LPRATE LAMPCT LMETPCT LPRCYE VVV1 VVV2 Y71-Y98 ST2-ST8 ST10-ST51 TR2-TR8 TR10-TR51 ; PROC REG DATA=XXX OUTEST=EST2; TITLE IND LAWS, WITH ST TRENDS; WEIGHT WTMUR; MODEL VVV = KK04 KK05 KK06 KK07 KK10 KK11 KK15 KK17 KK19 KK21 KK27 KK29 KK31 KK32 KK34 KK35 KK39 KK41 KK43 KK45 KK46 KK47 KK48 KK50 LP1519 LP2024 LP2529 LUNRATE LEMPLOY LRTPI LPRATE LAMPCT LMETPCT LPRCYE VVV1 VVV2 Y71-Y98 ST2-ST8 ST10-ST51 TR2-TR8 TR10-TR51; TEST KK04,KK05,KK06,KK07,KK10,KK11,KK15,KK17,KK19,KK21, KK27,KK29,KK31,KK32,KK34,KK35,KK39,KK41,KK43,KK45, KK46,KK47,KK48,KK50; DATA EST2; SET EST2; ARRAY FORSUM KK01-KK51; DO OVER FORSUM; IF FORSUM=. THEN FORSUM=0;END; MEAN=SUM(OF KK01-KK51)/24; ARRAY FORSQR KKSQR01-KKSQR51; DO OVER FORSQR; FORSQR=(FORSUM-MEAN)**2; IF FORSUM=0 THEN FORSQR=0; END; VARIANCE=SUM(OF KKSQR01-KKSQR51)/(24*23); SD=VARIANCE**.5; TRATIO=MEAN/SD; PROC PRINT; VAR MEAN TRATIO SD VARIANCE; RUN;