/* Program reads person-level data on crimes */

libname lib24 "W:\Uudet_datat\U0599_9_toim\";
libname lib100 "W:\Tutkimusprojektit\Kirjanpito\Dokumentaatio\JAR\Datat\";
run;

* Data on person-level crimes;

* Data from 1992 to 2019;

data rikokset_92_04;														
 set lib24.tuomiot_1992_2004_u0599_9_s;
 ika = substr(ikate, 2, 2); 			
run;

data rikokset_05;														
 set lib24.tuomiot_u0599_9_2005;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_06;														
 set lib24.tuomiot_u0599_9_2006;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_07;														
 set lib24.tuomiot_u0599_9_2007;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_08;														
 set lib24.tuomiot_u0599_9_2008;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_09;														
 set lib24.tuomiot_u0599_9_2009;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_10;														
 set lib24.tuomiot_u0599_9_2010;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_11;														
 set lib24.tuomiot_u0599_9_2011;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_12;														
 set lib24.tuomiot_u0599_9_2012;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_13;														
 set lib24.tuomiot_u0599_9_2013;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_14;														
 set lib24.tuomiot_u0599_9_2014;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_15;														
 set lib24.tuomiot_u0599_9_2015;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_16;														
 set lib24.tuomiot_u0599_9_2016;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_17;														
 set lib24.tuomiot_u0599_9_2017;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_18;														
 set lib24.tuomiot_u0599_9_2018;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_19;														
 set lib24.tuomiot_u0599_9_2019;
 ika = substr(ikate, 2, 2);										
run;

* Data from 1977 to 1991;

data rikokset_77_91;
 set lib24.uusrik_1977_2022_u0599_9_s;
 if VUOSI < 1992;
 if pslkm = . then pslkm = 0;

 RKOD1_2merk = substr (RKOD1,1,2);
 RKOD1_2merk_numerinen = RKOD1_2merk * 1;

 RKOD1_3merk = substr (RKOD1,1,3);
 RKOD1_3merk_numerinen = RKOD1_3merk * 1;

if RKOD1_2merk_numerinen = 16 then Oikeudenkaytto = 1;
if RKOD1_2merk_numerinen = 21 then HenkiTerveys = 1;
if RKOD1_2merk_numerinen = 23 then LiikenneRR = 1;
if RKOD1_2merk_numerinen = 28 then Omaisuus = 1;
if RKOD1_2merk_numerinen = 29 then Omaisuus = 1;
if RKOD1_2merk_numerinen = 32 then Omaisuus = 1;
if RKOD1_2merk_numerinen = 36 then Omaisuus = 1;

if 608 =< RKOD1_3merk_numerinen =< 609 then LiikenneRR = 1;
if 611 =< RKOD1_3merk_numerinen =< 612 then LiikenneRR = 1;

if RKOD1_3merk_numerinen = 753 then Oikeudenkaytto = 1;

if RKOD1_2merk_numerinen = 82 then Omaisuus = 1;

TEKOVUOSI = VUOSI;

run;

data rikokset_77_91_2;
set rikokset_77_91;

Tuomionumero = _n_;

if pno_s = '' then pno_s = Tuomionumero;

drop tuomionumero;

run;

data rikokset_77_19;
 set rikokset_92_04 rikokset_05 rikokset_06 rikokset_07 rikokset_08 rikokset_09 rikokset_10 rikokset_11
 rikokset_12 rikokset_13 rikokset_14 rikokset_15 rikokset_16 rikokset_17 rikokset_18 rikokset_19 rikokset_77_91_2;

rename shnro = ID;

run;

proc sort data = rikokset_77_19;
 by ID;
run;

data age;
 set lib100.demografiset_220524;
 keep ID BIRTHYEAR YEAR;
run;

proc sort data = age;
by id descending year;
run;

proc sort nodupkey data = age;									
 by ID;
run;


data rikokset_77_19_2;
 merge rikokset_77_19 age;
 by ID;
 if VUOSI = ' ' then delete;

 if BIRTHYEAR = . and ika = ' ' then delete; 		* Exclude executives whose age is unknown;
	
 AGE = ika*1;
	
 if ika = ' ' then AGE = RV - BIRTHYEAR;			* If age at the time of committing the crime is missing in the crime data, take age from democraphic data;
 		
 if AGE < 18 then delete;							* Exclude crimes committed under the age of 18;

 TEKOVUOSI = BIRTHYEAR + AGE;

 * Identifies different types of crimes;

 RKOD1_2merk = substr (RKOD1,1,2);
 RKOD1_3merk = substr (RKOD1,1,3);

 RKOD1_2merk_numerinen = RKOD1_2merk * 1;

 if rkod1 = '999999' then delete;

 if RKOD1_2merk = '29' then Talous_vanha = 1;
 if RKOD1_2merk = '36' and RKOD1_3merk ne '361' then Talous_vanha = 1;
 if RKOD1_2merk = '37' then Talous_vanha = 1;
 if RKOD1_2merk = '39' then Talous_vanha = 1;
 if RKOD1_2merk = '51' then Talous_vanha = 1;
 if RKOD1_2merk = '30' and (RKOD1 ne '300901' and RKOD1 ne '3009A1' and RKOD1 ne '301001') then Talous_vanha = 1;

 if RKOD1 = '320601' or RKOD1 = '320602' or RKOD1 = '320701' or RKOD1 = '320702' or RKOD1 = '320801' or RKOD1 = '320901' or RKOD1 = '321001' or 
 RKOD1 = '161301' or (RKOD1 = '161401' and tekovuosi > 1998) or RKOD1 = '280401' or RKOD1 = '280404' or RKOD1 = '280501' or RKOD1 = '280502' or RKOD1 = '280601' or
 RKOD1 = '3809A1' or RKOD1_2merk = '49' or RKOD1 = '653000' or RKOD1 = '653003' or RKOD1 = '653004' or RKOD1 = '673000' or RKOD1 = '675031' or
 RKOD1 = '675032' or RKOD1 = '675040' or RKOD1 = '675041' or RKOD1 = '677300' or RKOD1 = '678002' or RKOD1 = '674091' or RKOD1 = '674090' or
 RKOD1 = '674092' or RKOD1 = '678003' or RKOD1 = '675020' or RKOD1 = '678010' or RKOD1 = '699100' or RKOD1 = '821051' or
 RKOD1 = '677280' or RKOD1 = '677200' or RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '675000' or RKOD1 = '675001' or RKOD1 = '171601' or
 RKOD1 = '1716A1' or RKOD1 = '1716B1' or RKOD1 = '1716C1' or RKOD1 = '1716D1' or (RKOD1 = '161101' and tekovuosi > 1998) or RKOD1 = '672005' or RKOD1 = '672009' or RKOD1 = '672011' or
 RKOD1 = '677201' or RKOD1 = '677202' or RKOD1 = '677210' or RKOD1 = '677211' or RKOD1 = '677212' or RKOD1 = '677216' or RKOD1 = '677217' or
 RKOD1 = '677218' or RKOD1 = '677220' or RKOD1 = '677221' or RKOD1 = '677222' or RKOD1 = '677225' or RKOD1 = '677226' or RKOD1 = '677227' or
 RKOD1 = '677280' or RKOD1 = '677285' or RKOD1 = '677290' or RKOD1 = '677291' or RKOD1 = '677400' or RKOD1 = '677404' or RKOD1 = '677405' or 
 RKOD1 = '677420' or RKOD1 = '677450' or RKOD1 = '677451' or
 RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '674095' or RKOD1 = '674100' or RKOD1 = '674101' or RKOD1 = '674103' or RKOD1 = '674105' or
 RKOD1 = '674106' or RKOD1 = '674107' or RKOD1 = '674112' or RKOD1 = '674120' or RKOD1 = '674137' or RKOD1 = '674138' or RKOD1 = '674139' or
 RKOD1 = '674140' or RKOD1 = '674147' or RKOD1 = '674166' or RKOD1 = '674171' or RKOD1 = '674175' or RKOD1 = '674180' or RKOD1 = '674185' or
 RKOD1 = '674200' or RKOD1 = '674206' or RKOD1 = '674010' or RKOD1 = '673300' or RKOD1 = '673133' or RKOD1 = '673134' or RKOD1 = '673135' or
(RKOD1 = '381101' and tekovuosi < 1991) or (RKOD1 = '381102' and tekovuosi < 1991) or (RKOD1 = '381001' and tekovuosi < 1991) or
(RKOD1 = '381002' and tekovuosi < 1991) or (RKOD1 = '381003' and tekovuosi < 1991) or (RKOD1 = '3601A1' and tekovuosi < 1991) or (RKOD1 = '3601A2' and tekovuosi < 1991) or
(RKOD1 = '1613A1' and tekovuosi < 1999) or RKOD1 = '753500' or Talous_vanha = 1 then Talous = 1;

 if RR = '0A' or RR = '00' or RR = '01' or RR = '02' or RR = '03' or RR = '04' or RR = '05' or RR = '06' or RR = '07' or RR = '08' or RR = '09' then Omaisuus = 1;
 if RR = '10' or RR = '11' or RR = '12' or RR = '15' or RR = '18' or RR = '19' then HenkiTerveys = 1;
 if RR = '20' or RR = '21' or RR = '22' then Seksuaali = 1;
 if RR = '30' or RR = '31' or RR = '32' or RR = '33' then Oikeudenkaytto = 1;
 if RR = '50' or RR = '51' or RR = '52' or RR = '53' or RR = '80' or RR = '81' or RR = '84' then LiikenneRR = 1;

 if HenkiTerveys = 1 or Seksuaali = 1 then HenkiTerveys_seksuaali = 1;

 if (RKOD1 = '230301' or RKOD1 = '230401' or RKOD1 = '230501' or RKOD1 = '230601' or RKOD1 = '230701') and VUOSI >= 2000 then Rattijuopumus = 1;
 if (RKOD1 = '230101' or RKOD1 = '230201' or RKOD1 = '230301' or RKOD1 = '230401' or RKOD1 = '230501' or RKOD1 = '230601') and VUOSI <= 1999 then Rattijuopumus = 1;

  if (RKOD1 = '230101' or RKOD1 = '230201') and VUOSI >= 2000 then LiikTurvVaarant = 1;
 if (RKOD1 = '608000' or RKOD1 = '609000') and VUOSI <= 1999 then LiikTurvVaarant = 1;

 if (RKOD1 = '231001' or RKOD1 = '231101') and VUOSI >= 2000 then LiikPako_KuljOikeud = 1;
 if (RKOD1 = '611000' or RKOD1 = '612000') and VUOSI <= 1999 then LiikPako_KuljOikeud = 1;

 if RKOD1 = '300901' then Kirjanpitorikos = 1;
 if RKOD1 = '672000' then Kirjanpitorikos = 1;
 if RKOD1 = '3009A1' then Torkea_Kirjanpitorikos = 1;
 if RKOD1 = '301001' then Tuot_Kirjanpitorikos = 1;
 if RKOD1 = '672001' then Kirjanpitorikkomus = 1;

 if kirjanpitorikos = 1 or Torkea_Kirjanpitorikos = 1 or Tuot_Kirjanpitorikos = 1 then Kirjanpitorikos_rikoslaki = 1;
 if kirjanpitorikos = 1 or Torkea_Kirjanpitorikos = 1 or Tuot_Kirjanpitorikos = 1 or Kirjanpitorikkomus = 1 then Kirjanpitorikos_kaikki = 1;

 if Kirjanpitorikos_kaikki = 1 or Talous = 1 then Talous_kaikki = 1;
 if Kirjanpitorikos_kaikki = 1 or Talous_vanha = 1 then Talous_kaikki_vanha = 1;

 if Kirjanpitorikos = . and Torkea_Kirjanpitorikos = . and Tuot_Kirjanpitorikos = . and Kirjanpitorikkomus =. then Muu_rikos_2 = 1;
 if Kirjanpitorikos = . and Torkea_Kirjanpitorikos = . and Tuot_Kirjanpitorikos = . and Kirjanpitorikkomus =. and Talous = . and HenkiTerveys = . and LiikenneRR = . then Muu_rikos_3 = 1;

 if Kirjanpitorikos = . and Torkea_Kirjanpitorikos = . and Tuot_Kirjanpitorikos = . and Kirjanpitorikkomus =. and Rattijuopumus = . then Muu_rikos = 1;

 if HenkiTerveys = 1 or LiikenneRR = 1 or Muu_rikos_3 = 1 then Muu_rikos_4 = 1;
 if HenkiTerveys = 1 or Muu_rikos_3 = 1 then Muu_rikos_5 = 1;

 if RKOD1 = '3009A1' or RKOD1 = '300901' or RKOD1 = '301001' or RKOD1 = '672000' or RKOD1 = '672001' then Finan_rep_fraud = 1;

 if RKOD1 = '290201' or RKOD1 = '290101' or RKOD1 = '290401' or RKOD1 = '290301' or RKOD1 = '2904C1' or RKOD1 = '2904B1' or RKOD1 = '2904A1' or RKOD1 = '290501' or RKOD1 = '290601' or RKOD1 = '290701' or RKOD1 = '2907A1' or RKOD1 = '290801' then Tax_relat_fraud = 1;

 if RKOD1_2merk = '49' or RKOD1_2merk = '51' or (RKOD1_2merk = '36' and RKOD1_3merk ne '361') or RKOD1_2merk = '37' or (RKOD1_2merk = '30' and (RKOD1 ne '300901' and RKOD1 ne '3009A1' and RKOD1 ne '301001')) or
 RKOD1 = '320601' or RKOD1 = '320602' or RKOD1 = '320701' or RKOD1 = '320702' or RKOD1 = '320801' or RKOD1 = '320901' or RKOD1 = '321001' or
 RKOD1 = '161301' or (RKOD1 = '161401' and tekovuosi > 1998) or RKOD1 = '280401' or RKOD1 = '280404' or RKOD1 = '280501' or RKOD1 = '280502' or RKOD1 = '280601' or
 RKOD1 = '3809A1' or RKOD1 = '653000' or RKOD1 = '653003' or RKOD1 = '653004' or RKOD1 = '673000' or RKOD1 = '673001' or RKOD1 = '675031' or
 RKOD1 = '675032' or RKOD1 = '675040' or RKOD1 = '675041' or RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '675000' or RKOD1 = '675001' or
 RKOD1 = '171601' or RKOD1 = '1716A1' or RKOD1 = '1716B1' or RKOD1 = '1716C1' or RKOD1 = '1716D1' or (RKOD1 = '161101' and tekovuosi > 1998) or RKOD1 = '672005' or RKOD1 = '672009' or
 RKOD1 = '672011' or RKOD1 = '673133' or RKOD1 = '673134' or RKOD1 = '673135' or RKOD1 = '673300' or RKOD1 = '674010' or RKOD1 = '674090' or
 RKOD1 = '674091' or RKOD1 = '674092' or RKOD1 = '674095' or RKOD1 = '674100' or RKOD1 = '674101' or RKOD1 = '674103' or RKOD1 = '674105' or
 RKOD1 = '674106' or RKOD1 = '674107' or RKOD1 = '674112' or RKOD1 = '674120' or RKOD1 = '674137' or RKOD1 = '674138' or RKOD1 = '674139' or
 RKOD1 = '674140' or RKOD1 = '674147' or RKOD1 = '674166' or RKOD1 = '674171' or RKOD1 = '674175' or RKOD1 = '674180' or RKOD1 = '674185' or
 RKOD1 = '674200' or RKOD1 = '674206' or RKOD1 = '675020' or RKOD1 = '677200' or RKOD1 = '677201' or RKOD1 = '677202' or RKOD1 = '677210' or
 RKOD1 = '677211' or RKOD1 = '677212' or RKOD1 = '677216' or RKOD1 = '677217' or RKOD1 = '677218' or RKOD1 = '677220' or RKOD1 = '677221' or
 RKOD1 = '677222' or RKOD1 = '677225' or RKOD1 = '677226' or RKOD1 = '677227' or RKOD1 = '677280' or RKOD1 = '677285' or RKOD1 = '677290' or
 RKOD1 = '677291' or RKOD1 = '677300' or RKOD1 = '677400' or RKOD1 = '677404' or RKOD1 = '677405' or RKOD1 = '677420' or RKOD1 = '677450' or
 RKOD1 = '677451' or RKOD1 = '678002' or RKOD1 = '678003' or RKOD1 = '678010' or RKOD1 = '699100' or RKOD1 = '821051' or RKOD1 = '3901A1' or
 RKOD1 = '390101' or RKOD1 = '390601' or RKOD1 = '390201' or RKOD1 = '390301' or RKOD1 = '390401' or RKOD1 = '390501' or 
(RKOD1 = '1613A1' and tekovuosi < 1999) or RKOD1 = '753500' then Other_finan_crime = 1;

 if RKOD1 = '360101' or RKOD1 = '360201' or RKOD1 = '360301' or RKOD1 = '360202' or RKOD1 = '360103' or RKOD1 = '360401' or RKOD1 = '360501' or RKOD1 = '360701' or
 RKOD1 = '360601' or RKOD1 = '370901' or RKOD1 = '370801' or RKOD1 = '300101' or RKOD1 = '510201' or RKOD1 = '300601' or RKOD1 = '300501' or RKOD1 = '300201' or
 RKOD1 = '510301' or RKOD1 = '510501' or RKOD1 = '510401' or RKOD1 = '510101' then Other_finan_crime_vanha = 1;

if RKOD1 = '3901A1' or RKOD1 = '390101' or RKOD1 = '390601' or RKOD1 = '390201'  or RKOD1 = '390401' or RKOD1 = '390301' or RKOD1 = '390501' then Velallisen_rikos = 1;

if RKOD1 = '3009A1' then T_3009A1 = 1; if RKOD1 = '300901' then T_300901 = 1; if RKOD1 = '301001' then T_301001 = 1; if RKOD1 = '672000' then T_672000 = 1; if RKOD1 = '672001' then T_672001 = 1;

if RKOD1 = '290101' then T_290101 = 1; if RKOD1 = '290201' then T_290201 = 1; if RKOD1 = '290301' then T_290301 = 1; if RKOD1 = '290401' then T_290401 = 1; if RKOD1 = '2904C1' then T_2904C1 = 1;
if RKOD1 = '2904B1' then T_2904B1 = 1; if RKOD1 = '2904A1' then T_2904A1 = 1; if RKOD1 = '290501' then T_290501 = 1; if RKOD1 = '290601' then T_290601 = 1; if RKOD1 = '290701' then T_290701 = 1;
if RKOD1 = '2907A1' then T_2907A1 = 1; if RKOD1 = '290801' then T_290801 = 1;

if RKOD1 = '360101' then T_360101 = 1; if RKOD1 = '360201' then T_360201 = 1; if RKOD1 = '360301' then T_360301 = 1; if RKOD1 = '360202' then T_360202 = 1; if RKOD1 = '360103' then T_360103 = 1;
if RKOD1 = '360401' then T_360401 = 1; if RKOD1 = '360501' then T_360501 = 1; if RKOD1 = '360701' then T_360701 = 1; if RKOD1 = '360601' then T_360601 = 1; if RKOD1 = '370901' then T_370901 = 1;
if RKOD1 = '370801' then T_370801 = 1; if RKOD1 = '300101' then T_300101 = 1; if RKOD1 = '510201' then T_510201 = 1; if RKOD1 = '300601' then T_300601 = 1; if RKOD1 = '300501' then T_300501 = 1;
if RKOD1 = '300201' then T_300201 = 1; if RKOD1 = '510301' then T_510301 = 1; if RKOD1 = '510501' then T_510501 = 1; if RKOD1 = '510401' then T_510401 = 1; if RKOD1 = '510101' then T_510101 = 1;

