*FICHERO DE COMANDOS SPSS PARA LA LECTURA DE LOS DOS TIPOS DE REGISTRO DE LA EPA
Y SU POSTERIOR REESTRUCTURACIÓN EN FICHERO DE HOGARES.
*(LAS PÁRRAFOS QUE COMIENZAN CON * SON COMENTARIOS).


FILE TYPE MIXED FILE='C:\EPA\EPA.T0105' RECORD=NIVEL 13.

***INDICAMOS DÓNDE ESTÁ EL FICHERO, Y  AVISAMOS QUE SEGÚN LA INFORMACIÓN DISPONIBLE 
EN LA VARIABLE NIVEL, QUE ESTÁ EN LA COLUMNA 13, EL DISEÑO DEL REGISTRO ES DISTINTO***.
  
RECORD TYPE 1.
**CON ESTA INSTRUCCIÓN AVISAMOS AL SPSS QUE LEA AQUELLOS REGISTROS EN LOS QUE LA VARIABLE NIVEL TOMA EL VALOR 1 (POBLACIÓN CON 16 AÑOS O MÁS)***.
 
data list
 /CICLO	1	-	3
 CCAA	     	4	-	5
 PROV	     	6	-	7
 NVIVI	8	-	12
 NIVEL	13
 NPERS	14	-	15
 EDAD5	16	-	17
 RELPP1	18	
 SEXO1	19	
 NCONY	20	-	21
 NPADRE	22	-	23
 NMADRE	24	-	25
 RELLMILI	26	
 ECIV1	27
 PRONA1	28	-	29
 REGNA1	30	-	32
 NAC1		33
 EXREGNA1	34	-	36
 ANORE1	37	-	38
 NFORMA	39	-	40
 EDADES	43	-	45
 CURSR	46
 NCURSR	47	-	48
 CURSNR	49	
 NCURNR	50	-	51
 HCURNR	52	-	54
 TRAREM	57
 AYUDFA	58
 AUSENT	59
 RZNOTB	60	-	61
 VINCUL	62	-	63
 NUEVEM	64
 OCUP1	65
 ACT1		66	-	67
 SITU		68
 SP		69
 DUCON1	70	
 DUCON2	71	
 DUCON3	72	-	73
 TCONTM	74	-	75
 TCONTD	76	-	77
 DREN	 	78	-	80
 DCOM		81	-	83
 PROEST	84	-	85
 REGEST	86	-	88
 PARCO1	89	
 PARCO2	90	-	91
 HORASP	92	-	95 (2)
 HORASH	96	-	99 (2)
 HORASE	100	-	103 (2)
 EXTRA	104	
 EXTPAG	105	-	108 (2)
 EXTNPG	109	-	112 (2)
 RZDIFH	113	-	114
 TRAPLU	115	
 OCUPLU1	116	
 ACTPLU1	117	
 SITPLU	118	-	119
 HORPLU	120	-	123 (2)
 MASHOR	124	
 DISMAS	125	
 RZNDISH	126	-	127
 HORDES	128	-	129
 BUSOTR	130	
 BUSCA	131	
 DESEA	132	
 FOBACT	133	
 NBUSCA	134	-	135
 ASALA	136	
 EMBUS	137	
 ITBU		138	-	139
 DISP		140
 RZNDIS	141	
 EMPANT	142	
 DTANT	143	-	145
 OCUPA	146	
 ACTA   	147	
 SITUA  	148	-	149
 OFEMP	150	
 SIDI1	151	-	152
 SIDI2	153	-	154
 SIDI3	155	-	156
 SIDAC1	157	
 SIDAC2	158	
 MUN1		159
 PRORE1	160	-	161
 REPAIRE1	162	-	164
 TRAANT	165	
 AOI		166	-	167
 CSE		168	-	169
 FACTOREL	170	-	176 (2).

***EL DOS ENTRE PARÉNTESIS INDICA QUE LOS DOS ÚLTIMOS DÍGITOS DE LA VARIABLE
 SON DECIMALES; EN LAS VARIABLES QUE INDICAN TIEMPO LOS DECIMALES SE REFIEREN
 A MINUTOS.
 
