﻿CD 'C:\Users\harry\Dropbox\)SofiaJ-Harry\ARSEInew\ARSEInewest'.

GET
  FILE='U:\)Datalib\ARG\Arg2021 ESAyPP PISAC COVID19 2021.sav'.

display labels.

freq sexo.

recode sexo (2=1)(1=0) into FEMALE.

freq m3_10.

recode m3_10 (3=1)(else =0) into INFORMAL.

cross female by informal /cell=row.

desc CIUO_encuestado CIUO_primera CIUO_2015 CIUO_2020 CIUO_PSH CIUO_origen.

rename vars (CIUO_encuestado CIUO_primera CIUO_2015 CIUO_2020 CIUO_PSH CIUO_origen
  = ISQO ISQO1 ISQO2012 ISQO2020 ISQO_HH FMISQO).

freq isqo fmisqo.

compute isqo000=1000*trunc(isqo/1000).
recode isqo (9200 thru 9219 6000 thru 6340=9200) into isqo000.
compute fmisqo000=1000*trunc(fmisqo/1000).
recode fmisqo (9200 thru 9219 6000 thru 6340=9200) into fmisqo000.

freq isqo000 fmisqo000.

define @isqo()
 ISqo fmisqo
!enddefine.

define @isei08()
 ISEI FMISEI
!enddefine.

include file="isqoisei08.sps".

corr isei fmisei.

define @arsei2()
 ARSEI2 FMARSEI2
!enddefine.

include file="isqo_arsei2_recode.sps".
include file="isqo_arsei2b_recode.sps".
include file="isqo_arsei2c_recode.sps".
include file="isqo_arsei2d_recode.sps".

desc fmarsei2 fmisei arsei2 isei.
corr fmarsei2 fmisei arsei2 isei /miss=list.

rename vars (CNO_encuestado CNO_primera CNO_2015 CNO_2020 CNO_PSH CNO_origen
  = CNO CNO1 CNO2012 CNO2020 CNO_HH FMCNO)

define @CNO()
 CNO FMCNO
!enddefine.

define @arsei1()
 ARSEI1 FMARSEI1
!enddefine.

Alter type @cno (F6.0).

include file="cno_arsei1_recode.sps".

desc @arsei1.
CORR @ARSEI1.

corr fmarsei1 fmarsei2 fmisei arsei1 arsei2 isei female informal.

freq eduenc eduori.

rename vars (eduenc eduori = EDUC FMEDUC).

freq educ fmeduc.

var labels educ "".
var labels fmeduc "".

corr fmarsei1 fmarsei2 fmisei arsei1 arsei2 isei EDUC FMEDUC.

temp.
select if sysmiss(arsei1).
freq isqo cno.

temp.
select if sysmiss(arsei2).
freq isqo cno.

temp.
select if sysmiss(isei).
freq isqo cno.

temp.
select if sysmiss(fmarsei1).
freq fmisqo fmcno.

temp.
select if sysmiss(fmarsei2).
freq fmisqo fmcno.

freq M3_22 M3_23 M8_5 M8_6_A M8_6_B.

freq M8_4.

rename vars (M8_4 = INCOME).

recode income (999999=sysmiss).

var label income "".

corr fmarsei1 fmarsei2 fmisei arsei1 arsei2 isei EDUC FMEDUC income.

temp.
compute LNINC=ln(income).
corr fmarsei1 fmarsei2 fmisei arsei1 arsei2 isei EDUC FMEDUC lninc.

compute INCOME=ln(income).

regress /dep=fmarsei1 /enter=fmarsei2 fmisei arsei1 arsei2 isei EDUC FMEDUC income
  /des=def corr n /miss=pair.

compute EDUC_FEM = educ*female.

freq isqo.

recode isqo (6000 thru 6320 9200 thru 9215=0)(else=1) into NONFARM.

cross isqo by informal female.

freq M3_18 M3_20 M3_19 M3_21 M3_22 M3_23.

recode M3_20 (1=21)(2=40)(3=50)(4=0) INTO HOURS.
RECODE M3_19 (3 THRU 72=COPY) INTO HOURS.

filter by nonfarm.

compute FMARSEI1_FEM=fmarsei1*female.

regr /dep=arsei1 /enter=female fmarsei1 /enter=FMARSEI1_FEM /enter=educ  /enter=educ_fem /enter=informal.

regr /dep=arsei2 /enter=fmarsei2 /enter=educ /enter=female /enter=educ_fem.

regr /dep=isei   /enter=fmisei   /enter=educ /enter=female /enter=educ_fem.
  
regr /dep=income /enter=EDUC /enter=arsei1 /enter=fmarsei1 /enter=informal /enter=female /ENTER=HOURS.

regr /dep=income /enter=EDUC /enter=arsei2 /enter=fmarsei1 /enter=informal /enter=female /ENTER=HOURS.

regr /dep=income /enter=EDUC /enter=isei /enter=fmisei /enter=informal /enter=female /ENTER=HOURS.

regr /dep=income /enter=educ /enter=female /ENTER=HOURS /enter=fmarsei1 /enter=arsei1 /enter=informal   .

filter off.

desc isei arsei1 arsei2 fmisei fmarsei1 fmarsei2 educ fmeduc income /save.

rename vars (zfmarsei1 zfmarsei2 = zfmarse1 zfmarse2).

save translate outfile="ARG2021_test.dta"
  /keep=isei arsei1 arsei2 fmisei fmarsei1 fmarsei2 educ fmeduc  income
  zisei zarsei1 zarsei2 zfmisei zfmarse1 zfmarse2 zeduc zfmeduc  zincome
  female nonfarm
  /type=stata /replace.

define @isqo()
  isqo
!enddefine.

include file="U:\)ismf\incl\isqolab.sps".

compute isqo00=100*rnd(isqo/100).
sort cases by isqo00.
aggregate /break=isqo00 /nnn_is00=n.

temp.
compute isqo=100*rnd(isqo/100).
means nnn_is00 isqo arsei2 isei by isqo /cell=mean .