if RKOD1 = '320601' then T_320601 = 1; if RKOD1 = '320602' then T_320602 = 1; if RKOD1 = '320701' then T_320701 = 1; if RKOD1 = '320702' then T_320702 = 1; if RKOD1 = '320801' then T_320801 = 1;
if RKOD1 = '320901' then T_320901 = 1; if RKOD1 = '321001' then T_321001 = 1; if RKOD1 = '280401' then T_280401 = 1; if RKOD1 = '280404' then T_280404 = 1; if RKOD1 = '280501' then T_280501 = 1;
if RKOD1 = '280502' then T_280502 = 1; if RKOD1 = '280601' then T_280601 = 1; if RKOD1 = '677300' then T_677300 = 1; if RKOD1 = '677400' then T_677400 = 1; if RKOD1 = '677404' then T_677404 = 1;
if RKOD1 = '677405' then T_677405 = 1; if RKOD1 = '674091' then T_674091 = 1; if RKOD1 = '678002' then T_678002 = 1; if RKOD1 = '820000' then T_820000 = 1; if RKOD1 = '677280' then T_677280 = 1;
if RKOD1 = '677200' then T_677200 = 1; if RKOD1 = '677201' then T_677201 = 1; if RKOD1 = '677202' then T_677202 = 1; if RKOD1 = '677210' then T_677210 = 1; if RKOD1 = '677211' then T_677211 = 1;
if RKOD1 = '677212' then T_677212 = 1; if RKOD1 = '677216' then T_677216 = 1; if RKOD1 = '677217' then T_677217 = 1; if RKOD1 = '677218' then T_677218 = 1; if RKOD1 = '677220' then T_677220 = 1;
if RKOD1 = '677221' then T_677221 = 1; if RKOD1 = '677222' then T_677222 = 1; if RKOD1 = '677225' then T_677225 = 1; if RKOD1 = '677226' then T_677226 = 1; if RKOD1 = '677227' then T_677227 = 1;
if RKOD1 = '677000' then T_677000 = 1; if RKOD1 = '677100' then T_677100 = 1; if RKOD1 = '674095' then T_674095 = 1; if RKOD1 = '674100' then T_674100 = 1; if RKOD1 = '674101' then T_674101 = 1;
if RKOD1 = '674103' then T_674103 = 1; if RKOD1 = '674105' then T_674105 = 1; if RKOD1 = '674106' then T_674106 = 1; if RKOD1 = '674107' then T_674107 = 1; if RKOD1 = '674112' then T_674112 = 1;
if RKOD1 = '674120' then T_674120 = 1; if RKOD1 = '674137' then T_674137 = 1; if RKOD1 = '674138' then T_674138 = 1; if RKOD1 = '674139' then T_674139 = 1; if RKOD1 = '674140' then T_674140 = 1;
if RKOD1 = '674147' then T_674147 = 1; if RKOD1 = '674166' then T_674166 = 1; if RKOD1 = '674171' then T_674171 = 1; if RKOD1 = '674175' then T_674175 = 1; if RKOD1 = '674180' then T_674180 = 1;
if RKOD1 = '674185' then T_674185 = 1; if RKOD1 = '674200' then T_674200 = 1; if RKOD1 = '674206' then T_674206 = 1; if RKOD1 = '674010' then T_674010 = 1; if RKOD1 = '673300' then T_673300 = 1;
if RKOD1 = '673133' then T_673133 = 1; if RKOD1 = '673134' then T_673134 = 1; if RKOD1 = '673135' then T_673135 = 1; 

 keep ID VUOSI TEKOVUOSI PNO_s AGE RATTIJUOPUMUS MUU_RIKOS MUU_RIKOS_2 Muu_rikos_3 Muu_rikos_4 Muu_rikos_5 SLAATU1 Talous Talous_kaikki HenkiTerveys LiikenneRR rkod1 tist1_s tlno_s Finan_rep_fraud
Tax_relat_fraud Other_finan_crime Velallisen_rikos Other_finan_crime_vanha Talous_vanha Talous_kaikki_vanha;

run;

data rikokset_77_19_3;
 set rikokset_77_19_2;

* Acquitted cases;

SUSPECTED = 0;				
 if slaatu1 = '31' or												
 slaatu1 = '69' or																			
 slaatu1 = '70' or
 slaatu1 = '71' or
 slaatu1 = '72' or
 slaatu1 = '73' or
 slaatu1 = '75' or
 slaatu1 = '76' or
 slaatu1 = '78' or
 slaatu1 = '81' or
 slaatu1 = '86' or
 slaatu1 = '85' or
 slaatu1 = '90' or
 slaatu1 = '91' or
 slaatu1 = '92' or
 slaatu1 = '99' or
 slaatu1 = '89' then SUSPECTED = 1;
 if VUOSI < 1992 then SUSPECTED = 0;

* Convicted cases;

 CONVICTED = 1; 			
 if SUSPECTED = 1 then CONVICTED = 0;

 Vankeus = 0;
 if slaatu1 = '01' or
 slaatu1 = '02' or
 slaatu1 = '03' or
 slaatu1 = '04' or
 slaatu1 = '33' or
 slaatu1 = '35' or
 slaatu1 = '42' or
 slaatu1 = '45' then Vankeus = 1;

 Sakko = 0;
 if slaatu1 = '11' or
 slaatu1 = '12' or
 slaatu1 = '15' or
 slaatu1 = '16' or
 slaatu1 = '51' then Sakko = 1;

 Ehdollinen_vankeus = 0;
 if slaatu1 = '04' or
 slaatu1 = '35' or
 slaatu1 = '42' or
 slaatu1 = '45' then Ehdollinen_Vankeus = 1;

 Ehdoton_Vankeus = 0;
 if slaatu1 = '01' or
 slaatu1 = '02' or
 slaatu1 = '03' or
 slaatu1 = '33' then Ehdoton_Vankeus = 1;

 if Talous = 1 and CONVICTED = 1 then Talous_tuomio = 1;
 if Talous_kaikki = 1 and CONVICTED = 1 then Talous_kaikki_tuomio = 1;
 if Henkiterveys = 1 and CONVICTED = 1 then Henkiterveys_tuomio = 1;
 if LiikenneRR = 1 and CONVICTED = 1 then LiikenneRR_tuomio = 1;
 if Rattijuopumus = 1 and CONVICTED = 1 then Rattijuopumus_tuomio = 1;

 if muu_rikos = 1 and CONVICTED = 1 then muu_rikos_tuomio = 1;
 if muu_rikos_2 = 1 and CONVICTED = 1 then muu_rikos_2_tuomio = 1;
 if muu_rikos_3 = 1 and CONVICTED = 1 then muu_rikos_3_tuomio = 1;
 if muu_rikos_4 = 1 and CONVICTED = 1 then muu_rikos_4_tuomio = 1;
 if muu_rikos_5 = 1 and CONVICTED = 1 then muu_rikos_5_tuomio = 1;

 if Finan_rep_fraud = 1 and CONVICTED = 1 then Finan_rep_fraud_tuomio = 1;
 if Tax_relat_fraud = 1 and CONVICTED = 1 then Tax_relat_fraud_tuomio = 1;
 if Other_finan_crime = 1 and CONVICTED = 1 then Other_finan_crime_tuomio = 1;
 
 if Talous_kaikki = 1 and Vankeus = 1 then Talous_kaikki_vankeus = 1;
 if Talous_kaikki = 1 and Vankeus = 0 and CONVICTED = 1 then Talous_kaikki_sakko = 1;
 if Talous_kaikki = 1 and Ehdollinen_vankeus = 1 then Talous_kaikki_ehdol_vankeus = 1;
 if Talous_kaikki = 1 and Ehdoton_Vankeus = 1 then Talous_kaikki_ehdot_vankeus = 1;

 if Finan_rep_fraud = 1 and Vankeus = 1 then Finan_rep_fraud_vankeus = 1;
 if Tax_relat_fraud = 1 and Vankeus = 1 then Tax_relat_fraud_vankeus = 1;
 if Other_finan_crime = 1 and Vankeus = 1 then Other_finan_crime_vankeus = 1;
 if muu_rikos_4 = 1 and Vankeus = 1 then muu_rikos_4_vankeus = 1;
 if muu_rikos_4 = 1 and Vankeus = 0 and CONVICTED = 1 then muu_rikos_4_sakko = 1;
 if muu_rikos_4 = 1 and Ehdollinen_vankeus = 1 then muu_rikos_4_ehdol_vankeus = 1;
 if muu_rikos_4 = 1 and Ehdoton_Vankeus = 1 then muu_rikos_4_ehdot_vankeus = 1;

 if Talous_kaikki_tuomio = 1 and Vankeus = 1 then Talous_kaikki_vankeus_tuomio = 1;
 if muu_rikos_4_tuomio = 1 and Vankeus = 1 then muu_rikos_4_vankeus_tuomio = 1;
 
run;

proc sort data = rikokset_77_19_3;
by id tekovuosi;
run;

* Collects different type of crimes from each year ;

proc means noprint data = rikokset_77_19_3;
var RATTIJUOPUMUS Rattijuopumus_tuomio MUU_RIKOS Muu_rikos_tuomio MUU_RIKOS_2 muu_rikos_2_tuomio Muu_rikos_3 muu_rikos_3_tuomio Muu_rikos_4 muu_rikos_4_tuomio Muu_rikos_5 muu_rikos_5_tuomio Talous Talous_tuomio Talous_kaikki Talous_kaikki_tuomio Henkiterveys Henkiterveys_tuomio
LiikenneRR LiikenneRR_tuomio SUSPECTED CONVICTED Finan_rep_fraud Tax_relat_fraud Other_finan_crime Finan_rep_fraud_vankeus Tax_relat_fraud_vankeus Other_finan_crime_vankeus Finan_rep_fraud_tuomio Tax_relat_fraud_tuomio Other_finan_crime_tuomio Velallisen_rikos Talous_kaikki_vankeus Talous_kaikki_sakko
Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_sakko muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus Other_finan_crime_vanha Talous_vanha Talous_kaikki_vanha Talous_kaikki_vankeus_tuomio Muu_rikos_4_vankeus_tuomio;

by ID tekovuosi;

output out = Mean_N_Rikos sum = Mean_rattijuopumus Mean_Rattijuopumus_tuomio Mean_muu_rikos Mean_muu_rikos_tuomio Mean_muu_rikos_2 Mean_muu_rikos_2_tuomio Mean_Muu_rikos_3 Mean_muu_rikos_3_tuomio Mean_Muu_rikos_4 Mean_muu_rikos_4_tuomio
Mean_Muu_rikos_5 Mean_muu_rikos_5_tuomio Mean_Talous Mean_Talous_tuomio Mean_Talous_kaikki Mean_Talous_kaikki_tuomio Mean_Henkiterveys Mean_Henkiterveys_tuomio Mean_LiikenneRR Mean_LiikenneRR_tuomio Mean_SUSPECTED Mean_Convicted Mean_Finan_rep_fraud
Mean_Tax_relat_fraud Mean_Other_finan_crime Mean_Finan_rep_fraud_vankeus Mean_Tax_relat_fraud_vankeus Mean_Other_finan_crime_vankeus
Mean_Finan_rep_fraud_tuomio Mean_Tax_relat_fraud_tuomio Mean_Other_finan_crime_tuomio Mean_Velallisen_rikos Mean_Talous_kaikki_vankeus Mean_Talous_kaikki_sakko Mean_Talous_kaikki_ehdol_vankeus
Mean_Talous_kaikki_ehdot_vankeus Mean_muu_rikos_4_vankeus Mean_muu_rikos_4_sakko Mean_muu_rikos_4_ehdol_vankeus Mean_muu_rikos_4_ehdot_vankeus Mean_Other_finan_crime_vanha Mean_Talous_vanha Mean_Talous_kaikki_vanha M_Talous_kaikki_vankeus_tuomio Mean_Muu_rikos_4_vankeus_tuomio;

run;

data bbb;
merge rikokset_77_19_3 Mean_N_Rikos;
by id tekovuosi;

if tekovuosi = '' then delete;

drop RATTIJUOPUMUS Rattijuopumus_tuomio MUU_RIKOS Muu_rikos_tuomio MUU_RIKOS_2 muu_rikos_2_tuomio Muu_rikos_3 muu_rikos_3_tuomio Muu_rikos_4 muu_rikos_4_tuomio Muu_rikos_5 muu_rikos_5_tuomio Talous Talous_tuomio Talous_kaikki Talous_kaikki_tuomio Henkiterveys Henkiterveys_tuomio
LiikenneRR LiikenneRR_tuomio SUSPECTED CONVICTED Finan_rep_fraud Tax_relat_fraud Other_finan_crime Finan_rep_fraud_vankeus Tax_relat_fraud_vankeus Other_finan_crime_vankeus Finan_rep_fraud_tuomio Tax_relat_fraud_tuomio Other_finan_crime_tuomio Velallisen_rikos Talous_kaikki_vankeus 
Talous_kaikki_sakko Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_sakko muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus Other_finan_crime_vanha Talous_vanha Talous_kaikki_vanha Talous_kaikki_vankeus_tuomio Muu_rikos_4_vankeus_tuomio;

rename Mean_rattijuopumus = rattijuopumus Mean_Rattijuopumus_tuomio = Rattijuopumus_tuomio Mean_muu_rikos = Muu_rikos Mean_muu_rikos_tuomio = muu_rikos_tuomio Mean_muu_rikos_2 = muu_rikos_2 Mean_muu_rikos_2_tuomio = muu_rikos_2_tuomio 
Mean_Muu_rikos_3 = Muu_rikos_3 Mean_muu_rikos_3_tuomio = muu_rikos_3_tuomio Mean_Muu_rikos_4 = Muu_rikos_4 Mean_muu_rikos_4_tuomio = muu_rikos_4_tuomio Mean_Muu_rikos_5 = Muu_rikos_5 Mean_muu_rikos_5_tuomio = muu_rikos_5_tuomio Mean_Talous = Talous Mean_Talous_tuomio = Talous_tuomio
Mean_Talous_kaikki = Talous_kaikki Mean_Talous_kaikki_tuomio = Talous_kaikki_tuomio Mean_Henkiterveys = Henkiterveys Mean_Henkiterveys_tuomio = Henkiterveys_tuomio
Mean_LiikenneRR = LiikenneRR Mean_LiikenneRR_tuomio = LiikenneRR_tuomio Mean_SUSPECTED = SUSPECTED Mean_Convicted = Convicted
Mean_Finan_rep_fraud = Finan_rep_fraud Mean_Tax_relat_fraud = Tax_relat_fraud Mean_Other_finan_crime = Other_finan_crime Mean_Finan_rep_fraud_vankeus = Finan_rep_fraud_vankeus Mean_Tax_relat_fraud_vankeus = Tax_relat_fraud_vankeus Mean_Other_finan_crime_vankeus = Other_finan_crime_vankeus 
Mean_Finan_rep_fraud_tuomio = Finan_rep_fraud_tuomio Mean_Tax_relat_fraud_tuomio = Tax_relat_fraud_tuomio Mean_Other_finan_crime_tuomio = Other_finan_crime_tuomio
Mean_Velallisen_rikos = Velallisen_rikos Mean_Talous_kaikki_vankeus = Talous_kaikki_vankeus Mean_Talous_kaikki_sakko = Talous_kaikki_sakko Mean_Talous_kaikki_ehdol_vankeus = Talous_kaikki_ehdol_vankeus Mean_Talous_kaikki_ehdot_vankeus = Talous_kaikki_ehdot_vankeus Mean_muu_rikos_4_vankeus = muu_rikos_4_vankeus Mean_muu_rikos_4_sakko = muu_rikos_4_sakko
Mean_muu_rikos_4_ehdol_vankeus = muu_rikos_4_ehdol_vankeus Mean_muu_rikos_4_ehdot_vankeus = muu_rikos_4_ehdot_vankeus Mean_Other_finan_crime_vanha = Other_finan_crime_vanha Mean_Talous_vanha = Talous_vanha Mean_Talous_kaikki_vanha = Talous_kaikki_vanha
M_Talous_kaikki_vankeus_tuomio = Talous_kaikki_vankeus_tuomio Mean_Muu_rikos_4_vankeus_tuomio = Muu_rikos_4_vankeus_tuomio;

run;

proc sort nodupkey data = bbb;
by id tekovuosi;
run;

* Calculates the # of different crimes per person per year;

proc means noprint data = bbb;
 by ID tekovuosi;
 var RATTIJUOPUMUS Rattijuopumus_tuomio MUU_RIKOS Muu_rikos_tuomio MUU_RIKOS_2 muu_rikos_2_tuomio Muu_rikos_3 muu_rikos_3_tuomio Muu_rikos_4 muu_rikos_4_tuomio Muu_rikos_5 muu_rikos_5_tuomio Talous Talous_tuomio Talous_kaikki Talous_kaikki_tuomio Henkiterveys Henkiterveys_tuomio
 LiikenneRR LiikenneRR_tuomio SUSPECTED CONVICTED Finan_rep_fraud Tax_relat_fraud Other_finan_crime Finan_rep_fraud_vankeus Tax_relat_fraud_vankeus Other_finan_crime_vankeus Finan_rep_fraud_tuomio Tax_relat_fraud_tuomio Other_finan_crime_tuomio Velallisen_rikos
 Talous_kaikki_vankeus Talous_kaikki_sakko Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_sakko muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus Other_finan_crime_vanha Talous_vanha Talous_kaikki_vanha Talous_kaikki_vankeus_tuomio Muu_rikos_4_vankeus_tuomio;
 
output out = bbbout sum = RATTIJUOPUMUS Rattijuopumus_tuomio MUU_RIKOS Muu_rikos_tuomio MUU_RIKOS_2 muu_rikos_2_tuomio Muu_rikos_3 muu_rikos_3_tuomio Muu_rikos_4 muu_rikos_4_tuomio Muu_rikos_5 muu_rikos_5_tuomio Talous Talous_tuomio
 Talous_kaikki Talous_kaikki_tuomio Henkiterveys Henkiterveys_tuomio LiikenneRR LiikenneRR_tuomio SUSPECTED CONVICTED Finan_rep_fraud Tax_relat_fraud Other_finan_crime Finan_rep_fraud_vankeus Tax_relat_fraud_vankeus Other_finan_crime_vankeus
Finan_rep_fraud_tuomio Tax_relat_fraud_tuomio Other_finan_crime_tuomio Velallisen_rikos Talous_kaikki_vankeus Talous_kaikki_sakko
Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_sakko muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus Other_finan_crime_vanha Talous_vanha Talous_kaikki_vanha Talous_kaikki_vankeus_tuomio Muu_rikos_4_vankeus_tuomio;
run;

data bbbout_2;
set bbbout;
year = tekovuosi*1;

run;

* Creates data structure ;

data tuomiot;
set bbbout;

keep id;

run;

proc sort nodupkey data = tuomiot;
by id;

run;

data tuomiot_2;
set tuomiot;

new_id = _n_;

run;

data struktuuri;
set lib100.henkilovuodet_150324;

if id <= 435401;

if 2019 >= year >= 1977;

rename id = new_id;

run;

proc sort data = struktuuri;
by new_id year;
run;

data valmis_struktuuri;
merge struktuuri tuomiot_2;
by new_id;

drop new_id;

run;

proc sort data = valmis_struktuuri;
by id year;
run;

* Calculates cumulative variables for different crime variables;