RECORD TYPE 2.
***IDEM QUE ANTERIOR, PERO AHORA CON EL VALOR 2 PARA LA VARIABLE NIVEL,
 ES DECIR, POBLACIÓN DE 16 AÑOS O MENOS***.

data list
 /CICLO	1	-	3
 CCAA		4	-	5
 PROV		6	-	7
 NVIVI	8	-	12
 NIVEL	13	
 NPERS	14	-	15
 EDAD2	16	-	17
 RELPP2	18	
 SEXO2	19	
 NCONY	20	-	21
 NPADRE	22	-	23
 NMADRE	24	-	25
 PRONA2	28	-	29
 REGNA2	30	-	32
 NAC2		33	
 EXREGNA2	34	-	36
 ANORE2	37	-	38
 MUN2		159	
 PRORE2	160	-	161
 REPAIRE2 	162	-	164
 FACTOREL	170	-	176 (2).
  
END FILE TYPE.
***SEÑALAMOS QUE FINALIZA LA LECTURA POR TIPO DE REGISTROS***.
 
EXECUTE.

*NOS ASEGURAMOS QUE LA MUESTRA NO TENGA NINGUNA PONDERACIÓN
CON EL SIGUIENTE COMANDO.
WEI OFF.

*ELEVAMOS LA MUESTRA.
WEI FACTOREL.
*PEDIMOS UNA FRECUENCIA PARA COMPROBAR EL FACTOR DE ELEVACIÓN
Y TOMAR NOTA DEL TOTAL DE CASOS.
FRE AOI.

*CÁLCULO DEL COEFICIENTE DE PONDERACIÓN.
COMPUTE PONDERA=FACTOREL*155997/42873967.
VAR LAB PONDERA 'FACTOR DE PONDERACIÓN MUESTRAL'.
WEI PONDERA.
FRE AOI.

SAVE OUTFILE='C:\EPA\T0105.SAV'.
*GUARDAMOS EL FICHERO EN FORMATO SPSS, PONDERADO*.

*PRIMERO ES NECESARIO ORDENAR EL FICHERO POR LA 
VARIABLE QUE VAMOS A REESTRUCTURAR.

SORT CASES BY NVIVI.

**CON EL SIGUIENTE COMANDO AVISAMOS DE QUE HABRÁ CASOS
 QUE PASARÁN A SER NUEVAS VARIABLES, EN FUNCIÓN DE LA VARIABLE 
 DE IDENTIFICACIÓN DE LA VIVIENDA, NVIVI***.

CASESTOVARS
 /ID = NVIVI
 /GROUPBY = VARIABLE .

SAVE OUTFILE='C:\EPA\HT0105.SAV'.
*GUARDAMOS EL FICHERO DE HOGARES, AÑADIENDO UNA H
AL COMIENZO DEL NOMBRE. DE ESTA FORMA SABEMOS QUE
ES DE HOGARES Y EL TRIMESTRE Y EL AÑO DE LA ENCUESTA*.


*AOI: VARIABLE SOBRE RELACIÓN CON EL MERCADO DE TRABAJO
*RELPP: VARIABLE DE RELACIÓN CON EL SUSTENTADOR PRINCIPAL, 
CON EL VALOR 2 PARA CÓNYUGE.

COMPUTE AOIC=0.
VAR LAB AOIC 'RELACIÓN CON LA ACTIVIDAD DEL CÓNYUGE'.

IF (RELPP.1=2) AOIC=AOI.1.
IF (RELPP.2=2) AOIC=AOI.2.
IF (RELPP.3=2) AOIC=AOI.3.
IF (RELPP.4=2) AOIC=AOI.4.
IF (RELPP.5=2) AOIC=AOI.5.
IF (RELPP.6=2) AOIC=AOI.6.
IF (RELPP.7=2) AOIC=AOI.7.
IF (RELPP.8=2) AOIC=AOI.8.
IF (RELPP.9=2) AOIC=AOI.9.
IF (RELPP.10=2) AOIC=AOI.10.
IF (RELPP.11=2) AOIC=AOI.11.
IF (RELPP.12=2) AOIC=AOI.12.