data ccc;
 merge valmis_struktuuri bbbout_2;
 by ID YEAR;

 if ID ^= lag (ID) then do; 
	CUM_CONV = 0; 
	CUM_SUSP = 0;
	CUM_Muu = 0;
	CUM_Muu_tuomio = 0;
	CUM_Muu2 = 0;
	CUM_Muu2_tuomio = 0;
	CUM_Muu3 = 0;
	CUM_Muu3_tuomio = 0;
	CUM_Muu4 = 0;
	CUM_Muu4_tuomio = 0;
	CUM_Muu5 = 0;
	CUM_Muu5_tuomio = 0;
	CUM_Talous = 0;
	CUM_Talous_vanha = 0;
	CUM_Talous_tuomio = 0;
	CUM_Talous_kaikki = 0;
	CUM_Talous_kaikki_vanha = 0;
	CUM_Talous_kaikki_tuomio = 0;
	CUM_Henkiterv = 0;
	CUM_Henkiterv_tuomio = 0;
	CUM_LiikenneRR = 0;
	CUM_LiikenneRR_tuomio = 0;
	CUM_Rattijuopumus = 0;
	CUM_Rattijuopumus_tuomio = 0;

	CUM_Finan_rep_fraud = 0;
	CUM_Tax_relat_fraud = 0;
	CUM_Other_finan_crime = 0;
	CUM_Finan_rep_fraud_vankeus = 0;
	CUM_Tax_relat_fraud_vankeus = 0;
	CUM_Other_finan_crime_vankeus = 0;
	CUM_Other_finan_crime_vanha = 0;
	CUM_Finan_rep_fraud_tuomio = 0;
	CUM_Tax_relat_fraud_tuomio = 0;
	CUM_Other_finan_crime_tuomio = 0;

	CUM_Talous_kaikki_vankeus = 0;
	CUM_Talous_kaikki_sakko = 0;
	CUM_Talous_kaikki_vankeus_tuomio = 0;
	CUM_Talous_kaikki_ehdol_vankeus = 0;
	CUM_Talous_kaikki_ehdot_vankeus = 0;
	CUM_muu_rikos_4_vankeus = 0;
	CUM_muu_rikos_4_sakko = 0;
	CUM_muu_rikos_4_vankeus_tuomio = 0;
	CUM_muu_rikos_4_ehdol_vankeus = 0;
	CUM_muu_rikos_4_ehdot_vankeus = 0;

 end;

 	CUM_CONV + CONVICTED;
	CUM_SUSP + SUSPECTED;
	CUM_Muu + Muu_rikos;
	CUM_Muu_tuomio + Muu_rikos_tuomio;
	CUM_Muu2 + Muu_rikos_2;
	CUM_Muu2_tuomio + Muu_rikos_2_tuomio;
	CUM_Muu3 + Muu_rikos_3;
	CUM_Muu3_tuomio + Muu_rikos_3_tuomio;
	CUM_Muu4 + Muu_rikos_4;
	CUM_Muu4_tuomio + Muu_rikos_4_tuomio;
	CUM_Muu5 + Muu_rikos_5;
	CUM_Muu5_tuomio + Muu_rikos_5_tuomio;
	CUM_Talous + Talous;
	CUM_Talous_vanha + Talous_vanha;
	CUM_Talous_tuomio + Talous_tuomio;
	CUM_Talous_kaikki + Talous_kaikki;
	CUM_Talous_kaikki_vanha + Talous_kaikki_vanha;
	CUM_Talous_kaikki_tuomio + Talous_kaikki_tuomio;
	CUM_Henkiterv + Henkiterveys;
	CUM_Henkiterv_tuomio + Henkiterveys_tuomio;
	CUM_LiikenneRR + LiikenneRR;
	CUM_LiikenneRR_tuomio + LiikenneRR_tuomio;
	CUM_Rattijuopumus + Rattijuopumus;
	CUM_Rattijuopumus_tuomio + Rattijuopumus_tuomio;

	CUM_Finan_rep_fraud + Finan_rep_fraud;
	CUM_Tax_relat_fraud + Tax_relat_fraud;
	CUM_Other_finan_crime + Other_finan_crime;
	CUM_Finan_rep_fraud_vankeus + Finan_rep_fraud_vankeus;
	CUM_Tax_relat_fraud_vankeus + Tax_relat_fraud_vankeus;
	CUM_Other_finan_crime_vankeus + Other_finan_crime_vankeus;
	CUM_Other_finan_crime_vanha + Other_finan_crime_vanha;
	CUM_Finan_rep_fraud_tuomio + Finan_rep_fraud_tuomio;
	CUM_Tax_relat_fraud_tuomio + Tax_relat_fraud_tuomio;
	CUM_Other_finan_crime_tuomio + Other_finan_crime_tuomio;

	CUM_Talous_kaikki_vankeus + Talous_kaikki_vankeus;
	CUM_Talous_kaikki_sakko + Talous_kaikki_sakko;
	CUM_Talous_kaikki_vankeus_tuomio + Talous_kaikki_vankeus_tuomio;
	CUM_Talous_kaikki_ehdol_vankeus + Talous_kaikki_ehdol_vankeus;
	CUM_Talous_kaikki_ehdot_vankeus + Talous_kaikki_ehdot_vankeus;
	CUM_muu_rikos_4_vankeus + muu_rikos_4_vankeus;
	CUM_muu_rikos_4_sakko + muu_rikos_4_sakko;
	CUM_muu_rikos_4_vankeus_tuomio + muu_rikos_4_vankeus_tuomio;
	CUM_muu_rikos_4_ehdol_vankeus + muu_rikos_4_ehdol_vankeus;
	CUM_muu_rikos_4_ehdot_vankeus + muu_rikos_4_ehdot_vankeus;

 drop _TYPE_ _FREQ_;
run;

* Calculates first and last year for different types of crimes;

data ddd;
set ccc;

if YEAR = 1977 and muu_rikos_4 > 0 then Ens_muu_rikos_tvuosi = TEKOVUOSI*1;

if lag(CUM_Muu4) = 0 and CUM_Muu4 > 0 and id = lag(id) then Ens_muu_rikos_tvuosi = TEKOVUOSI*1;

LAG_Ens_muu_rikos_tvuosi = lag(Ens_muu_rikos_tvuosi); LAG2_Ens_muu_rikos_tvuosi = lag2(Ens_muu_rikos_tvuosi); LAG3_Ens_muu_rikos_tvuosi = lag3(Ens_muu_rikos_tvuosi); LAG4_Ens_muu_rikos_tvuosi = lag4(Ens_muu_rikos_tvuosi); LAG5_Ens_muu_rikos_tvuosi = lag5(Ens_muu_rikos_tvuosi);
LAG6_Ens_muu_rikos_tvuosi = lag6(Ens_muu_rikos_tvuosi); LAG7_Ens_muu_rikos_tvuosi = lag7(Ens_muu_rikos_tvuosi); LAG8_Ens_muu_rikos_tvuosi = lag8(Ens_muu_rikos_tvuosi); LAG9_Ens_muu_rikos_tvuosi = lag9(Ens_muu_rikos_tvuosi); LAG10_Ens_muu_rikos_tvuosi = lag10(Ens_muu_rikos_tvuosi);
LAG11_Ens_muu_rikos_tvuosi = lag11(Ens_muu_rikos_tvuosi); LAG12_Ens_muu_rikos_tvuosi = lag12(Ens_muu_rikos_tvuosi); LAG13_Ens_muu_rikos_tvuosi = lag13(Ens_muu_rikos_tvuosi); LAG14_Ens_muu_rikos_tvuosi = lag14(Ens_muu_rikos_tvuosi); LAG15_Ens_muu_rikos_tvuosi = lag15(Ens_muu_rikos_tvuosi);
LAG16_Ens_muu_rikos_tvuosi = lag16(Ens_muu_rikos_tvuosi); LAG17_Ens_muu_rikos_tvuosi = lag17(Ens_muu_rikos_tvuosi); LAG18_Ens_muu_rikos_tvuosi = lag18(Ens_muu_rikos_tvuosi); LAG19_Ens_muu_rikos_tvuosi = lag19(Ens_muu_rikos_tvuosi); LAG20_Ens_muu_rikos_tvuosi = lag20(Ens_muu_rikos_tvuosi);
LAG21_Ens_muu_rikos_tvuosi = lag21(Ens_muu_rikos_tvuosi); LAG22_Ens_muu_rikos_tvuosi = lag22(Ens_muu_rikos_tvuosi); LAG23_Ens_muu_rikos_tvuosi = lag23(Ens_muu_rikos_tvuosi); LAG24_Ens_muu_rikos_tvuosi = lag24(Ens_muu_rikos_tvuosi); LAG25_Ens_muu_rikos_tvuosi = lag25(Ens_muu_rikos_tvuosi);
LAG26_Ens_muu_rikos_tvuosi = lag26(Ens_muu_rikos_tvuosi); LAG27_Ens_muu_rikos_tvuosi = lag27(Ens_muu_rikos_tvuosi); LAG28_Ens_muu_rikos_tvuosi = lag28(Ens_muu_rikos_tvuosi); LAG29_Ens_muu_rikos_tvuosi = lag29(Ens_muu_rikos_tvuosi); LAG30_Ens_muu_rikos_tvuosi = lag30(Ens_muu_rikos_tvuosi);
LAG31_Ens_muu_rikos_tvuosi = lag31(Ens_muu_rikos_tvuosi); LAG32_Ens_muu_rikos_tvuosi = lag32(Ens_muu_rikos_tvuosi); LAG33_Ens_muu_rikos_tvuosi = lag33(Ens_muu_rikos_tvuosi); LAG34_Ens_muu_rikos_tvuosi = lag34(Ens_muu_rikos_tvuosi); LAG35_Ens_muu_rikos_tvuosi = lag35(Ens_muu_rikos_tvuosi);
LAG36_Ens_muu_rikos_tvuosi = lag36(Ens_muu_rikos_tvuosi); LAG37_Ens_muu_rikos_tvuosi = lag37(Ens_muu_rikos_tvuosi); LAG38_Ens_muu_rikos_tvuosi = lag38(Ens_muu_rikos_tvuosi); LAG39_Ens_muu_rikos_tvuosi = lag39(Ens_muu_rikos_tvuosi); LAG40_Ens_muu_rikos_tvuosi = lag40(Ens_muu_rikos_tvuosi);
LAG41_Ens_muu_rikos_tvuosi = lag41(Ens_muu_rikos_tvuosi); LAG42_Ens_muu_rikos_tvuosi = lag42(Ens_muu_rikos_tvuosi);

if Ens_muu_rikos_tvuosi = . and id = lag(id) then Ens_muu_rikos_tvuosi = LAG_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag2(id) then Ens_muu_rikos_tvuosi = LAG2_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag3(id) then Ens_muu_rikos_tvuosi = LAG3_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag4(id) then Ens_muu_rikos_tvuosi = LAG4_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag5(id) then Ens_muu_rikos_tvuosi = LAG5_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag6(id) then Ens_muu_rikos_tvuosi = LAG6_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag7(id) then Ens_muu_rikos_tvuosi = LAG7_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag8(id) then Ens_muu_rikos_tvuosi = LAG8_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag9(id) then Ens_muu_rikos_tvuosi = LAG9_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag10(id) then Ens_muu_rikos_tvuosi = LAG10_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag11(id) then Ens_muu_rikos_tvuosi = LAG11_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag12(id) then Ens_muu_rikos_tvuosi = LAG12_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag13(id) then Ens_muu_rikos_tvuosi = LAG13_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag14(id) then Ens_muu_rikos_tvuosi = LAG14_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag15(id) then Ens_muu_rikos_tvuosi = LAG15_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag16(id) then Ens_muu_rikos_tvuosi = LAG16_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag17(id) then Ens_muu_rikos_tvuosi = LAG17_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag18(id) then Ens_muu_rikos_tvuosi = LAG18_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag19(id) then Ens_muu_rikos_tvuosi = LAG19_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag20(id) then Ens_muu_rikos_tvuosi = LAG20_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag21(id) then Ens_muu_rikos_tvuosi = LAG21_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag22(id) then Ens_muu_rikos_tvuosi = LAG22_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag23(id) then Ens_muu_rikos_tvuosi = LAG23_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag24(id) then Ens_muu_rikos_tvuosi = LAG24_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag25(id) then Ens_muu_rikos_tvuosi = LAG25_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag26(id) then Ens_muu_rikos_tvuosi = LAG26_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag27(id) then Ens_muu_rikos_tvuosi = LAG27_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag28(id) then Ens_muu_rikos_tvuosi = LAG28_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag29(id) then Ens_muu_rikos_tvuosi = LAG29_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag30(id) then Ens_muu_rikos_tvuosi = LAG30_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag31(id) then Ens_muu_rikos_tvuosi = LAG31_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag32(id) then Ens_muu_rikos_tvuosi = LAG32_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag33(id) then Ens_muu_rikos_tvuosi = LAG33_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag34(id) then Ens_muu_rikos_tvuosi = LAG34_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag35(id) then Ens_muu_rikos_tvuosi = LAG35_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag36(id) then Ens_muu_rikos_tvuosi = LAG36_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag37(id) then Ens_muu_rikos_tvuosi = LAG37_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag38(id) then Ens_muu_rikos_tvuosi = LAG38_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag39(id) then Ens_muu_rikos_tvuosi = LAG39_Ens_muu_rikos_tvuosi;
if Ens_muu_rikos_tvuosi = . and id = lag40(id) then Ens_muu_rikos_tvuosi = LAG40_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag41(id) then Ens_muu_rikos_tvuosi = LAG41_Ens_muu_rikos_tvuosi; if Ens_muu_rikos_tvuosi = . and id = lag42(id) then Ens_muu_rikos_tvuosi = LAG42_Ens_muu_rikos_tvuosi;


/*----*/

if YEAR = 1977 and talous_kaikki > 0 then Ens_talousrikos_tvuosi = TEKOVUOSI*1;

if lag(CUM_Talous_kaikki) = 0 and CUM_Talous_kaikki > 0 and id = lag(id) then Ens_talousrikos_tvuosi = TEKOVUOSI*1;

LAG_Ens_talousrikos_tvuosi = lag(Ens_talousrikos_tvuosi); LAG2_Ens_talousrikos_tvuosi = lag2(Ens_talousrikos_tvuosi); LAG3_Ens_talousrikos_tvuosi = lag3(Ens_talousrikos_tvuosi); LAG4_Ens_talousrikos_tvuosi = lag4(Ens_talousrikos_tvuosi); LAG5_Ens_talousrikos_tvuosi = lag5(Ens_talousrikos_tvuosi);
LAG6_Ens_talousrikos_tvuosi = lag6(Ens_talousrikos_tvuosi); LAG7_Ens_talousrikos_tvuosi = lag7(Ens_talousrikos_tvuosi); LAG8_Ens_talousrikos_tvuosi = lag8(Ens_talousrikos_tvuosi); LAG9_Ens_talousrikos_tvuosi = lag9(Ens_talousrikos_tvuosi); LAG10_Ens_talousrikos_tvuosi = lag10(Ens_talousrikos_tvuosi);
LAG11_Ens_talousrikos_tvuosi = lag11(Ens_talousrikos_tvuosi); LAG12_Ens_talousrikos_tvuosi = lag12(Ens_talousrikos_tvuosi); LAG13_Ens_talousrikos_tvuosi = lag13(Ens_talousrikos_tvuosi); LAG14_Ens_talousrikos_tvuosi = lag14(Ens_talousrikos_tvuosi); LAG15_Ens_talousrikos_tvuosi = lag15(Ens_talousrikos_tvuosi);
LAG16_Ens_talousrikos_tvuosi = lag16(Ens_talousrikos_tvuosi); LAG17_Ens_talousrikos_tvuosi = lag17(Ens_talousrikos_tvuosi); LAG18_Ens_talousrikos_tvuosi = lag18(Ens_talousrikos_tvuosi); LAG19_Ens_talousrikos_tvuosi = lag19(Ens_talousrikos_tvuosi); LAG20_Ens_talousrikos_tvuosi = lag20(Ens_talousrikos_tvuosi);
LAG21_Ens_talousrikos_tvuosi = lag21(Ens_talousrikos_tvuosi); LAG22_Ens_talousrikos_tvuosi = lag22(Ens_talousrikos_tvuosi); LAG23_Ens_talousrikos_tvuosi = lag23(Ens_talousrikos_tvuosi); LAG24_Ens_talousrikos_tvuosi = lag24(Ens_talousrikos_tvuosi); LAG25_Ens_talousrikos_tvuosi = lag25(Ens_talousrikos_tvuosi);
LAG26_Ens_talousrikos_tvuosi = lag26(Ens_talousrikos_tvuosi); LAG27_Ens_talousrikos_tvuosi = lag27(Ens_talousrikos_tvuosi); LAG28_Ens_talousrikos_tvuosi = lag28(Ens_talousrikos_tvuosi); LAG29_Ens_talousrikos_tvuosi = lag29(Ens_talousrikos_tvuosi); LAG30_Ens_talousrikos_tvuosi = lag30(Ens_talousrikos_tvuosi);
LAG31_Ens_talousrikos_tvuosi = lag31(Ens_talousrikos_tvuosi); LAG32_Ens_talousrikos_tvuosi = lag32(Ens_talousrikos_tvuosi); LAG33_Ens_talousrikos_tvuosi = lag33(Ens_talousrikos_tvuosi); LAG34_Ens_talousrikos_tvuosi = lag34(Ens_talousrikos_tvuosi); LAG35_Ens_talousrikos_tvuosi = lag35(Ens_talousrikos_tvuosi);
LAG36_Ens_talousrikos_tvuosi = lag36(Ens_talousrikos_tvuosi); LAG37_Ens_talousrikos_tvuosi = lag37(Ens_talousrikos_tvuosi); LAG38_Ens_talousrikos_tvuosi = lag38(Ens_talousrikos_tvuosi); LAG39_Ens_talousrikos_tvuosi = lag39(Ens_talousrikos_tvuosi); LAG40_Ens_talousrikos_tvuosi = lag40(Ens_talousrikos_tvuosi);
LAG41_Ens_talousrikos_tvuosi = lag41(Ens_talousrikos_tvuosi); LAG42_Ens_talousrikos_tvuosi = lag42(Ens_talousrikos_tvuosi);

if Ens_talousrikos_tvuosi = . and id = lag(id) then Ens_talousrikos_tvuosi = LAG_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag2(id) then Ens_talousrikos_tvuosi = LAG2_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag3(id) then Ens_talousrikos_tvuosi = LAG3_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag4(id) then Ens_talousrikos_tvuosi = LAG4_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag5(id) then Ens_talousrikos_tvuosi = LAG5_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag6(id) then Ens_talousrikos_tvuosi = LAG6_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag7(id) then Ens_talousrikos_tvuosi = LAG7_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag8(id) then Ens_talousrikos_tvuosi = LAG8_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag9(id) then Ens_talousrikos_tvuosi = LAG9_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag10(id) then Ens_talousrikos_tvuosi = LAG10_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag11(id) then Ens_talousrikos_tvuosi = LAG11_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag12(id) then Ens_talousrikos_tvuosi = LAG12_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag13(id) then Ens_talousrikos_tvuosi = LAG13_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag14(id) then Ens_talousrikos_tvuosi = LAG14_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag15(id) then Ens_talousrikos_tvuosi = LAG15_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag16(id) then Ens_talousrikos_tvuosi = LAG16_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag17(id) then Ens_talousrikos_tvuosi = LAG17_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag18(id) then Ens_talousrikos_tvuosi = LAG18_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag19(id) then Ens_talousrikos_tvuosi = LAG19_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag20(id) then Ens_talousrikos_tvuosi = LAG20_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag21(id) then Ens_talousrikos_tvuosi = LAG21_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag22(id) then Ens_talousrikos_tvuosi = LAG22_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag23(id) then Ens_talousrikos_tvuosi = LAG23_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag24(id) then Ens_talousrikos_tvuosi = LAG24_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag25(id) then Ens_talousrikos_tvuosi = LAG25_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag26(id) then Ens_talousrikos_tvuosi = LAG26_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag27(id) then Ens_talousrikos_tvuosi = LAG27_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag28(id) then Ens_talousrikos_tvuosi = LAG28_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag29(id) then Ens_talousrikos_tvuosi = LAG29_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag30(id) then Ens_talousrikos_tvuosi = LAG30_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag31(id) then Ens_talousrikos_tvuosi = LAG31_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag32(id) then Ens_talousrikos_tvuosi = LAG32_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag33(id) then Ens_talousrikos_tvuosi = LAG33_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag34(id) then Ens_talousrikos_tvuosi = LAG34_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag35(id) then Ens_talousrikos_tvuosi = LAG35_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag36(id) then Ens_talousrikos_tvuosi = LAG36_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag37(id) then Ens_talousrikos_tvuosi = LAG37_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag38(id) then Ens_talousrikos_tvuosi = LAG38_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag39(id) then Ens_talousrikos_tvuosi = LAG39_Ens_talousrikos_tvuosi;
if Ens_talousrikos_tvuosi = . and id = lag40(id) then Ens_talousrikos_tvuosi = LAG40_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag41(id) then Ens_talousrikos_tvuosi = LAG41_Ens_talousrikos_tvuosi; if Ens_talousrikos_tvuosi = . and id = lag42(id) then Ens_talousrikos_tvuosi = LAG42_Ens_talousrikos_tvuosi;

/*----*/

Viim_rikos_tvuosi = TEKOVUOSI*1;

LAG_Viim_rikos_tvuosi = lag(Viim_rikos_tvuosi); LAG2_Viim_rikos_tvuosi = lag2(Viim_rikos_tvuosi); LAG3_Viim_rikos_tvuosi = lag3(Viim_rikos_tvuosi); LAG4_Viim_rikos_tvuosi = lag4(Viim_rikos_tvuosi); LAG5_Viim_rikos_tvuosi = lag5(Viim_rikos_tvuosi);
LAG6_Viim_rikos_tvuosi = lag6(Viim_rikos_tvuosi); LAG7_Viim_rikos_tvuosi = lag7(Viim_rikos_tvuosi); LAG8_Viim_rikos_tvuosi = lag8(Viim_rikos_tvuosi); LAG9_Viim_rikos_tvuosi = lag9(Viim_rikos_tvuosi); LAG10_Viim_rikos_tvuosi = lag10(Viim_rikos_tvuosi);
LAG11_Viim_rikos_tvuosi = lag11(Viim_rikos_tvuosi); LAG12_Viim_rikos_tvuosi = lag12(Viim_rikos_tvuosi); LAG13_Viim_rikos_tvuosi = lag13(Viim_rikos_tvuosi); LAG14_Viim_rikos_tvuosi = lag14(Viim_rikos_tvuosi); LAG15_Viim_rikos_tvuosi = lag15(Viim_rikos_tvuosi);
LAG16_Viim_rikos_tvuosi = lag16(Viim_rikos_tvuosi); LAG17_Viim_rikos_tvuosi = lag17(Viim_rikos_tvuosi); LAG18_Viim_rikos_tvuosi = lag18(Viim_rikos_tvuosi); LAG19_Viim_rikos_tvuosi = lag19(Viim_rikos_tvuosi); LAG20_Viim_rikos_tvuosi = lag20(Viim_rikos_tvuosi);
LAG21_Viim_rikos_tvuosi = lag21(Viim_rikos_tvuosi); LAG22_Viim_rikos_tvuosi = lag22(Viim_rikos_tvuosi); LAG23_Viim_rikos_tvuosi = lag23(Viim_rikos_tvuosi); LAG24_Viim_rikos_tvuosi = lag24(Viim_rikos_tvuosi); LAG25_Viim_rikos_tvuosi = lag25(Viim_rikos_tvuosi);
LAG26_Viim_rikos_tvuosi = lag26(Viim_rikos_tvuosi); LAG27_Viim_rikos_tvuosi = lag27(Viim_rikos_tvuosi); LAG28_Viim_rikos_tvuosi = lag28(Viim_rikos_tvuosi); LAG29_Viim_rikos_tvuosi = lag29(Viim_rikos_tvuosi); LAG30_Viim_rikos_tvuosi = lag30(Viim_rikos_tvuosi);
LAG31_Viim_rikos_tvuosi = lag31(Viim_rikos_tvuosi); LAG32_Viim_rikos_tvuosi = lag32(Viim_rikos_tvuosi); LAG33_Viim_rikos_tvuosi = lag33(Viim_rikos_tvuosi); LAG34_Viim_rikos_tvuosi = lag34(Viim_rikos_tvuosi); LAG35_Viim_rikos_tvuosi = lag35(Viim_rikos_tvuosi);
LAG36_Viim_rikos_tvuosi = lag36(Viim_rikos_tvuosi); LAG37_Viim_rikos_tvuosi = lag37(Viim_rikos_tvuosi); LAG38_Viim_rikos_tvuosi = lag38(Viim_rikos_tvuosi); LAG39_Viim_rikos_tvuosi = lag39(Viim_rikos_tvuosi); LAG40_Viim_rikos_tvuosi = lag40(Viim_rikos_tvuosi);
LAG41_Viim_rikos_tvuosi = lag41(Viim_rikos_tvuosi); LAG42_Viim_rikos_tvuosi = lag42(Viim_rikos_tvuosi);

if Viim_rikos_tvuosi = . and id = lag(id) then Viim_rikos_tvuosi = LAG_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag2(id) then Viim_rikos_tvuosi = LAG2_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag3(id) then Viim_rikos_tvuosi = LAG3_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag4(id) then Viim_rikos_tvuosi = LAG4_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag5(id) then Viim_rikos_tvuosi = LAG5_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag6(id) then Viim_rikos_tvuosi = LAG6_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag7(id) then Viim_rikos_tvuosi = LAG7_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag8(id) then Viim_rikos_tvuosi = LAG8_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag9(id) then Viim_rikos_tvuosi = LAG9_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag10(id) then Viim_rikos_tvuosi = LAG10_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag11(id) then Viim_rikos_tvuosi = LAG11_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag12(id) then Viim_rikos_tvuosi = LAG12_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag13(id) then Viim_rikos_tvuosi = LAG13_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag14(id) then Viim_rikos_tvuosi = LAG14_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag15(id) then Viim_rikos_tvuosi = LAG15_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag16(id) then Viim_rikos_tvuosi = LAG16_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag17(id) then Viim_rikos_tvuosi = LAG17_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag18(id) then Viim_rikos_tvuosi = LAG18_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag19(id) then Viim_rikos_tvuosi = LAG19_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag20(id) then Viim_rikos_tvuosi = LAG20_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag21(id) then Viim_rikos_tvuosi = LAG21_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag22(id) then Viim_rikos_tvuosi = LAG22_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag23(id) then Viim_rikos_tvuosi = LAG23_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag24(id) then Viim_rikos_tvuosi = LAG24_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag25(id) then Viim_rikos_tvuosi = LAG25_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag26(id) then Viim_rikos_tvuosi = LAG26_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag27(id) then Viim_rikos_tvuosi = LAG27_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag28(id) then Viim_rikos_tvuosi = LAG28_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag29(id) then Viim_rikos_tvuosi = LAG29_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag30(id) then Viim_rikos_tvuosi = LAG30_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag31(id) then Viim_rikos_tvuosi = LAG31_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag32(id) then Viim_rikos_tvuosi = LAG32_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag33(id) then Viim_rikos_tvuosi = LAG33_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag34(id) then Viim_rikos_tvuosi = LAG34_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag35(id) then Viim_rikos_tvuosi = LAG35_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag36(id) then Viim_rikos_tvuosi = LAG36_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag37(id) then Viim_rikos_tvuosi = LAG37_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag38(id) then Viim_rikos_tvuosi = LAG38_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag39(id) then Viim_rikos_tvuosi = LAG39_Viim_rikos_tvuosi;
if Viim_rikos_tvuosi = . and id = lag40(id) then Viim_rikos_tvuosi = LAG40_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag41(id) then Viim_rikos_tvuosi = LAG41_Viim_rikos_tvuosi; if Viim_rikos_tvuosi = . and id = lag42(id) then Viim_rikos_tvuosi = LAG42_Viim_rikos_tvuosi;

/*----*/

if Talous_kaikki > 0 then Viim_talousrikos_tvuosi = TEKOVUOSI*1;

LAG_Viim_talousrikos_tvuosi = lag(Viim_talousrikos_tvuosi); LAG2_Viim_talousrikos_tvuosi = lag2(Viim_talousrikos_tvuosi); LAG3_Viim_talousrikos_tvuosi = lag3(Viim_talousrikos_tvuosi); LAG4_Viim_talousrikos_tvuosi = lag4(Viim_talousrikos_tvuosi); LAG5_Viim_talousrikos_tvuosi = lag5(Viim_talousrikos_tvuosi);
LAG6_Viim_talousrikos_tvuosi = lag6(Viim_talousrikos_tvuosi); LAG7_Viim_talousrikos_tvuosi = lag7(Viim_talousrikos_tvuosi); LAG8_Viim_talousrikos_tvuosi = lag8(Viim_talousrikos_tvuosi); LAG9_Viim_talousrikos_tvuosi = lag9(Viim_talousrikos_tvuosi); LAG10_Viim_talousrikos_tvuosi = lag10(Viim_talousrikos_tvuosi);
LAG11_Viim_talousrikos_tvuosi = lag11(Viim_talousrikos_tvuosi); LAG12_Viim_talousrikos_tvuosi = lag12(Viim_talousrikos_tvuosi); LAG13_Viim_talousrikos_tvuosi = lag13(Viim_talousrikos_tvuosi); LAG14_Viim_talousrikos_tvuosi = lag14(Viim_talousrikos_tvuosi); LAG15_Viim_talousrikos_tvuosi = lag15(Viim_talousrikos_tvuosi);
LAG16_Viim_talousrikos_tvuosi = lag16(Viim_talousrikos_tvuosi); LAG17_Viim_talousrikos_tvuosi = lag17(Viim_talousrikos_tvuosi); LAG18_Viim_talousrikos_tvuosi = lag18(Viim_talousrikos_tvuosi); LAG19_Viim_talousrikos_tvuosi = lag19(Viim_talousrikos_tvuosi); LAG20_Viim_talousrikos_tvuosi = lag20(Viim_talousrikos_tvuosi);
LAG21_Viim_talousrikos_tvuosi = lag21(Viim_talousrikos_tvuosi); LAG22_Viim_talousrikos_tvuosi = lag22(Viim_talousrikos_tvuosi); LAG23_Viim_talousrikos_tvuosi = lag23(Viim_talousrikos_tvuosi); LAG24_Viim_talousrikos_tvuosi = lag24(Viim_talousrikos_tvuosi); LAG25_Viim_talousrikos_tvuosi = lag25(Viim_talousrikos_tvuosi);
LAG26_Viim_talousrikos_tvuosi = lag26(Viim_talousrikos_tvuosi); LAG27_Viim_talousrikos_tvuosi = lag27(Viim_talousrikos_tvuosi); LAG28_Viim_talousrikos_tvuosi = lag28(Viim_talousrikos_tvuosi); LAG29_Viim_talousrikos_tvuosi = lag29(Viim_talousrikos_tvuosi); LAG30_Viim_talousrikos_tvuosi = lag30(Viim_talousrikos_tvuosi);
LAG31_Viim_talousrikos_tvuosi = lag31(Viim_talousrikos_tvuosi); LAG32_Viim_talousrikos_tvuosi = lag32(Viim_talousrikos_tvuosi); LAG33_Viim_talousrikos_tvuosi = lag33(Viim_talousrikos_tvuosi); LAG34_Viim_talousrikos_tvuosi = lag34(Viim_talousrikos_tvuosi); LAG35_Viim_talousrikos_tvuosi = lag35(Viim_talousrikos_tvuosi);
LAG36_Viim_talousrikos_tvuosi = lag36(Viim_talousrikos_tvuosi); LAG37_Viim_talousrikos_tvuosi = lag37(Viim_talousrikos_tvuosi); LAG38_Viim_talousrikos_tvuosi = lag38(Viim_talousrikos_tvuosi); LAG39_Viim_talousrikos_tvuosi = lag39(Viim_talousrikos_tvuosi); LAG40_Viim_talousrikos_tvuosi = lag40(Viim_talousrikos_tvuosi);
LAG41_Viim_talousrikos_tvuosi = lag41(Viim_talousrikos_tvuosi); LAG42_Viim_talousrikos_tvuosi = lag42(Viim_talousrikos_tvuosi);

if Viim_talousrikos_tvuosi = . and id = lag(id) then Viim_talousrikos_tvuosi = LAG_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag2(id) then Viim_talousrikos_tvuosi = LAG2_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag3(id) then Viim_talousrikos_tvuosi = LAG3_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag4(id) then Viim_talousrikos_tvuosi = LAG4_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag5(id) then Viim_talousrikos_tvuosi = LAG5_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag6(id) then Viim_talousrikos_tvuosi = LAG6_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag7(id) then Viim_talousrikos_tvuosi = LAG7_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag8(id) then Viim_talousrikos_tvuosi = LAG8_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag9(id) then Viim_talousrikos_tvuosi = LAG9_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag10(id) then Viim_talousrikos_tvuosi = LAG10_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag11(id) then Viim_talousrikos_tvuosi = LAG11_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag12(id) then Viim_talousrikos_tvuosi = LAG12_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag13(id) then Viim_talousrikos_tvuosi = LAG13_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag14(id) then Viim_talousrikos_tvuosi = LAG14_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag15(id) then Viim_talousrikos_tvuosi = LAG15_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag16(id) then Viim_talousrikos_tvuosi = LAG16_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag17(id) then Viim_talousrikos_tvuosi = LAG17_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag18(id) then Viim_talousrikos_tvuosi = LAG18_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag19(id) then Viim_talousrikos_tvuosi = LAG19_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag20(id) then Viim_talousrikos_tvuosi = LAG20_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag21(id) then Viim_talousrikos_tvuosi = LAG21_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag22(id) then Viim_talousrikos_tvuosi = LAG22_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag23(id) then Viim_talousrikos_tvuosi = LAG23_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag24(id) then Viim_talousrikos_tvuosi = LAG24_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag25(id) then Viim_talousrikos_tvuosi = LAG25_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag26(id) then Viim_talousrikos_tvuosi = LAG26_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag27(id) then Viim_talousrikos_tvuosi = LAG27_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag28(id) then Viim_talousrikos_tvuosi = LAG28_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag29(id) then Viim_talousrikos_tvuosi = LAG29_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag30(id) then Viim_talousrikos_tvuosi = LAG30_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag31(id) then Viim_talousrikos_tvuosi = LAG31_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag32(id) then Viim_talousrikos_tvuosi = LAG32_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag33(id) then Viim_talousrikos_tvuosi = LAG33_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag34(id) then Viim_talousrikos_tvuosi = LAG34_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag35(id) then Viim_talousrikos_tvuosi = LAG35_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag36(id) then Viim_talousrikos_tvuosi = LAG36_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag37(id) then Viim_talousrikos_tvuosi = LAG37_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag38(id) then Viim_talousrikos_tvuosi = LAG38_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag39(id) then Viim_talousrikos_tvuosi = LAG39_Viim_talousrikos_tvuosi;
if Viim_talousrikos_tvuosi = . and id = lag40(id) then Viim_talousrikos_tvuosi = LAG40_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag41(id) then Viim_talousrikos_tvuosi = LAG41_Viim_talousrikos_tvuosi; if Viim_talousrikos_tvuosi = . and id = lag42(id) then Viim_talousrikos_tvuosi = LAG42_Viim_talousrikos_tvuosi;

/*----*/

if Muu_rikos_4 > 0 then Viim_muu_rikos_tvuosi = TEKOVUOSI*1;

LAG_Viim_muu_rikos_tvuosi = lag(Viim_muu_rikos_tvuosi); LAG2_Viim_muu_rikos_tvuosi = lag2(Viim_muu_rikos_tvuosi); LAG3_Viim_muu_rikos_tvuosi = lag3(Viim_muu_rikos_tvuosi); LAG4_Viim_muu_rikos_tvuosi = lag4(Viim_muu_rikos_tvuosi); LAG5_Viim_muu_rikos_tvuosi = lag5(Viim_muu_rikos_tvuosi);
LAG6_Viim_muu_rikos_tvuosi = lag6(Viim_muu_rikos_tvuosi); LAG7_Viim_muu_rikos_tvuosi = lag7(Viim_muu_rikos_tvuosi); LAG8_Viim_muu_rikos_tvuosi = lag8(Viim_muu_rikos_tvuosi); LAG9_Viim_muu_rikos_tvuosi = lag9(Viim_muu_rikos_tvuosi); LAG10_Viim_muu_rikos_tvuosi = lag10(Viim_muu_rikos_tvuosi);
LAG11_Viim_muu_rikos_tvuosi = lag11(Viim_muu_rikos_tvuosi); LAG12_Viim_muu_rikos_tvuosi = lag12(Viim_muu_rikos_tvuosi); LAG13_Viim_muu_rikos_tvuosi = lag13(Viim_muu_rikos_tvuosi); LAG14_Viim_muu_rikos_tvuosi = lag14(Viim_muu_rikos_tvuosi); LAG15_Viim_muu_rikos_tvuosi = lag15(Viim_muu_rikos_tvuosi);
LAG16_Viim_muu_rikos_tvuosi = lag16(Viim_muu_rikos_tvuosi); LAG17_Viim_muu_rikos_tvuosi = lag17(Viim_muu_rikos_tvuosi); LAG18_Viim_muu_rikos_tvuosi = lag18(Viim_muu_rikos_tvuosi); LAG19_Viim_muu_rikos_tvuosi = lag19(Viim_muu_rikos_tvuosi); LAG20_Viim_muu_rikos_tvuosi = lag20(Viim_muu_rikos_tvuosi);
LAG21_Viim_muu_rikos_tvuosi = lag21(Viim_muu_rikos_tvuosi); LAG22_Viim_muu_rikos_tvuosi = lag22(Viim_muu_rikos_tvuosi); LAG23_Viim_muu_rikos_tvuosi = lag23(Viim_muu_rikos_tvuosi); LAG24_Viim_muu_rikos_tvuosi = lag24(Viim_muu_rikos_tvuosi); LAG25_Viim_muu_rikos_tvuosi = lag25(Viim_muu_rikos_tvuosi);
LAG26_Viim_muu_rikos_tvuosi = lag26(Viim_muu_rikos_tvuosi); LAG27_Viim_muu_rikos_tvuosi = lag27(Viim_muu_rikos_tvuosi); LAG28_Viim_muu_rikos_tvuosi = lag28(Viim_muu_rikos_tvuosi); LAG29_Viim_muu_rikos_tvuosi = lag29(Viim_muu_rikos_tvuosi); LAG30_Viim_muu_rikos_tvuosi = lag30(Viim_muu_rikos_tvuosi);
LAG31_Viim_muu_rikos_tvuosi = lag31(Viim_muu_rikos_tvuosi); LAG32_Viim_muu_rikos_tvuosi = lag32(Viim_muu_rikos_tvuosi); LAG33_Viim_muu_rikos_tvuosi = lag33(Viim_muu_rikos_tvuosi); LAG34_Viim_muu_rikos_tvuosi = lag34(Viim_muu_rikos_tvuosi); LAG35_Viim_muu_rikos_tvuosi = lag35(Viim_muu_rikos_tvuosi);
LAG36_Viim_muu_rikos_tvuosi = lag36(Viim_muu_rikos_tvuosi); LAG37_Viim_muu_rikos_tvuosi = lag37(Viim_muu_rikos_tvuosi); LAG38_Viim_muu_rikos_tvuosi = lag38(Viim_muu_rikos_tvuosi); LAG39_Viim_muu_rikos_tvuosi = lag39(Viim_muu_rikos_tvuosi); LAG40_Viim_muu_rikos_tvuosi = lag40(Viim_muu_rikos_tvuosi);
LAG41_Viim_muu_rikos_tvuosi = lag41(Viim_muu_rikos_tvuosi); LAG42_Viim_muu_rikos_tvuosi = lag42(Viim_muu_rikos_tvuosi);

if Viim_muu_rikos_tvuosi = . and id = lag(id) then Viim_muu_rikos_tvuosi = LAG_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag2(id) then Viim_muu_rikos_tvuosi = LAG2_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag3(id) then Viim_muu_rikos_tvuosi = LAG3_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag4(id) then Viim_muu_rikos_tvuosi = LAG4_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag5(id) then Viim_muu_rikos_tvuosi = LAG5_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag6(id) then Viim_muu_rikos_tvuosi = LAG6_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag7(id) then Viim_muu_rikos_tvuosi = LAG7_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag8(id) then Viim_muu_rikos_tvuosi = LAG8_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag9(id) then Viim_muu_rikos_tvuosi = LAG9_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag10(id) then Viim_muu_rikos_tvuosi = LAG10_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag11(id) then Viim_muu_rikos_tvuosi = LAG11_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag12(id) then Viim_muu_rikos_tvuosi = LAG12_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag13(id) then Viim_muu_rikos_tvuosi = LAG13_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag14(id) then Viim_muu_rikos_tvuosi = LAG14_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag15(id) then Viim_muu_rikos_tvuosi = LAG15_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag16(id) then Viim_muu_rikos_tvuosi = LAG16_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag17(id) then Viim_muu_rikos_tvuosi = LAG17_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag18(id) then Viim_muu_rikos_tvuosi = LAG18_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag19(id) then Viim_muu_rikos_tvuosi = LAG19_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag20(id) then Viim_muu_rikos_tvuosi = LAG20_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag21(id) then Viim_muu_rikos_tvuosi = LAG21_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag22(id) then Viim_muu_rikos_tvuosi = LAG22_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag23(id) then Viim_muu_rikos_tvuosi = LAG23_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag24(id) then Viim_muu_rikos_tvuosi = LAG24_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag25(id) then Viim_muu_rikos_tvuosi = LAG25_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag26(id) then Viim_muu_rikos_tvuosi = LAG26_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag27(id) then Viim_muu_rikos_tvuosi = LAG27_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag28(id) then Viim_muu_rikos_tvuosi = LAG28_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag29(id) then Viim_muu_rikos_tvuosi = LAG29_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag30(id) then Viim_muu_rikos_tvuosi = LAG30_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag31(id) then Viim_muu_rikos_tvuosi = LAG31_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag32(id) then Viim_muu_rikos_tvuosi = LAG32_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag33(id) then Viim_muu_rikos_tvuosi = LAG33_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag34(id) then Viim_muu_rikos_tvuosi = LAG34_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag35(id) then Viim_muu_rikos_tvuosi = LAG35_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag36(id) then Viim_muu_rikos_tvuosi = LAG36_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag37(id) then Viim_muu_rikos_tvuosi = LAG37_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag38(id) then Viim_muu_rikos_tvuosi = LAG38_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag39(id) then Viim_muu_rikos_tvuosi = LAG39_Viim_muu_rikos_tvuosi;
if Viim_muu_rikos_tvuosi = . and id = lag40(id) then Viim_muu_rikos_tvuosi = LAG40_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag41(id) then Viim_muu_rikos_tvuosi = LAG41_Viim_muu_rikos_tvuosi; if Viim_muu_rikos_tvuosi = . and id = lag42(id) then Viim_muu_rikos_tvuosi = LAG42_Viim_muu_rikos_tvuosi;

drop 
LAG_Viim_rikos_tvuosi LAG2_Viim_rikos_tvuosi LAG3_Viim_rikos_tvuosi LAG4_Viim_rikos_tvuosi LAG5_Viim_rikos_tvuosi LAG6_Viim_rikos_tvuosi LAG7_Viim_rikos_tvuosi LAG8_Viim_rikos_tvuosi LAG9_Viim_rikos_tvuosi LAG10_Viim_rikos_tvuosi
LAG11_Viim_rikos_tvuosi LAG12_Viim_rikos_tvuosi LAG13_Viim_rikos_tvuosi LAG14_Viim_rikos_tvuosi LAG15_Viim_rikos_tvuosi
LAG16_Viim_rikos_tvuosi LAG17_Viim_rikos_tvuosi LAG18_Viim_rikos_tvuosi LAG19_Viim_rikos_tvuosi LAG20_Viim_rikos_tvuosi
LAG21_Viim_rikos_tvuosi LAG22_Viim_rikos_tvuosi LAG23_Viim_rikos_tvuosi LAG24_Viim_rikos_tvuosi LAG25_Viim_rikos_tvuosi
LAG26_Viim_rikos_tvuosi LAG27_Viim_rikos_tvuosi LAG28_Viim_rikos_tvuosi LAG29_Viim_rikos_tvuosi LAG30_Viim_rikos_tvuosi
LAG31_Viim_rikos_tvuosi LAG32_Viim_rikos_tvuosi LAG33_Viim_rikos_tvuosi LAG34_Viim_rikos_tvuosi LAG35_Viim_rikos_tvuosi
LAG36_Viim_rikos_tvuosi LAG37_Viim_rikos_tvuosi LAG38_Viim_rikos_tvuosi LAG39_Viim_rikos_tvuosi LAG40_Viim_rikos_tvuosi
LAG41_Viim_rikos_tvuosi LAG42_Viim_rikos_tvuosi

LAG_Viim_talousrikos_tvuosi LAG2_Viim_talousrikos_tvuosi LAG3_Viim_talousrikos_tvuosi LAG4_Viim_talousrikos_tvuosi LAG5_Viim_talousrikos_tvuosi LAG6_Viim_talousrikos_tvuosi LAG7_Viim_talousrikos_tvuosi LAG8_Viim_talousrikos_tvuosi LAG9_Viim_talousrikos_tvuosi LAG10_Viim_talousrikos_tvuosi
LAG11_Viim_talousrikos_tvuosi LAG12_Viim_talousrikos_tvuosi LAG13_Viim_talousrikos_tvuosi LAG14_Viim_talousrikos_tvuosi LAG15_Viim_talousrikos_tvuosi
LAG16_Viim_talousrikos_tvuosi LAG17_Viim_talousrikos_tvuosi LAG18_Viim_talousrikos_tvuosi LAG19_Viim_talousrikos_tvuosi LAG20_Viim_talousrikos_tvuosi
LAG21_Viim_talousrikos_tvuosi LAG22_Viim_talousrikos_tvuosi LAG23_Viim_talousrikos_tvuosi LAG24_Viim_talousrikos_tvuosi LAG25_Viim_talousrikos_tvuosi
LAG26_Viim_talousrikos_tvuosi LAG27_Viim_talousrikos_tvuosi LAG28_Viim_talousrikos_tvuosi LAG29_Viim_talousrikos_tvuosi LAG30_Viim_talousrikos_tvuosi
LAG31_Viim_talousrikos_tvuosi LAG32_Viim_talousrikos_tvuosi LAG33_Viim_talousrikos_tvuosi LAG34_Viim_talousrikos_tvuosi LAG35_Viim_talousrikos_tvuosi
LAG36_Viim_talousrikos_tvuosi LAG37_Viim_talousrikos_tvuosi LAG38_Viim_talousrikos_tvuosi LAG39_Viim_talousrikos_tvuosi LAG40_Viim_talousrikos_tvuosi
LAG41_Viim_talousrikos_tvuosi LAG42_Viim_talousrikos_tvuosi

LAG_Ens_talousrikos_tvuosi LAG2_Ens_talousrikos_tvuosi LAG3_Ens_talousrikos_tvuosi LAG4_Ens_talousrikos_tvuosi LAG5_Ens_talousrikos_tvuosi LAG6_Ens_talousrikos_tvuosi LAG7_Ens_talousrikos_tvuosi LAG8_Ens_talousrikos_tvuosi LAG9_Ens_talousrikos_tvuosi LAG10_Ens_talousrikos_tvuosi
LAG11_Ens_talousrikos_tvuosi LAG12_Ens_talousrikos_tvuosi LAG13_Ens_talousrikos_tvuosi LAG14_Ens_talousrikos_tvuosi LAG15_Ens_talousrikos_tvuosi
LAG16_Ens_talousrikos_tvuosi LAG17_Ens_talousrikos_tvuosi LAG18_Ens_talousrikos_tvuosi LAG19_Ens_talousrikos_tvuosi LAG20_Ens_talousrikos_tvuosi
LAG21_Ens_talousrikos_tvuosi LAG22_Ens_talousrikos_tvuosi LAG23_Ens_talousrikos_tvuosi LAG24_Ens_talousrikos_tvuosi LAG25_Ens_talousrikos_tvuosi
LAG26_Ens_talousrikos_tvuosi LAG27_Ens_talousrikos_tvuosi LAG28_Ens_talousrikos_tvuosi LAG29_Ens_talousrikos_tvuosi LAG30_Ens_talousrikos_tvuosi
LAG31_Ens_talousrikos_tvuosi LAG32_Ens_talousrikos_tvuosi LAG33_Ens_talousrikos_tvuosi LAG34_Ens_talousrikos_tvuosi LAG35_Ens_talousrikos_tvuosi
LAG36_Ens_talousrikos_tvuosi LAG37_Ens_talousrikos_tvuosi LAG38_Ens_talousrikos_tvuosi LAG39_Ens_talousrikos_tvuosi LAG40_Ens_talousrikos_tvuosi
LAG41_Ens_talousrikos_tvuosi LAG42_Ens_talousrikos_tvuosi

LAG_Ens_muu_rikos_tvuosi LAG2_Ens_muu_rikos_tvuosi LAG3_Ens_muu_rikos_tvuosi LAG4_Ens_muu_rikos_tvuosi LAG5_Ens_muu_rikos_tvuosi LAG6_Ens_muu_rikos_tvuosi LAG7_Ens_muu_rikos_tvuosi LAG8_Ens_muu_rikos_tvuosi LAG9_Ens_muu_rikos_tvuosi LAG10_Ens_muu_rikos_tvuosi
LAG11_Ens_muu_rikos_tvuosi LAG12_Ens_muu_rikos_tvuosi LAG13_Ens_muu_rikos_tvuosi LAG14_Ens_muu_rikos_tvuosi LAG15_Ens_muu_rikos_tvuosi
LAG16_Ens_muu_rikos_tvuosi LAG17_Ens_muu_rikos_tvuosi LAG18_Ens_muu_rikos_tvuosi LAG19_Ens_muu_rikos_tvuosi LAG20_Ens_muu_rikos_tvuosi
LAG21_Ens_muu_rikos_tvuosi LAG22_Ens_muu_rikos_tvuosi LAG23_Ens_muu_rikos_tvuosi LAG24_Ens_muu_rikos_tvuosi LAG25_Ens_muu_rikos_tvuosi
LAG26_Ens_muu_rikos_tvuosi LAG27_Ens_muu_rikos_tvuosi LAG28_Ens_muu_rikos_tvuosi LAG29_Ens_muu_rikos_tvuosi LAG30_Ens_muu_rikos_tvuosi
LAG31_Ens_muu_rikos_tvuosi LAG32_Ens_muu_rikos_tvuosi LAG33_Ens_muu_rikos_tvuosi LAG34_Ens_muu_rikos_tvuosi LAG35_Ens_muu_rikos_tvuosi
LAG36_Ens_muu_rikos_tvuosi LAG37_Ens_muu_rikos_tvuosi LAG38_Ens_muu_rikos_tvuosi LAG39_Ens_muu_rikos_tvuosi LAG40_Ens_muu_rikos_tvuosi
LAG41_Ens_muu_rikos_tvuosi LAG42_Ens_muu_rikos_tvuosi


LAG_Viim_muu_rikos_tvuosi LAG2_Viim_muu_rikos_tvuosi LAG3_Viim_muu_rikos_tvuosi LAG4_Viim_muu_rikos_tvuosi LAG5_Viim_muu_rikos_tvuosi LAG6_Viim_muu_rikos_tvuosi LAG7_Viim_muu_rikos_tvuosi LAG8_Viim_muu_rikos_tvuosi LAG9_Viim_muu_rikos_tvuosi LAG10_Viim_muu_rikos_tvuosi
LAG11_Viim_muu_rikos_tvuosi LAG12_Viim_muu_rikos_tvuosi LAG13_Viim_muu_rikos_tvuosi LAG14_Viim_muu_rikos_tvuosi LAG15_Viim_muu_rikos_tvuosi
LAG16_Viim_muu_rikos_tvuosi LAG17_Viim_muu_rikos_tvuosi LAG18_Viim_muu_rikos_tvuosi LAG19_Viim_muu_rikos_tvuosi LAG20_Viim_muu_rikos_tvuosi
LAG21_Viim_muu_rikos_tvuosi LAG22_Viim_muu_rikos_tvuosi LAG23_Viim_muu_rikos_tvuosi LAG24_Viim_muu_rikos_tvuosi LAG25_Viim_muu_rikos_tvuosi
LAG26_Viim_muu_rikos_tvuosi LAG27_Viim_muu_rikos_tvuosi LAG28_Viim_muu_rikos_tvuosi LAG29_Viim_muu_rikos_tvuosi LAG30_Viim_muu_rikos_tvuosi
LAG31_Viim_muu_rikos_tvuosi LAG32_Viim_muu_rikos_tvuosi LAG33_Viim_muu_rikos_tvuosi LAG34_Viim_muu_rikos_tvuosi LAG35_Viim_muu_rikos_tvuosi
LAG36_Viim_muu_rikos_tvuosi LAG37_Viim_muu_rikos_tvuosi LAG38_Viim_muu_rikos_tvuosi LAG39_Viim_muu_rikos_tvuosi LAG40_Viim_muu_rikos_tvuosi
LAG41_Viim_muu_rikos_tvuosi LAG42_Viim_muu_rikos_tvuosi;

run;

* Saves data;

data lib100.Tuomiot_raaka_t_vuosi_300924;
set ddd;

drop CUM_Muu4 CUM_Muu4_tuomio CUM_Muu5 CUM_Muu5_tuomio CUM_Talous CUM_Talous_tuomio CUM_Talous_kaikki CUM_Talous_kaikki_tuomio CUM_Henkiterv CUM_LiikenneRR CUM_Rattijuopumus CUM_Finan_rep_fraud CUM_Tax_relat_fraud
	CUM_Other_finan_crime CUM_Finan_rep_fraud_vankeus CUM_Tax_relat_fraud_vankeus CUM_Other_finan_crime_vankeus CUM_Finan_rep_fraud_tuomio CUM_Tax_relat_fraud_tuomio CUM_Other_finan_crime_tuomio CUM_Talous_kaikki_vankeus
	CUM_Talous_kaikki_sakko CUM_Talous_kaikki_ehdol_vankeus CUM_Talous_kaikki_ehdot_vankeus CUM_muu_rikos_4_vankeus CUM_muu_rikos_4_sakko CUM_muu_rikos_4_ehdol_vankeus CUM_muu_rikos_4_ehdot_vankeus CUM_Other_finan_crime_vanha 
	CUM_Talous_vanha CUM_Talous_kaikki_vanha CUM_muu_rikos_4_vankeus_tuomio CUM_Talous_kaikki_vankeus_tuomio;

run;


* Creates lifetime crime variables;

data eee;
set ddd;

if year = 2019;

D_Lifetime_Muu_rikos_3 = 0;
D_Lifetime_Muu_rikos_3_tuomio = 0;
D_Lifetime_Muu_rikos_4 = 0;
D_Lifetime_Muu_rikos_4_tuomio = 0;
D_Lifetime_Muu_rikos_5 = 0;
D_Lifetime_Muu_rikos_5_tuomio = 0;
D_Lifetime_Talous = 0;
D_Lifetime_Talous_vanha = 0;
D_Lifetime_Talous_tuomio = 0;
D_Lifetime_Talous_kaikki = 0;
D_Lifetime_Talous_kaikki_vanha = 0;
D_Lifetime_Talous_kaikki_tuomio = 0;
D_Lifetime_Henkiterv = 0;
D_Lifetime_Henkiterv_tuomio = 0;
D_Lifetime_Liikenne = 0;
D_Lifetime_Liikenne_tuomio = 0;
D_Lifetime_DUI = 0;
D_Lifetime_DUI_tuomio = 0;
D_Lifetime_Finan_fraud = 0;
D_Lifetime_Tax_fraud = 0;
D_Lifetime_other_fraud = 0;
D_Lifetime_Finan_fraud_v = 0;
D_Lifetime_Tax_fraud_v = 0;
D_Lifetime_other_fraud_v = 0;
D_Lifetime_other_fraud_vanha = 0;
D_Lifetime_Talous_kaikki_v = 0;
D_Lifetime_Talous_kaikki_s = 0;
D_Lifetime_Talous_kaikki_ehdol_v = 0;
D_Lifetime_Talous_kaikki_ehdot_v = 0;

D_Lifetime_muu_rikos_4_v = 0;
D_Lifetime_muu_rikos_4_s = 0;
D_Lifetime_muu_rikos_4_ehdol_v = 0;
D_Lifetime_muu_rikos_4_ehdot_v = 0;

if CUM_Rattijuopumus > 0 then D_Lifetime_DUI = 1;
if CUM_Rattijuopumus_tuomio > 0 then D_Lifetime_DUI_tuomio = 1;

if CUM_Muu3 > 0 then D_Lifetime_Muu_rikos_3 = 1;
if CUM_Muu3_tuomio > 0 then D_Lifetime_Muu_rikos_3_tuomio = 1;

if CUM_Muu4 > 0 then D_Lifetime_Muu_rikos_4 = 1;
if CUM_Muu4_tuomio > 0 then D_Lifetime_Muu_rikos_4_tuomio = 1;

if CUM_Muu5 > 0 then D_Lifetime_Muu_rikos_5 = 1;
if CUM_Muu5_tuomio > 0 then D_Lifetime_Muu_rikos_5_tuomio = 1;

if CUM_Talous > 0 then D_Lifetime_Talous = 1;
if CUM_Talous_vanha > 0 then D_Lifetime_Talous_vanha = 1;
if CUM_Talous_tuomio > 0 then D_Lifetime_Talous_tuomio = 1;

if CUM_Talous_kaikki > 0 then D_Lifetime_Talous_kaikki = 1;
if CUM_Talous_kaikki_vanha > 0 then D_Lifetime_Talous_kaikki_vanha = 1;
if CUM_Talous_kaikki_tuomio > 0 then D_Lifetime_Talous_kaikki_tuomio = 1;

if CUM_henkiterv > 0 then D_Lifetime_Henkiterv = 1;
if CUM_henkiterv_tuomio > 0 then D_Lifetime_Henkiterv_tuomio = 1;

if CUM_LiikenneRR > 0 then D_Lifetime_Liikenne = 1;
if CUM_LiikenneRR_tuomio > 0 then D_Lifetime_Liikenne_tuomio = 1;

if CUM_Finan_rep_fraud > 0 then D_Lifetime_Finan_fraud = 1;
if CUM_Tax_relat_fraud > 0 then D_Lifetime_Tax_fraud = 1;
if CUM_Other_finan_crime > 0 then D_Lifetime_other_fraud = 1;
if CUM_Finan_rep_fraud_vankeus > 0 then D_Lifetime_Finan_fraud_v = 1;
if CUM_Tax_relat_fraud_vankeus > 0 then D_Lifetime_Tax_fraud_v = 1;
if CUM_Other_finan_crime_vankeus > 0 then D_Lifetime_other_fraud_v = 1;
if CUM_Other_finan_crime_vanha > 0 then D_Lifetime_other_fraud_vanha = 1;

if CUM_Talous_kaikki_vankeus > 0 then D_Lifetime_Talous_kaikki_v = 1;
if CUM_Talous_kaikki_sakko > 0 then D_Lifetime_Talous_kaikki_s = 1;
if CUM_Talous_kaikki_ehdol_vankeus > 0 then D_Lifetime_Talous_kaikki_ehdol_v = 1;
if CUM_Talous_kaikki_ehdot_vankeus > 0 then D_Lifetime_Talous_kaikki_ehdot_v = 1;

if CUM_muu_rikos_4_vankeus > 0 then D_Lifetime_muu_rikos_4_v = 1;
if CUM_muu_rikos_4_sakko > 0 then D_Lifetime_muu_rikos_4_s = 1;
if CUM_muu_rikos_4_ehdol_vankeus > 0 then D_Lifetime_muu_rikos_4_ehdol_v = 1;
if CUM_muu_rikos_4_ehdol_vankeus > 0 then D_Lifetime_muu_rikos_4_ehdol_v = 1;

keep id D_Lifetime_Muu_rikos_3 D_Lifetime_Muu_rikos_3_tuomio D_Lifetime_Muu_rikos_4 D_Lifetime_Muu_rikos_4_tuomio D_Lifetime_Talous D_Lifetime_Talous_tuomio D_Lifetime_Talous_kaikki D_Lifetime_Talous_kaikki_tuomio 
D_Lifetime_Henkiterv D_Lifetime_Liikenne D_Lifetime_Finan_fraud D_Lifetime_Tax_fraud D_Lifetime_other_fraud D_Lifetime_Finan_fraud_v D_Lifetime_Tax_fraud_v D_Lifetime_other_fraud_v D_Lifetime_Talous_kaikki_v D_Lifetime_Talous_kaikki_s
D_Lifetime_Talous_kaikki_ehdol_v D_Lifetime_Talous_kaikki_ehdot_v D_Lifetime_muu_rikos_4_v D_Lifetime_muu_rikos_4_s
D_Lifetime_muu_rikos_4_ehdol_v D_Lifetime_muu_rikos_4_ehdot_v D_Lifetime_other_fraud_vanha D_Lifetime_Talous_vanha D_Lifetime_Talous_kaikki_vanha

CUM_Muu3 CUM_Muu4 CUM_Muu5 CUM_Talous CUM_Talous_kaikki CUM_Henkiterv CUM_LiikenneRR 
CUM_Finan_rep_fraud CUM_Tax_relat_fraud CUM_Other_finan_crime CUM_Finan_rep_fraud_vankeus CUM_Tax_relat_fraud_vankeus CUM_Other_finan_crime_vankeus CUM_Talous_kaikki_vankeus CUM_Talous_kaikki_ehdol_vankeus CUM_Talous_kaikki_ehdot_vankeus
CUM_muu_rikos_4_vankeus CUM_muu_rikos_4_ehdol_vankeus CUM_muu_rikos_4_ehdot_vankeus CUM_Other_finan_crime_vanha CUM_Talous_vanha CUM_Talous_kaikki_vanha;

rename CUM_Muu3 = Lifetime_CUM_Muu3 CUM_Muu4 = Lifetime_CUM_Muu4 CUM_Muu5 = Lifetime_CUM_Muu5 CUM_Talous = Lifetime_CUM_Talous CUM_Talous_kaikki = Lifetime_CUM_Talous_kaikki
CUM_Henkiterv = Lifetime_CUM_Henkiterv CUM_LiikenneRR = Lifetime_CUM_Liikenne CUM_Finan_rep_fraud = Lifetime_CUM_Finan_rep_fraud CUM_Tax_relat_fraud = Lifetime_CUM_Tax_relat_fraud CUM_Other_finan_crime = Lifetime_CUM_Other_finan_crime
CUM_Finan_rep_fraud_vankeus = Lifetime_CUM_Finan_rep_fraud_v CUM_Tax_relat_fraud_vankeus = Lifetime_CUM_Tax_relat_fraud_v CUM_Other_finan_crime_vankeus = Lifetime_CUM_Other_finan_crime_v
CUM_Other_finan_crime_vanha = Lifetime_CUM_Other_finan_crime_u
CUM_Talous_kaikki_vankeus = Lifetime_CUM_Talous_kaikki_v CUM_Talous_kaikki_ehdol_vankeus = Ltime_CUM_Talous_kaikki_ehdol_v CUM_Talous_kaikki_ehdot_vankeus = Ltime_CUM_Talous_kaikki_ehdot_v CUM_muu_rikos_4_vankeus = Lifetime_CUM_muu_rikos_4_v
CUM_muu_rikos_4_ehdol_vankeus = Lifetime_CUM_muu_rikos_4_ehdol_v CUM_muu_rikos_4_ehdot_vankeus = Lifetime_CUM_muu_rikos_4_ehdot_v CUM_Talous_vanha = Lifetime_CUM_Talous_vanha CUM_Talous_kaikki_vanha = Lifetime_CUM_Talous_kaikki_vanha;

run;

data fff;
merge ddd eee;
by id;
	D_Muu_rikos_4 = 0;
	D_Muu_rikos_4_tuomio = 0;
	D_Muu_rikos_5 = 0;
	D_Muu_rikos_5_tuomio = 0;
	D_Talous = 0;
	D_Talous_vanha = 0;
	D_Talous_tuomio = 0;
	D_Talous_kaikki = 0;
	D_Talous_kaikki_vanha = 0;
	D_Talous_kaikki_tuomio = 0;
	D_Henkiterv = 0;
	D_Henkiterv_tuomio = 0;
	D_Liikenne = 0;
	D_Liikenne_tuomio = 0;
	D_Rattijuopumus = 0;
	D_Rattijuopumus_tuomio = 0;
	D_Finan_rep_fraud = 0;
	D_Tax_relat_fraud = 0;
	D_Other_finan_crime = 0;
	D_Finan_rep_fraud_vankeus = 0;
	D_Tax_relat_fraud_vankeus = 0;
	D_Other_finan_crime_vankeus = 0;
	D_Other_finan_crime_vanha = 0;
	D_Finan_rep_fraud_tuomio = 0;
	D_Tax_relat_fraud_tuomio = 0;
	D_Other_finan_crime_tuomio = 0;

	D_Talous_kaikki_vankeus = 0;
	D_Talous_kaikki_vankeus_tuomio = 0;
	D_Talous_kaikki_ehdol_vankeus = 0; 
	D_Talous_kaikki_ehdot_vankeus = 0;
 
	D_muu_rikos_4_vankeus = 0;
	D_muu_rikos_4_vankeus_tuomio = 0;
	D_muu_rikos_4_ehdol_vankeus = 0;
	D_muu_rikos_4_ehdot_vankeus = 0;

	CUM_Talous_kaikki_tuomio_2 = 0;
	CUM_Muu_rikos_4_tuomio_2 = 0;

	CUM_Talous_kaikki_tuomio_2 = lag(CUM_Talous_kaikki_tuomio);
	CUM_Muu_rikos_4_tuomio_2  = lag(CUM_Muu4_tuomio);
	
	if id ^= lag(id) then CUM_Talous_kaikki_tuomio_2 = . ;
	if id ^= lag(id) then CUM_Muu_rikos_4_tuomio_2 = . ;

	CUM_Talous_kaikki_2 = 0;
	CUM_Talous_kaikki_vanha_2 = 0;
	CUM_Muu_rikos_4_2 = 0;

	CUM_Talous_kaikki_2 = lag(CUM_Talous_kaikki);
	CUM_Talous_kaikki_vanha_2 = lag(CUM_Talous_kaikki_vanha);
	CUM_Muu_rikos_4_2  = lag(CUM_Muu4);
	
	if id ^= lag(id) then CUM_Talous_kaikki_2 = . ;
	if id ^= lag(id) then CUM_Talous_kaikki_vanha_2 = . ;
	if id ^= lag(id) then CUM_Muu_rikos_4_2 = . ;

	if lag(CUM_Rattijuopumus) > 0 and id = lag(id) then D_Rattijuopumus = 1;
	if lag(CUM_Rattijuopumus_tuomio) > 0 and id = lag(id) then D_Rattijuopumus_tuomio = 1;
	if lag(CUM_Muu4) > 0 and id = lag(id) then D_Muu_rikos_4 = 1;
	if lag(CUM_Muu4_tuomio) > 0 and id = lag(id) then D_Muu_rikos_4_tuomio = 1;
	if lag(CUM_Muu5) > 0 and id = lag(id) then D_Muu_rikos_5 = 1;
	if lag(CUM_Muu5_tuomio) > 0 and id = lag(id) then D_Muu_rikos_5_tuomio = 1;
	if lag(CUM_Talous) > 0 and id = lag(id) then D_Talous = 1;
	if lag(CUM_Talous_vanha) > 0 and id = lag(id) then D_Talous_vanha = 1;
	if lag(CUM_Talous_tuomio) > 0 and id = lag(id) then D_Talous_tuomio = 1;
	if lag(CUM_Talous_kaikki) > 0 and id = lag(id) then D_Talous_kaikki = 1;
	if lag(CUM_Talous_kaikki_vanha) > 0 and id = lag(id) then D_Talous_kaikki_vanha = 1;
	if lag(CUM_Talous_kaikki_tuomio) > 0 and id = lag(id) then D_Talous_kaikki_tuomio = 1;
	if lag(CUM_Henkiterv) > 0 and id = lag(id) then D_Henkiterv = 1;
	if lag(CUM_Henkiterv_tuomio) > 0 and id = lag(id) then D_Henkiterv_tuomio = 1;
	if lag(CUM_LiikenneRR) > 0 and id = lag(id) then D_Liikenne = 1;
	if lag(CUM_LiikenneRR_tuomio) > 0 and id = lag(id) then D_Liikenne_tuomio = 1;

	if lag(CUM_Finan_rep_fraud) > 0 and id = lag(id) then D_Finan_rep_fraud = 1;
	if lag(CUM_Tax_relat_fraud) > 0 and id = lag(id) then D_Tax_relat_fraud = 1;
	if lag(CUM_Other_finan_crime) > 0 and id = lag(id) then D_Other_finan_crime = 1;
	if lag(CUM_Finan_rep_fraud_vankeus) > 0 and id = lag(id) then D_Finan_rep_fraud_vankeus = 1;
	if lag(CUM_Tax_relat_fraud_vankeus) > 0 and id = lag(id) then D_Tax_relat_fraud_vankeus = 1;
	if lag(CUM_Other_finan_crime_vankeus) > 0 and id = lag(id) then D_Other_finan_crime_vankeus = 1;
	if lag(CUM_Other_finan_crime_vanha) > 0 and id = lag(id) then D_Other_finan_crime_vanha = 1;
	if lag(CUM_Finan_rep_fraud_tuomio) > 0 and id = lag(id) then D_Finan_rep_fraud_tuomio = 1;
	if lag(CUM_Tax_relat_fraud_tuomio) > 0 and id = lag(id) then D_Tax_relat_fraud_tuomio = 1;
	if lag(CUM_Other_finan_crime_tuomio) > 0 and id = lag(id) then D_Other_finan_crime_tuomio = 1;

	if lag(CUM_Talous_kaikki_vankeus) > 0 and id = lag(id) then D_Talous_kaikki_vankeus = 1;
	if lag(CUM_Talous_kaikki_vankeus_tuomio) > 0 and id = lag(id) then D_Talous_kaikki_vankeus_tuomio = 1;
	if lag(CUM_Talous_kaikki_ehdol_vankeus) > 0 and id = lag(id) then D_Talous_kaikki_ehdol_vankeus = 1;
	if lag(CUM_Talous_kaikki_ehdot_vankeus) > 0 and id = lag(id) then D_Talous_kaikki_ehdot_vankeus = 1;

	if lag(CUM_muu_rikos_4_vankeus) > 0 and id = lag(id) then D_muu_rikos_4_vankeus = 1;
	if lag(CUM_muu_rikos_4_vankeus_tuomio) > 0 and id = lag(id) then D_muu_rikos_4_vankeus_tuomio = 1;
	if lag(CUM_muu_rikos_4_ehdol_vankeus) > 0 and id = lag(id) then D_muu_rikos_4_ehdol_vankeus = 1;
	if lag(CUM_muu_rikos_4_ehdot_vankeus) > 0 and id = lag(id) then D_muu_rikos_4_ehdot_vankeus = 1;

rename LiikenneRR = Liikenne LiikenneRR_tuomio = Liikenne_tuomio;

run;

* Saves data;

data lib100.convictions_KP_tekovuosi_300924;
set fff;

keep id year D_Lifetime_Finan_fraud D_Lifetime_Tax_fraud D_Lifetime_other_fraud D_Lifetime_other_fraud_vanha
D_Lifetime_Muu_rikos_4 D_Lifetime_Talous D_Lifetime_Talous_vanha D_Lifetime_Talous_tuomio D_Lifetime_Talous_kaikki D_Lifetime_Talous_kaikki_vanha D_Lifetime_Talous_kaikki_tuomio D_Lifetime_Henkiterv D_Lifetime_Liikenne D_Muu_rikos_4 D_Muu_rikos_4_tuomio D_Muu_rikos_5 D_Muu_rikos_5_tuomio
D_Talous D_Talous_tuomio D_Talous_kaikki D_Talous_kaikki_tuomio muu_rikos_4 muu_rikos_4_tuomio muu_rikos_5 muu_rikos_5_tuomio 
Talous Talous_vanha Talous_tuomio Talous_kaikki Talous_kaikki_vanha Talous_kaikki_tuomio Liikenne Liikenne_tuomio Henkiterveys Talous_kaikki_vankeus
Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus CUM_Muu3 CUM_Muu3_tuomio CUM_Muu4 CUM_Muu4_tuomio CUM_Talous CUM_Talous_vanha CUM_Talous_tuomio
CUM_Talous_kaikki CUM_Talous_kaikki_vanha CUM_Talous_kaikki_tuomio CUM_Talous_kaikki_tuomio_2 CUM_Muu_rikos_4_tuomio_2 CUM_Talous_kaikki_2 CUM_Talous_kaikki_vanha_2 CUM_Muu_rikos_4_2
CUM_Finan_rep_fraud CUM_Tax_relat_fraud CUM_Other_finan_crime CUM_Finan_rep_fraud_vankeus CUM_Tax_relat_fraud_vankeus CUM_Other_finan_crime_vankeus CUM_Other_finan_crime_vanha CUM_Finan_rep_fraud_tuomio CUM_Tax_relat_fraud_tuomio CUM_Other_finan_crime_tuomio
D_Finan_rep_fraud D_Tax_relat_fraud D_Other_finan_crime D_Finan_rep_fraud_vankeus D_Tax_relat_fraud_vankeus D_Other_finan_crime_vankeus D_Other_finan_crime_vanha D_Finan_rep_fraud_tuomio D_Tax_relat_fraud_tuomio D_Other_finan_crime_tuomio 
Finan_rep_fraud Tax_relat_fraud Other_finan_crime Finan_rep_fraud_vankeus Tax_relat_fraud_vankeus Other_finan_crime_vankeus Other_finan_crime_vanha Finan_rep_fraud_tuomio Tax_relat_fraud_tuomio Other_finan_crime_tuomio Velallisen_rikos Viim_talousrikos_tvuosi Ens_talousrikos_tvuosi Viim_rikos_tvuosi Viim_muu_rikos_tvuosi Ens_muu_rikos_tvuosi
D_Talous_kaikki_vankeus D_Talous_kaikki_ehdol_vankeus D_Talous_kaikki_ehdot_vankeus D_muu_rikos_4_vankeus D_muu_rikos_4_ehdol_vankeus D_muu_rikos_4_ehdot_vankeus CUM_Talous_kaikki_vankeus CUM_Talous_kaikki_ehdol_vankeus CUM_Talous_kaikki_ehdot_vankeus D_Lifetime_Talous_kaikki_v
D_Lifetime_Talous_kaikki_ehdol_v D_Lifetime_Talous_kaikki_ehdot_v CUM_muu_rikos_4_vankeus CUM_muu_rikos_4_ehdol_vankeus CUM_muu_rikos_4_ehdot_vankeus D_Lifetime_muu_rikos_4_v D_Lifetime_muu_rikos_4_s D_Lifetime_muu_rikos_4_ehdol_v D_Lifetime_muu_rikos_4_ehdot_v
Lifetime_CUM_Talous_kaikki_v D_Lifetime_Talous_kaikki_s Ltime_CUM_Talous_kaikki_ehdol_v Ltime_CUM_Talous_kaikki_ehdot_v Lifetime_CUM_muu_rikos_4_v D_Talous_kaikki_vankeus_tuomio D_muu_rikos_4_vankeus_tuomio

Lifetime_CUM_Muu3 Lifetime_CUM_Muu4 Lifetime_CUM_Muu5 Lifetime_CUM_Talous Lifetime_CUM_Talous_vanha Lifetime_CUM_Talous_kaikki Lifetime_CUM_Talous_kaikki_vanha
Lifetime_CUM_Henkiterv Lifetime_CUM_Liikenne Lifetime_CUM_Finan_rep_fraud Lifetime_CUM_Tax_relat_fraud Lifetime_CUM_Other_finan_crime Lifetime_CUM_Other_finan_crime_u;

run;


 /* Frequencies for specific crimes */


/*data rikokset_77_19_yks;
 merge rikokset_77_19 age;
 by ID;
 if VUOSI = ' ' then delete;

 if BIRTHYEAR = . and ika = ' ' then delete; 	* Delete individuals without data on their age;
	
 AGE = ika*1;
	
 if ika = ' ' then AGE = RV - BIRTHYEAR;		* If age at the time of commiting the crime is missing in the crime data, take age from the demographic data;
 
 if AGE < 18 then delete;						* Deletes crimes made under the age of 18;

 TEKOVUOSI = BIRTHYEAR + AGE;

YEAR = TEKOVUOSI;

 RKOD1_2merk = substr (RKOD1,1,2);
 RKOD1_3merk = substr (RKOD1,1,3);

 RKOD1_2merk_numerinen = RKOD1_2merk * 1;

 if rkod1 = '999999' then delete;

if RKOD1 = '3009A1' then T_3009A1 = 1; if RKOD1 = '300901' then T_300901 = 1; if RKOD1 = '301001' then T_301001 = 1; if RKOD1 = '672000' then T_672000 = 1; if RKOD1 = '672001' then T_672001 = 1;

if (RKOD1 = '290101' and TEKOVUOSI > 1990) or RKOD1 = '381102' then T_290101 = 1; if (RKOD1 = '290201' and TEKOVUOSI > 1990) or RKOD1 = '381101' then T_290201 = 1;
if (RKOD1 = '290301' and TEKOVUOSI > 1990) then T_290301 = 1; if (RKOD1 = '290401' and TEKOVUOSI > 1990) then T_290401 = 1; if RKOD1 = '2904C1' then T_2904C1 = 1;
if RKOD1 = '2904B1' then T_2904B1 = 1; if RKOD1 = '2904A1' then T_2904A1 = 1; if RKOD1 = '290501' then T_290501 = 1; if RKOD1 = '290601' then T_290601 = 1; if RKOD1 = '290701' then T_290701 = 1;
if RKOD1 = '2907A1' then T_2907A1 = 1; if RKOD1 = '290801' then T_290801 = 1;

if RKOD1 = '360101' then T_360101 = 1; if (RKOD1 = '360201' and TEKOVUOSI > 1990) then T_360201 = 1; if RKOD1 = '360301' or RKOD1 = '3601A1' or RKOD1 = '3601A2' then T_360301 = 1;
if RKOD1 = '360202' then T_360202 = 1; if RKOD1 = '360103' then T_360103 = 1; if RKOD1 = '360401' or (RKOD1 = '360201' and TEKOVUOSI < 1991) then T_360401 = 1; if RKOD1 = '360501' then T_360501 = 1;
if RKOD1 = '360701' then T_360701 = 1; if RKOD1 = '360601' or RKOD1 = '381001' or RKOD1 = '381002' or RKOD1 = '381003' then T_360601 = 1; if RKOD1 = '300101' then T_300101 = 1;
if RKOD1 = '510201' then T_510201 = 1; if RKOD1 = '300601' then T_300601 = 1; if RKOD1 = '300501' then T_300501 = 1;
if RKOD1 = '300201' then T_300201 = 1; if RKOD1 = '510301' then T_510301 = 1; if RKOD1 = '510501' then T_510501 = 1; if RKOD1 = '510401' then T_510401 = 1; if RKOD1 = '510101' then T_510101 = 1;
if RKOD1 = '510102' then T_510102 = 1; if RKOD1 = '510202' then T_510202 = 1; if RKOD1 = '5102A1' then T_5102A1 = 1; if RKOD1 = '510303' then T_510303 = 1; if RKOD1 = '510402' then T_510402 = 1;

if RKOD1 = '3901A1' then T_3901A1 = 1; if RKOD1 = '390101' then T_390101 = 1; if RKOD1 = '390601' then T_390601 = 1; if RKOD1 = '390201' then T_390201 = 1; if RKOD1 = '390401' then T_390401 = 1;
if RKOD1 = '390301' then T_390301 = 1; if RKOD1 = '390501' then T_390501 = 1;

if RKOD1 = '490101' then T_490101 = 1; if RKOD1 = '490201' then T_490201 = 1; if RKOD1 = '490401' then T_490401 = 1; if RKOD1 = '490501' then T_490501 = 1; if RKOD1 = '490301' then T_490301 = 1;

if RKOD1 = '370101' then T_370101 = 1; if RKOD1 = '370102' then T_370102 = 1; if RKOD1 = '370201' then T_370201 = 1; if RKOD1 = '370202' then T_370202 = 1;
if RKOD1 = '370301' then T_370301 = 1; if RKOD1 = '370302' then T_370302 = 1; if RKOD1 = '370401' then T_370401 = 1; if RKOD1 = '370501' then T_370501 = 1;
if RKOD1 = '370502' then T_370502 = 1; if RKOD1 = '370601' then T_370601 = 1; if RKOD1 = '370701' then T_370701 = 1; if RKOD1 = '370801' then T_370801 = 1;
if RKOD1 = '370803' then T_370803 = 1; if RKOD1 = '370901' then T_370901 = 1; if RKOD1 = '370902' then T_370902 = 1; if RKOD1 = '3809A1' then T_3809A1 = 1;

if RKOD1 = '371001' then T_371001 = 1; if RKOD1 = '371101' then T_371101 = 1; if RKOD1 = '371201' then T_371201 = 1; if RKOD1 = '371203' then T_371203 = 1;
if RKOD1 = '371301' then T_371301 = 1; if RKOD1 = '371302' then T_371302 = 1; if RKOD1 = '371401' then T_371401 = 1;

if RKOD1 = '300401' then T_300401 = 1; if RKOD1 = '300402' then T_300402 = 1; if RKOD1 = '300501' then T_300501 = 1; if RKOD1 = '300503' then T_300503 = 1; if RKOD1 = '300601' then T_300601 = 1;
if RKOD1 = '300701' then T_300701 = 1; if RKOD1 = '3007A1' then T_3007A1 = 1; if RKOD1 = '300801' then T_300801 = 1; if RKOD1 = '3008A1' then T_3008A1 = 1;

if RKOD1 = '3001A1' then T_3001A1 = 1; if RKOD1 = '300201' then T_300201 = 1; if RKOD1 = '300301' then T_300301 = 1; if RKOD1 = '3003A1' then T_3003A1 = 1; if RKOD1 = '3003B1' then T_3003B1 = 1;
if RKOD1 = '3010A1' then T_3010A1 = 1;

if RKOD1 = '320601' then T_320601 = 1; if RKOD1 = '320602' then T_320602 = 1; if RKOD1 = '320701' then T_320701 = 1; if RKOD1 = '320702' then T_320702 = 1; if RKOD1 = '320801' then T_320801 = 1;
if RKOD1 = '320901' then T_320901 = 1; if RKOD1 = '321001' then T_321001 = 1; if RKOD1 = '280401' or (RKOD1 = '290401' and TEKOVUOSI < 1991) or (RKOD1 = '290101' and TEKOVUOSI < 1991) then T_280401 = 1;
if RKOD1 = '280404' then T_280404 = 1; if RKOD1 = '280501' or (RKOD1 = '290201' and TEKOVUOSI < 1991) then T_280501 = 1; if RKOD1 = '280502' then T_280502 = 1; if RKOD1 = '280601' or (RKOD1 = '290301' and TEKOVUOSI < 1991) then T_280601 = 1;
if (RKOD1 = '161101' and TEKOVUOSI > 1998) or RKOD1 = '753500' then T_161101 = 1; if RKOD1 = '161301' then T_161301 = 1; if (RKOD1 = '161401' and TEKOVUOSI > 1998) or RKOD1 = '1613A1' then T_161401 = 1;
if RKOD1 = '677300' then T_677300 = 1; if RKOD1 = '677400' then T_677400 = 1; if RKOD1 = '677404' then T_677404 = 1;
if RKOD1 = '677405' then T_677405 = 1; if RKOD1 = '674091' then T_674091 = 1; if RKOD1 = '678002' then T_678002 = 1; if RKOD1 = '820000' then T_820000 = 1; if RKOD1 = '677280' then T_677280 = 1;
if RKOD1 = '677200' then T_677200 = 1; if RKOD1 = '677201' then T_677201 = 1; if RKOD1 = '677202' then T_677202 = 1; if RKOD1 = '677210' then T_677210 = 1; if RKOD1 = '677211' then T_677211 = 1;
if RKOD1 = '677212' then T_677212 = 1; if RKOD1 = '677216' then T_677216 = 1; if RKOD1 = '677217' then T_677217 = 1; if RKOD1 = '677218' then T_677218 = 1; if RKOD1 = '677220' then T_677220 = 1;
if RKOD1 = '677221' then T_677221 = 1; if RKOD1 = '677222' then T_677222 = 1; if RKOD1 = '677225' then T_677225 = 1; if RKOD1 = '677226' then T_677226 = 1; if RKOD1 = '677227' then T_677227 = 1;
if RKOD1 = '677000' then T_677000 = 1; if RKOD1 = '677100' then T_677100 = 1; if RKOD1 = '674095' then T_674095 = 1; if RKOD1 = '674100' then T_674100 = 1; if RKOD1 = '674101' then T_674101 = 1;
if RKOD1 = '674103' then T_674103 = 1; if RKOD1 = '674105' then T_674105 = 1; if RKOD1 = '674106' then T_674106 = 1; if RKOD1 = '674107' then T_674107 = 1; if RKOD1 = '674112' then T_674112 = 1;
if RKOD1 = '674120' then T_674120 = 1; if RKOD1 = '674137' then T_674137 = 1; if RKOD1 = '674138' then T_674138 = 1; if RKOD1 = '674139' then T_674139 = 1; if RKOD1 = '674140' then T_674140 = 1;
if RKOD1 = '674147' then T_674147 = 1; if RKOD1 = '674166' then T_674166 = 1; if RKOD1 = '674171' then T_674171 = 1; if RKOD1 = '674175' then T_674175 = 1; if RKOD1 = '674180' then T_674180 = 1;
if RKOD1 = '674185' then T_674185 = 1; if RKOD1 = '674200' then T_674200 = 1; if RKOD1 = '674206' then T_674206 = 1; if RKOD1 = '674010' then T_674010 = 1; if RKOD1 = '673300' then T_673300 = 1;
if RKOD1 = '673133' then T_673133 = 1; if RKOD1 = '673134' then T_673134 = 1; if RKOD1 = '673135' then T_673135 = 1;

if RKOD1 = '821990' then T_821990 = 1; if RKOD1 = '822005' then T_822005 = 1; if RKOD1 = '822010' then T_822010 = 1; if RKOD1 = '822015' then T_822015 = 1;
if RKOD1 = '824001' then T_824001 = 1; if RKOD1 = '824105' then T_824105 = 1; if RKOD1 = '824950' then T_824950 = 1; if RKOD1 = '653000' then T_653000 = 1; if RKOD1 = '653003' then T_653003 = 1;
if RKOD1 = '653004' then T_653004 = 1; if RKOD1 = '673000' then T_673000 = 1; if RKOD1 = '673001' then T_673001 = 1; if RKOD1 = '675031' then T_675031 = 1; if RKOD1 = '675032' then T_675032 = 1;
if RKOD1 = '675040' then T_675040 = 1; if RKOD1 = '675041' then T_675041 = 1; if RKOD1 = '675000' then T_675000 = 1;
if RKOD1 = '675001' then T_675001 = 1; if RKOD1 = '171601' then T_171601 = 1; if RKOD1 = '1716A1' then T_1716A1 = 1; if RKOD1 = '1716B1' then T_1716B1 = 1; if RKOD1 = '1716C1' then T_1716C1 = 1;
if RKOD1 = '1716D1' then T_1716D1 = 1; if RKOD1 = '330101' then T_330101 = 1; if RKOD1 = '330102' then T_330102 = 1; if RKOD1 = '330201' then T_330201 = 1; if RKOD1 = '330202' then T_330202 = 1;
if RKOD1 = '330301' then T_330301 = 1; if RKOD1 = '330401' then T_330401 = 1; if RKOD1 = '672005' then T_672005 = 1; if RKOD1 = '672009' then T_672009 = 1;
if RKOD1 = '672011' then T_672011 = 1; if RKOD1 = '674090' then T_674090 = 1; if RKOD1 = '674092' then T_674092 = 1;
if RKOD1 = '675020' then T_675020 = 1; if RKOD1 = '677285' then T_677285 = 1; if RKOD1 = '677290' then T_677290 = 1; if RKOD1 = '677291' then T_677291 = 1; if RKOD1 = '677420' then T_677420 = 1;
if RKOD1 = '677450' then T_677450 = 1; if RKOD1 = '677451' then T_677451 = 1; if RKOD1 = '678003' then T_678003 = 1; if RKOD1 = '678010' then T_678010 = 1; if RKOD1 = '699100' then T_699100 = 1;
if RKOD1 = '821051' then T_821051 = 1; if RKOD1 = '310301' then T_310301 = 1; if RKOD1 = '310302' then T_310302 = 1; if RKOD1 = '310401' then T_310401 = 1; if RKOD1 = '310402' then T_310402 = 1;

if RKOD1 = '820000' then T_820000 = 1; if RKOD1 = '821990' then T_821990 = 1;
if RKOD1 = '822010' then T_822010 = 1; if RKOD1 = '822015' then T_822015 = 1; if RKOD1 = '824001' then T_824001 = 1; if RKOD1 = '824105' then T_824105 = 1; if RKOD1 = '824950' then T_824950 = 1;

 keep ID YEAR T_3009A1 T_300901 T_301001 T_672000 T_672001 T_290101 T_290201 T_290301 T_290401 T_2904C1
T_2904B1 T_2904A1 T_290501 T_290601 T_290701 T_2907A1 T_290801 T_360101 T_360201 T_360301 T_360202 T_360103 
T_360401 T_360501 T_360701 T_360601 T_280401 T_280404 T_280501 T_280502 T_280601 T_3901A1 T_390101 T_390601 T_390201 T_390401
T_390301 T_390501 T_490101 T_490201 T_490401 T_490501 T_490301 T_300401 T_300402 T_300501 T_300503 T_300601
T_300101 T_510201 T_510102 T_510301 T_510303 T_510501 T_510401 T_510101 T_5102A1 T_510402
T_370101 T_370102 T_370201 T_370202 T_370301 T_370302 T_370401 T_370501 T_370502 T_370601 T_370701 T_370801 T_370803 T_370901 T_370902
T_371001 T_371101 T_371201 T_371203 T_371301 T_371302 T_371401 T_300701 T_3007A1 T_300801 T_3008A1 T_3809A1
T_3001A1 T_300201 T_300301 T_3003A1 T_3003B1 T_3010A1 T_510202
T_320601 T_320602 T_320701 T_320702 T_320801 T_320901 T_321001 T_677300 T_677400 T_677404 T_677405 T_674091 T_678002 T_820000 T_677280 
T_677200 T_677201 T_677202 T_677210 T_677211 T_677212 T_677216 T_677217 T_677218 T_677220 
T_677221 T_677222 T_677225 T_677226 T_677227 T_677000 T_677100 T_674095 T_674100 T_674101 
T_674103 T_674105 T_674106 T_674107 T_674112 T_674120 T_674137 T_674138 T_674139 T_674140 
T_674147 T_674166 T_674171 T_674175 T_674180 T_674185 T_674200 T_674206 T_674010 T_673300 
T_673133 T_673134 T_673135 T_821990 T_822005 T_822010 T_822015 
T_824001 T_824105 T_824950 T_653000 T_653003 
T_653004 T_673000 T_673001 T_675031 T_675032 
T_675040 T_675041 T_675000 
T_675001 T_171601 T_1716A1 T_1716B1 T_1716C1 
T_1716D1 T_330101 T_330102 T_330201 T_330202 
T_330301 T_330401 T_161101 T_161301 T_161401 T_672005 T_672009 
T_672011 T_674090 T_674092
T_675020 T_677285 T_677290 T_677291 T_677420 
T_677450 T_677451 T_678003 T_678010 T_699100 
T_821051 T_310301 T_310302 T_310401 T_310402
T_820000 T_821990 T_822010 T_822015 T_824001 T_824105 T_824950; 

run;

proc sort data = rikokset_77_19_yks;
by ID YEAR;
run;

proc means noprint data = rikokset_77_19_yks;
var T_3009A1 T_300901 T_301001 T_672000 T_672001 T_290101 T_290201 T_290301 T_290401 T_2904C1
T_2904B1 T_2904A1 T_290501 T_290601 T_290701 T_2907A1 T_290801 T_360101 T_360201 T_360301 T_360202 T_360103 
T_360401 T_360501 T_360701 T_360601 T_280401 T_280404 T_280501 T_280502 T_280601 T_3901A1 T_390101 T_390601 T_390201 T_390401
T_390301 T_390501 T_490101 T_490201 T_490401 T_490501 T_490301 T_300401 T_300402 T_300501 T_300503 T_300601
T_300101 T_510201 T_510102 T_510301 T_510303 T_510501 T_510401 T_510101 T_5102A1 T_510402
T_370101 T_370102 T_370201 T_370202 T_370301 T_370302 T_370401 T_370501 T_370502 T_370601 T_370701 T_370801 T_370803 T_370901 T_370902
T_371001 T_371101 T_371201 T_371203 T_371301 T_371302 T_371401 T_300701 T_3007A1 T_300801 T_3008A1 T_3809A1
T_3001A1 T_300201 T_300301 T_3003A1 T_3003B1 T_3010A1
T_320601 T_320602 T_320701 T_320702 T_320801 T_320901 T_321001 T_677300 T_677400 T_677404 T_677405 T_674091 T_678002 T_820000 T_677280 
T_677200 T_677201 T_677202 T_677210 T_677211 T_677212 T_677216 T_677217 T_677218 T_677220 
T_677221 T_677222 T_677225 T_677226 T_677227 T_677000 T_677100 T_674095 T_674100 T_674101 
T_674103 T_674105 T_674106 T_674107 T_674112 T_674120 T_674137 T_674138 T_674139 T_674140 
T_674147 T_674166 T_674171 T_674175 T_674180 T_674185 T_674200 T_674206 T_674010 T_673300 
T_673133 T_673134 T_673135 T_821990 T_822005 T_822010 T_822015 
T_824001 T_824105 T_824950 T_653000 T_653003 
T_653004 T_673000 T_673001 T_675031 T_675032 
T_675040 T_675041 T_675000 T_510202
T_675001 T_171601 T_1716A1 T_1716B1 T_1716C1 
T_1716D1 T_330101 T_330102 T_330201 T_330202 
T_330301 T_330401 T_161101 T_161301 T_161401 T_672005 T_672009 
T_672011 T_674090 T_674092
T_675020 T_677285 T_677290 T_677291 T_677420 
T_677450 T_677451 T_678003 T_678010 T_699100 
T_821051 T_310301 T_310302 T_310401 T_310402; 

by ID YEAR;

output out = Sum_N_Rikos_yks sum = T_3009A1 T_300901 T_301001 T_672000 T_672001 T_290101 T_290201 T_290301 T_290401 T_2904C1
T_2904B1 T_2904A1 T_290501 T_290601 T_290701 T_2907A1 T_290801 T_360101 T_360103 T_360201 T_360202 T_360301 
T_360401 T_360501 T_360601 T_360701 T_280401 T_280404 T_280501 T_280502 T_280601 T_390101 T_3901A1 T_390201 T_390301 T_390401 
T_390501 T_390601 T_490101 T_490201 T_490301 T_490401 T_490501  T_300401 T_300402 T_300501 T_300503 T_300601
T_300101 T_510201 T_510102 T_510301 T_510303 T_510501 T_510401 T_510101 T_5102A1 T_510402
T_370101 T_370102 T_370201 T_370202 T_370301 T_370302 T_370401 T_370501 T_370502 T_370601 T_370701 T_370801 T_370803 T_370901 T_370902
T_371001 T_371101 T_371201 T_371203 T_371301 T_371302 T_371401 T_300701 T_3007A1 T_300801 T_3008A1 T_3809A1
T_3001A1 T_300201 T_300301 T_3003A1 T_3003B1 T_3010A1
T_320601 T_320602 T_320701 T_320702 T_320801 T_320901 T_321001 T_677300 T_677400 T_677404 T_677405 T_674091 T_678002 T_820000 T_677280 
T_677200 T_677201 T_677202 T_677210 T_677211 T_677212 T_677216 T_677217 T_677218 T_677220 
T_677221 T_677222 T_677225 T_677226 T_677227 T_677000 T_677100 T_674095 T_674100 T_674101 
T_674103 T_674105 T_674106 T_674107 T_674112 T_674120 T_674137 T_674138 T_674139 T_674140 
T_674147 T_674166 T_674171 T_674175 T_674180 T_674185 T_674200 T_674206 T_674010 T_673300 
T_673133 T_673134 T_673135 T_821990 T_822005 T_822010 T_822015 
T_824001 T_824105 T_824950 T_653000 T_653003 
T_653004 T_673000 T_673001 T_675031 T_675032 
T_675040 T_675041 T_675000 T_510202
T_675001 T_171601 T_1716A1 T_1716B1 T_1716C1 
T_1716D1 T_330101 T_330102 T_330201 T_330202 
T_330301 T_330401 T_161101 T_161301 T_161401 T_672005 T_672009 
T_672011 T_674090 T_674092
T_675020 T_677285 T_677290 T_677291 T_677420 
T_677450 T_677451 T_678003 T_678010 T_699100 
T_821051 T_310301 T_310302 T_310401 T_310402; 

run;*/

/* Frequencies for crimes for parents */

/*data vasthenk;
set lib100.stata_talous_011025;

mukaan = 1;

keep id year mukaan;

run;

proc sort data = Sum_N_Rikos_yks;
by id year;
run;

proc sort data = vasthenk;
by id year;
run;

data vasthenk_2;
merge vasthenk Sum_N_Rikos_yks;
by id year;

if mukaan = 1;
run;

proc means sum data = vasthenk_2;
var T_300901 T_3009A1 T_301001 T_672000 T_672001 T_290101 T_290201 T_290301 T_290401 T_2904C1
T_2904B1 T_2904A1 T_290501 T_290601 T_290701 T_2907A1 T_290801 T_360101 T_360103 T_360201 T_360202 T_360301 
T_360401 T_360501 T_360601 T_360701 T_280401 T_280404 T_280501 T_280502 T_280601 T_390101 T_3901A1 T_390201
T_390301 T_390401 T_390501 T_390601 T_490101 T_490201 T_490301 T_490401 T_490501 T_300401 T_300402 T_300501
T_300503 T_300601 T_510101 T_510102 T_510201 T_510202 T_5102A1 T_510301 T_510303 T_510401 T_510402 T_510501 
T_370101 T_370102 T_370201 T_370202 T_370301 T_370302 T_370401 T_370501 T_370502 T_370601 T_370701 T_370801
T_370803 T_370901 T_370902 T_371001 T_371101 T_371201 T_371203 T_371301 T_371302 T_371401 T_320601 T_320602
T_320701 T_320702 T_320801 T_320901 T_321001 T_161301 T_161401 T_300701 T_3007A1 T_300801 T_3008A1 T_171601
T_1716A1 T_1716B1 T_1716C1 T_1716D1 T_3809A1 T_161101 T_300101 T_3001A1 T_300201 T_300301 T_3003A1 T_3003B1
T_3010A1 T_677300 T_678002 T_822005 T_820000 T_821990 T_822010 T_822015 T_824001 T_824105 T_824950;

run;

data aidit;
set lib100.stata_talous_011025;

mukaan = 1;

keep m_id mukaan;
rename m_id = id;
run;

proc sort nodupkey data = aidit;
by id;
run;

data isat;
set lib100.stata_talous_011025;

mukaan = 1;

keep f_id mukaan;
rename f_id = id;
run;
 
proc sort nodupkey data = isat;
by id;
run;

data vanhemmat;
set aidit isat;

if id = '' then delete;

run;

proc sort nodupkey data = vanhemmat;
by id;
run;

data vanhemmat_2;
merge vanhemmat Sum_N_Rikos_yks;
by id;

if id = '' then delete;
if year =. then delete;

if mukaan = 1;

run;

proc sort nodupkey data = vanhemmat_2;
by id year;
run;

proc means sum data = vanhemmat_2;
var T_300901 T_3009A1 T_301001 T_672000 T_672001 T_290101 T_290201 T_290301 T_290401 T_2904C1
T_2904B1 T_2904A1 T_290501 T_290601 T_290701 T_2907A1 T_290801 T_360101 T_360103 T_360201 T_360202 T_360301 
T_360401 T_360501 T_360601 T_360701 T_280401 T_280404 T_280501 T_280502 T_280601 T_390101 T_3901A1 T_390201
T_390301 T_390401 T_390501 T_390601 T_490101 T_490201 T_490301 T_490401 T_490501 T_300401 T_300402 T_300501
T_300503 T_300601 T_510101 T_510102 T_510201 T_510202 T_5102A1 T_510301 T_510303 T_510401 T_510402 T_510501 
T_370101 T_370102 T_370201 T_370202 T_370301 T_370302 T_370401 T_370501 T_370502 T_370601 T_370701 T_370801
T_370803 T_370901 T_370902 T_371001 T_371101 T_371201 T_371203 T_371301 T_371302 T_371401 T_320601 T_320602
T_320701 T_320702 T_320801 T_320901 T_321001 T_161301 T_161401 T_300701 T_3007A1 T_300801 T_3008A1 T_171601
T_1716A1 T_1716B1 T_1716C1 T_1716D1 T_3809A1 T_161101 T_300101 T_3001A1 T_300201 T_300301 T_3003A1 T_3003B1
T_3010A1 T_677300 T_678002 T_822005 T_820000 T_821990 T_822010 T_822015 T_824001 T_824105 T_824950;

run;*/


* Fines and imprisonments;

* Data from 1992 to 2019;

data rikokset_92_04;														
 set lib24.tuomiot_1992_2004_u0599_9_s;
 ika = substr(ikate, 2, 2); 			

 Ysakko2 = Ysakko / 5.94573;			* Converts old Finnish Markkas into Euros;

 drop ysakko;
 rename Ysakko2 = Ysakko;

run;

data rikokset_05;														
 set lib24.tuomiot_u0599_9_2005;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_06;														
 set lib24.tuomiot_u0599_9_2006;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_07;														
 set lib24.tuomiot_u0599_9_2007;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_08;														
 set lib24.tuomiot_u0599_9_2008;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_09;														
 set lib24.tuomiot_u0599_9_2009;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_10;														
 set lib24.tuomiot_u0599_9_2010;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_11;														
 set lib24.tuomiot_u0599_9_2011;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_12;														
 set lib24.tuomiot_u0599_9_2012;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_13;														
 set lib24.tuomiot_u0599_9_2013;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_14;														
 set lib24.tuomiot_u0599_9_2014;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_15;														
 set lib24.tuomiot_u0599_9_2015;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_16;														
 set lib24.tuomiot_u0599_9_2016;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_17;														
 set lib24.tuomiot_u0599_9_2017;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_18;														
 set lib24.tuomiot_u0599_9_2018;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_19;														
 set lib24.tuomiot_u0599_9_2019;
 ika = substr(ikate, 2, 2);										
run;

data rikokset_92_19;
 set rikokset_92_04 rikokset_05 rikokset_06 rikokset_07 rikokset_08 rikokset_09 rikokset_10 rikokset_11
 rikokset_12 rikokset_13 rikokset_14 rikokset_15 rikokset_16 rikokset_17 rikokset_18 rikokset_19 rikokset_77_91_2;

rename shnro = ID;

run;

proc sort data = rikokset_92_19;
 by ID;
run;

data age;
 set lib100.demografiset_220524;
 keep ID BIRTHYEAR YEAR;
run;

proc sort data = age;
by id descending year;
run;

proc sort nodupkey data = age;									
 by ID;
run;

data rikokset_92_19_2;
 merge rikokset_92_19 age;
 by ID;
 if VUOSI = ' ' then delete;

 if BIRTHYEAR = . and ika = ' ' then delete; 			* Delete individuals without data on their age;
	
 AGE = ika*1;
	
 if ika = ' ' then AGE = RV - BIRTHYEAR;				* If age at the time of committing crime is missing in the crime data, take age from the demographics data;
 
 if AGE < 18 then delete;								* Deletes crimes made under the age of 18;

 TEKOVUOSI = BIRTHYEAR + AGE;

 RKOD1_2merk = substr (RKOD1,1,2);
 RKOD1_3merk = substr (RKOD1,1,3);

 RKOD1_2merk_numerinen = RKOD1_2merk * 1;

 VANK_v = substr (vank1,1,2);
 VANK_kk = substr (vank1,3,2);
 VANK_pv = substr (vank1,5,2);

 VANK_v_n = VANK_v * 1;
 VANK_kk_n = VANK_kk * 1;
 VANK_pv_n = VANK_pv * 1;

 Vankeus_kk = VANK_v_n * 12 + VANK_kk_n + VANK_pv_n / 30;

 if rkod1 = '999999' then delete;

 if RKOD1_2merk = '29' then Talous = 1;
 if RKOD1_2merk = '36' and RKOD1_3merk ne '361' then Talous = 1;
 if RKOD1_2merk = '37' then Talous = 1;
 if RKOD1_2merk = '39' then Talous = 1;
 if RKOD1_2merk = '51' then Talous = 1;
 if RKOD1_2merk = '30' and (RKOD1 ne '300901' and RKOD1 ne '3009A1' and RKOD1 ne '301001') then Talous = 1;

 if RKOD1 = '320601' or RKOD1 = '320602' or RKOD1 = '320701' or RKOD1 = '320702' or RKOD1 = '320801' or RKOD1 = '320901' or RKOD1 = '321001' or 
 RKOD1 = '161301' or (RKOD1 = '161401' and tekovuosi > 1998) or RKOD1 = '280401' or RKOD1 = '280404' or RKOD1 = '280501' or RKOD1 = '280502' or RKOD1 = '280601' or
 RKOD1 = '3809A1' or RKOD1_2merk = '49' or RKOD1 = '653000' or RKOD1 = '653003' or RKOD1 = '653004' or RKOD1 = '673000' or RKOD1 = '675031' or
 RKOD1 = '675032' or RKOD1 = '675040' or RKOD1 = '675041' or RKOD1 = '677300' or RKOD1 = '678002' or RKOD1 = '674091' or RKOD1 = '674090' or
 RKOD1 = '674092' or RKOD1 = '678003' or RKOD1 = '675020' or RKOD1 = '678010' or RKOD1 = '699100' or RKOD1 = '821051' or
 RKOD1 = '677280' or RKOD1 = '677200' or RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '675000' or RKOD1 = '675001' or RKOD1 = '171601' or
 RKOD1 = '1716A1' or RKOD1 = '1716B1' or RKOD1 = '1716C1' or RKOD1 = '1716D1' or (RKOD1 = '161101' and tekovuosi > 1998) or RKOD1 = '672005' or RKOD1 = '672009' or RKOD1 = '672011' or
 RKOD1 = '677201' or RKOD1 = '677202' or RKOD1 = '677210' or RKOD1 = '677211' or RKOD1 = '677212' or RKOD1 = '677216' or RKOD1 = '677217' or
 RKOD1 = '677218' or RKOD1 = '677220' or RKOD1 = '677221' or RKOD1 = '677222' or RKOD1 = '677225' or RKOD1 = '677226' or RKOD1 = '677227' or
 RKOD1 = '677280' or RKOD1 = '677285' or RKOD1 = '677290' or RKOD1 = '677291' or RKOD1 = '677400' or RKOD1 = '677404' or RKOD1 = '677405' or 
 RKOD1 = '677420' or RKOD1 = '677450' or RKOD1 = '677451' or RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '674095' or RKOD1 = '674100' or RKOD1 = '674101' or RKOD1 = '674103' or RKOD1 = '674105' or
 RKOD1 = '674106' or RKOD1 = '674107' or RKOD1 = '674112' or RKOD1 = '674120' or RKOD1 = '674137' or RKOD1 = '674138' or RKOD1 = '674139' or
 RKOD1 = '674140' or RKOD1 = '674147' or RKOD1 = '674166' or RKOD1 = '674171' or RKOD1 = '674175' or RKOD1 = '674180' or RKOD1 = '674185' or
 RKOD1 = '674200' or RKOD1 = '674206' or RKOD1 = '674010' or RKOD1 = '673300' or RKOD1 = '673133' or RKOD1 = '673134' or RKOD1 = '673135' or
(RKOD1 = '381101' and tekovuosi < 1991) or (RKOD1 = '381102' and tekovuosi < 1991) or (RKOD1 = '381001' and tekovuosi < 1991) or
(RKOD1 = '381002' and tekovuosi < 1991) or (RKOD1 = '381003' and tekovuosi < 1991) or (RKOD1 = '3601A1' and tekovuosi < 1991) or (RKOD1 = '3601A2' and tekovuosi < 1991) or
(RKOD1 = '1613A1' and tekovuosi < 1999) or RKOD1 = '753500' then Talous = 1;

 if RKOD1 = '3009A1' or RKOD1 = '300901' or RKOD1 = '301001' or RKOD1 = '672000' or RKOD1 = '672001' then Finan_rep_fraud = 1;

 if Finan_rep_fraud = 1 or Talous = 1 then Talous_kaikki = 1;

 if RKOD1 = '290201' or RKOD1 = '290101' or RKOD1 = '290401' or RKOD1 = '290301' or RKOD1 = '2904C1' or RKOD1 = '2904B1' or RKOD1 = '2904A1' or RKOD1 = '290501' or RKOD1 = '290601' or RKOD1 = '290701' then Tax_relat_fraud = 1;

if RKOD1_2merk = '49' or RKOD1_2merk = '51' or (RKOD1_2merk = '36' and RKOD1_3merk ne '361') or RKOD1_2merk = '37' or (RKOD1_2merk = '30' and (RKOD1 ne '300901' and RKOD1 ne '3009A1' and RKOD1 ne '301001')) or
 RKOD1 = '320601' or RKOD1 = '320602' or RKOD1 = '320701' or RKOD1 = '320702' or RKOD1 = '320801' or RKOD1 = '320901' or RKOD1 = '321001' or
 RKOD1 = '161301' or (RKOD1 = '161401' and tekovuosi > 1998) or RKOD1 = '280401' or RKOD1 = '280404' or RKOD1 = '280501' or RKOD1 = '280502' or RKOD1 = '280601' or
 RKOD1 = '3809A1' or RKOD1 = '653000' or RKOD1 = '653003' or RKOD1 = '653004' or RKOD1 = '673000' or RKOD1 = '673001' or RKOD1 = '675031' or
 RKOD1 = '675032' or RKOD1 = '675040' or RKOD1 = '675041' or RKOD1 = '677000' or RKOD1 = '677100' or RKOD1 = '675000' or RKOD1 = '675001' or
 RKOD1 = '171601' or RKOD1 = '1716A1' or RKOD1 = '1716B1' or RKOD1 = '1716C1' or RKOD1 = '1716D1' or (RKOD1 = '161101' and tekovuosi > 1998) or RKOD1 = '672005' or RKOD1 = '672009' or
 RKOD1 = '672011' or RKOD1 = '673133' or RKOD1 = '673134' or RKOD1 = '673135' or RKOD1 = '673300' or RKOD1 = '674010' or RKOD1 = '674090' or
 RKOD1 = '674091' or RKOD1 = '674092' or RKOD1 = '674095' or RKOD1 = '674100' or RKOD1 = '674101' or RKOD1 = '674103' or RKOD1 = '674105' or
 RKOD1 = '674106' or RKOD1 = '674107' or RKOD1 = '674112' or RKOD1 = '674120' or RKOD1 = '674137' or RKOD1 = '674138' or RKOD1 = '674139' or
 RKOD1 = '674140' or RKOD1 = '674147' or RKOD1 = '674166' or RKOD1 = '674171' or RKOD1 = '674175' or RKOD1 = '674180' or RKOD1 = '674185' or
 RKOD1 = '674200' or RKOD1 = '674206' or RKOD1 = '675020' or RKOD1 = '677200' or RKOD1 = '677201' or RKOD1 = '677202' or RKOD1 = '677210' or
 RKOD1 = '677211' or RKOD1 = '677212' or RKOD1 = '677216' or RKOD1 = '677217' or RKOD1 = '677218' or RKOD1 = '677220' or RKOD1 = '677221' or
 RKOD1 = '677222' or RKOD1 = '677225' or RKOD1 = '677226' or RKOD1 = '677227' or RKOD1 = '677280' or RKOD1 = '677285' or RKOD1 = '677290' or
 RKOD1 = '677291' or RKOD1 = '677300' or RKOD1 = '677400' or RKOD1 = '677404' or RKOD1 = '677405' or RKOD1 = '677420' or RKOD1 = '677450' or
 RKOD1 = '677451' or RKOD1 = '678002' or RKOD1 = '678003' or RKOD1 = '678010' or RKOD1 = '699100' or RKOD1 = '821051' or RKOD1 = '3901A1' or
 RKOD1 = '390101' or RKOD1 = '390601' or RKOD1 = '390201' or RKOD1 = '390301' or RKOD1 = '390401' or RKOD1 = '390501' or 
(RKOD1 = '1613A1' and tekovuosi < 1999) or RKOD1 = '753500' then Other_finan_crime = 1;

if Talous_kaikki = . then delete;

if slaatu1 = '31' or												
 slaatu1 = '69' or																			
 slaatu1 = '70' or
 slaatu1 = '71' or
 slaatu1 = '72' or
 slaatu1 = '73' or
 slaatu1 = '75' or
 slaatu1 = '76' or
 slaatu1 = '78' or
 slaatu1 = '81' or
 slaatu1 = '86' or
 slaatu1 = '85' or
 slaatu1 = '90' or
 slaatu1 = '91' or
 slaatu1 = '92' or
 slaatu1 = '99' or
 slaatu1 = '89' then delete;

 keep ID VUOSI TEKOVUOSI PNO_s AGE SLAATU1 pslkm vank1 vank_v vank_kk vank_pv Vankeus_kk Ysakko
 Talous Talous_kaikki rkod1 Finan_rep_fraud Tax_relat_fraud Other_finan_crime;

run;

proc sort data = rikokset_92_19_2;
by PNO_s ID TEKOVUOSI Finan_rep_fraud Tax_relat_fraud Other_finan_crime;
run;

data rikokset_92_19_3;
set rikokset_92_19_2;

if PNO_s = lag(PNO_s) and ID = lag(ID) and TEKOVUOSI = lag(TEKOVUOSI) and Finan_rep_fraud = lag(Finan_rep_fraud) and
Tax_relat_fraud = lag(Tax_relat_fraud) and Other_finan_crime = lag(Other_finan_crime) then delete;

run;

data talous_kaikki_data;
set rikokset_92_19_3;
run;

proc sort data = talous_kaikki_data;
by PNO_s ID TEKOVUOSI;
run;

data talous_kaikki_data_2;
set talous_kaikki_data;

if PNO_s = lag(PNO_s) and ID = lag(ID) and TEKOVUOSI = lag(TEKOVUOSI) then delete;

run;

proc sort data = talous_kaikki_data_2;
by ID tekovuosi;
run;

proc means noprint data = talous_kaikki_data_2;
var pslkm vankeus_kk Ysakko;

by ID tekovuosi;

output out = Talous_kaikki_rang sum = Sakot_talous_kaikki vankeus_talous_kaikki Sakot_talous_kaikki_summa;

run;

/*---*/

data Finan_rep_fraud_data;
set rikokset_92_19_3;
if Finan_rep_fraud = 1;
run;

proc sort data = Finan_rep_fraud_data;
by ID tekovuosi;
run;

proc means noprint data = Finan_rep_fraud_data;
var pslkm vankeus_kk Ysakko;

by ID tekovuosi;

output out = Finan_rep_fraud_rang sum = Sakot_Finan_rep_fraud vankeus_Finan_rep_fraud Sakot_Finan_rep_fraud_summa;

run;

/*----*/

data Tax_relat_fraud_data;
set rikokset_92_19_3;
if Tax_relat_fraud = 1;
run;

proc sort data = Tax_relat_fraud_data;
by ID tekovuosi;
run;

proc means noprint data = Tax_relat_fraud_data;
var pslkm vankeus_kk Ysakko;

by ID tekovuosi;

output out = Tax_relat_fraud_rang sum = Sakot_Tax_relat_fraud vankeus_Tax_relat_fraud Sakot_Tax_relat_fraud_summa;

run;

/*-----*/

data Other_finan_crime_data;
set rikokset_92_19_3;
if Other_finan_crime = 1;
run;

proc sort data = Other_finan_crime_data;
by ID tekovuosi Other_finan_crime;
run;

proc means noprint data = Other_finan_crime_data;
var pslkm vankeus_kk Ysakko;

by ID tekovuosi;

output out = Other_finan_rang sum = Sakot_Other_finan vankeus_Other_finan Sakot_Other_finan_summa;

run;


data Kaikki_rangaistukset;
merge Talous_kaikki_rang Finan_rep_fraud_rang Tax_relat_fraud_rang Other_finan_rang;
by ID TEKOVUOSI;

drop _type_ _freq_;
rename tekovuosi = YEAR;

run;

* Save data;

data lib100.Tuomioiden_rangaistukset_050924;
set Kaikki_rangaistukset;
run;
