-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path03_Master_ENDIREH.do
1423 lines (1124 loc) · 49.2 KB
/
03_Master_ENDIREH.do
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
*Procesamiento EDIREH
*Responsables:
*Luis Valentín Cruz lvcruz@colmex.mx
*Lorena Ochoa alochoa@colmex.mx
*********************************************************************************
*ENDIREH 2006 *
*Embarazo *
*********************************************************************************
****Configuración base para tiempo
clear all
set more off
set rmsg on, permanently
global Orig_Endir2006 = "E:\Embarazo\Bdatos\ENDIREH\2006\base_datos_endireh06_dbf"
global modif_Endir2006 = "E:\Embarazo\modif_Endir\Endir2006"
global pob = "E:\Embarazo\modif\Poblacion"
global Viol_infancia= "E:\Embarazo\modif_Endir\Violencia"
**Leemos la base
*Cuestionario
*TVivienda
*Para obtener factor de vivienda y si es rural o urbano, además
*llaves para unir con otros: control y viv_sel
quietly use "$Orig_Endir2006\06_DS.dta", clear
keep N_CON V_SEL N_REN SEXO EDAD DOM
la var SEXO "sexo 1:H 2:M"
la var EDAD "Edad en años"
keep if EDAD >=15 & EDAD <=19
keep if SEXO==2
save "$modif_Endir2006\06_DSLimp.dta", replace
**************************************************
***PAra violencia infantil
*TVivienda
*Para obtener factor de vivienda y si es rural o urbano, además
*llaves para unir con otros: control y viv_sel
quietly use "$Orig_Endir2006\06_DS.dta", clear
keep N_CON V_SEL N_REN SEXO EDAD DOM
la var SEXO "sexo 1:H 2:M"
la var EDAD "Edad en años"
keep if EDAD >=15
keep if SEXO==2
save "$Viol_infancia\2006_DSLimp.dta", replace
*Tiene a todas las mujeres de la encuesta mayores de 15 años
**************************
***Otro cuestionario
quietly use "$Orig_Endir2006\06_MC1.dta", clear
keep N_CON V_SEL N_REN P3_19_6 P3_22_6 P3_19_6C P3_24_2 P3_24_2C P3_24_3 P3_24_3C P3_24_2C FAC_PER DOM P5_5 P5_7
*
la var P3_19_6 "1 sí, Durante el último año en su trabajo, ¿su jefe inmediato la obligó a tener relaciones sexuales?"
la var P3_22_6 "1 Sí, Durante su vida de estudiante, ¿algún compañero, maestro, personal obligó a tener relaciones sexuales?"
la var P3_19_6C "Abiertas tipo,Durante su vida de estudiante, ¿algún compañero, maestro, personal o autoridad escolar la obligó a tener relaciones sexuales?"
/*la values P3_19_6C P3_19_6Clabel
la de P3_19_6Clabel 101 "Exesposo" 102 "Esposo (a)" 103 "Concubina" 104 "Amante del esposo" 105 "Esposa de su exesposo"///
106 "Hijo de su ex" 107 "Hijo(a)" 108 "Hijo(a) adoptivo" 109 "Hijastro (a)"///
111 "Empleado (a) domÚstico"///
112 "Nana"///
113 "Mayordomo"///
114 "Tutor"///
115 "Padre"///
116 "Madre"///
117 "Padre y madre"///
118 "Padrastro, madrastra"///
119 "Hermano (a)" ///
120 "Medio hermano (a)"///
121 "Hermanastro (a)" ///
122 "Abuelo (a)" ///
123 "Bisabuelo (a)" ///
126 "TÝo (a)" ///
127 "Sobrino (a)"///
128 "Primo (a)"///
129 "Suegro (a), ex"///
130 "Consuegro (a)"///
131 "Nuera, yerno, ex"///
141 "Amigos"///
142 "Vecino (s), conocido (a)"///
143 "Novio"///
144 "Compa±ero (a), exc"///
145 "Desconocido"///
146 "Padres adoptivos"
*/
**Pregunta violación
la var P3_24_2 "1 sí Dígame si a lo largo de su vida usted la obligaron a tener rel sex?"
**Pregunta forzar por dinero
la var P3_24_3 " 1 sí Dígame si a lo largo de su vida la obligaron a tener rel sex por dinero?"
*Renombrar para apppend
rename P3_19_6 P_Ult_AnTrab
rename P3_22_6 P_VidEstObligRelSex
rename P3_24_2 P_ObligRelSex
rename P3_24_3 P_ObligRelSexDin
**Quienes:
rename P3_24_2C PQn_ObligRelSex
rename P3_24_3C PQn_ObligRelSexDin
la var P5_5 "A usted las personas con las que vivía le pegaban seguido(2)"
la var P5_7 "Recuerda si las personas con las que vivía la insultaban o la ofend seguido(2)"
save "$modif_Endir2006\06_MC1Limp.dta", replace
***************************
*Cuestionario Endireh 06MD1
quietly use "$Orig_Endir2006\06_MD1.dta", clear
keep N_CON V_SEL N_REN P3_17_6 P3_20_6 P3_22_2 P3_22_3 P3_22_2C P3_22_3C FAC_PER DOM P5_5 P5_7
*
la var P3_17_6 "1 sí, Durante el último año en su trabajo, ¿su jefe inmediato la obligó a tener relaciones sexuales?"
la var P3_20_6 "1 Sí, Durante su vida de estudiante, ¿algún compañero, maestro, personal obligó a tener relaciones sexuales?"
**Pregunta violación
la var P3_22_2 "1 si Dígame si a lo largo de su vida usted la obligaron a tener rel sex?"
**Pregunta forzar por dinero
la var P3_22_3 "1 si Dígame si a lo largo de su vida la obligaron a tener rel sex por dinero?"
*Renombrar para apppend
rename P3_17_6 P_Ult_AnTrab
rename P3_20_6 P_VidEstObligRelSex
rename P3_22_2 P_ObligRelSex
rename P3_22_3 P_ObligRelSexDin
**Quienes:
rename P3_22_2C PQn_ObligRelSex
rename P3_22_3C PQn_ObligRelSexDin
la var P5_5 "A usted las personas con las que vivía le pegaban seguido(2)"
la var P5_7 "Recuerda si las personas con las que vivía la insultaban o la ofend seguido(2)"
save "$modif_Endir2006\06_MD1Limp.dta", replace
******************
*Cuestionario Endireh 06MS
quietly use "$Orig_Endir2006\06_MS.dta", clear
keep N_CON V_SEL N_REN P7_2 P7_3 P10_6 P16_6 P7_2C P7_3C FAC_PER DOM
*
la var P16_6 "1 sí, Durante el último año en su trabajo, ¿su jefe inmediato la obligó a tener relaciones sexuales?"
la var P10_6 "1 Sí, Durante su vida de estudiante, ¿algún compañero, maestro, personal obligó a tener relaciones sexuales?"
**Pregunta violación
la var P7_2 "Dígame si a lo largo de su vida usted la obligaron a tener rel sex?"
**Pregunta forzar por dinero
la var P7_3 "Dígame si a lo largo de su vida la obligaron a tener rel sex por dinero?"
*Renombrar para apppend
rename P16_6 P_Ult_AnTrab
rename P10_6 P_VidEstObligRelSex
rename P7_2 P_ObligRelSex
rename P7_3 P_ObligRelSexDin
**Quienes:
rename P7_2C PQn_ObligRelSex
rename P7_3C PQn_ObligRelSexDin
save "$modif_Endir2006\06_MSLimp.dta", replace
**************
*Hacemos append de 3 cuestionarios
quietly use "$modif_Endir2006\06_MC1Limp.dta", clear
append using "$modif_Endir2006\06_MD1Limp.dta"
append using "$modif_Endir2006\06_MSLimp.dta"
save "$modif_Endir2006\mujeres2006.dta", replace
*
**Hacemos Merge entre cuestionario SDEM(10-19a) y mujeres para quedarnos solo
*con el grupo de edad de interés
quietly use "$modif_Endir2006\06_DSLimp.dta", clear
mmerge N_CON V_SEL using "$modif_Endir2006\mujeres2006"
**NO usamos N_REN En merge para mantener las observaciones
keep if _merge==3
drop _merge
*generamos entidad con info de Control
decode N_CON, generate(CONTROL)
gen entidad=substr(CONTROL,1,2)
/*
*/
save "$modif_Endir2006\mujeres2006_edad", replace
***************
*********
*****
***Hacer datos por estados
*Estamos interesados en la cantidad de violaciones por año a nivel estado
use "$modif_Endir2006\mujeres2006_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) P_ObligRelSex [aw=FAC_PER] , by (entidad)
gen anio=2006
rename entidad CVE_ENT
save "$modif_Endir2006\Endir2006ViolacEst.dta", replace
*Indica cuantas personas en ese año por entidad, considerando el factor de expansión
***Procesamos población
*Importar excel
import excel "E:\Embarazo\modif\Poblacion\INEGI_PoblaMujEdos2.xlsx", sheet("INEGI_PoblaMujEdos") cellrange(A2:H34) firstrow
rename A CVE_ENT
rename Total nom_ent
rename C a1990
rename D a1995
rename E a2000
rename F a2005
rename G a2010
drop H
la var a1990 "poblacion mujeres entre 15 y 19 años en 1990"
la var a1995 "poblacion mujeres entre 15 y 19 años en 1995"
la var a2000 "poblacion mujeres entre 15 y 19 años en 2000"
la var a2005 "poblacion mujeres entre 15 y 19 años en 2005"
la var a2010 "poblacion mujeres entre 15 y 19 años en 2010"
save "$pob\pob_Edos.dta", replace
****
*Hacemos merge con la población por Edo y calculamos tasa
quietly use "$pob\pob_Edos.dta", clear
*destring CVE_ENT, replace
merge 1:m CVE_ENT using "$modif_Endir2006\Endir2006ViolacEst.dta"
keep if _merge==3
drop _merge
gen tasaViol2006Edo=P_ObligRelSex/a2005*1000
la var tasaViol2006Edo "tasa de violación 2006 Edos por cada 1000 jovenes muj"
save "$modif_Endir2006\Endir2006TasaViolEdos.dta", replace
*Quien las obliga
*Estamos interesados en quien hace violaciones por año a nivel estado
use "$modif_Endir2006\mujeres2006_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) P_ObligRelSex[aw=FAC_PER] , by (entidad PQn_ObligRelSex)
gen anio=2006
rename entidad CVE_ENT
***Para generar una celda con el valor de la etiqueta "encode/decode"
decode PQn_ObligRelSex, generate(Codigo)
drop PQn_ObligRelSex
rename Codigo PQn_ObligRelSex
destring PQn_ObligRelSex, replace
la values PQn_ObligRelSex PQn_ObligRelSexlabel
la de PQn_ObligRelSexlabel 101 "Exesposo" 102 "Esposo (a)" ////
107 "Hijo(a)" ////
115 "Padre" ////
116 "Madre" ////
117 "Padre y madre" ////
118 "Padrastro, madrastra" ////
119 "Hermano (a)" ////
120 "Medio hermano (a)" ////
121 "Hermanastro (a)" ////
122 "Abuelo (a)" ////
123 "Bisabuelo (a)" ////
126 "TÝo (a)" ////
127 "Sobrino (a)" ////
128 "Primo (a)" ////
129 "Suegro (a), ex" ////
130 "Consuegro (a)" ////
131 "Nuera, yerno, ex" ////
132 "cuñado ex" ////
134 "Padrino" ////
137 "familiar" ////
141 "Amigos" ////
142 "Vecino (s), conocido (a)" ////
143 "Novio" ////
144 "Compa±ero (a), exc" ////
145 "Desconocido" ////
146 "Padres adoptivos"
save "$modif_Endir2006\Endir2006QuienViolacEst.dta", replace
***Esta indica eventos por estados por quien lo hace
**Obligan a prostitución
*Estamos interesados en la cantidad de eventos donde obligan a adolesc a relac
* sexual por dinero a nivel estado
use "$modif_Endir2006\mujeres2006_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) P_ObligRelSexDin [aw=FAC_PER] , by (entidad)
gen anio=2006
rename entidad CVE_ENT
save "$modif_Endir2006\Endir2006SexDinEst.dta", replace
*Cant de eventos en que se obliga a RSex por dinero
*Hacemos merge con la población por Edo y caclulamos tasa
quietly use "$pob\pob_Edos.dta", clear
*destring CVE_ENT, replace
merge 1:m CVE_ENT using "$modif_Endir2006\Endir2006SexDinEst.dta"
keep if _merge==3
drop _merge
gen tasaSexDin2006Edo=P_ObligRelSexDin/a2005*1000
la var tasaSexDin2006Edo "tasa de obligar a rel sex por dinero Edos 2006"
save "$modif_Endir2006\Endir2006TasaSexDinEdos.dta", replace
*Quien las obliga
*Estamos interesados en quien la obliga a rel.sex. por dinero a nivel estado
use "$modif_Endir2006\mujeres2006_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) P_ObligRelSexDin[aw=FAC_PER] , by (entidad PQn_ObligRelSexDin)
gen anio=2006
rename entidad CVE_ENT
***Para generar una celda con el valor de la etiqueta "encode/decode"
decode PQn_ObligRelSexDin, generate(Codigo)
drop PQn_ObligRelSexDin
rename Codigo PQn_ObligRelSexDin
destring PQn_ObligRelSexDin, replace
la values PQn_ObligRelSexDin PQn_ObligRelSexDinlabel
la de PQn_ObligRelSexDinlabel 101 "Exesposo" 102 "Esposo (a)" ////
107 "Hijo(a)" ////
115 "Padre" ////
116 "Madre" ////
117 "Padre y madre" ////
118 "Padrastro, madrastra" ////
119 "Hermano (a)" ////
120 "Medio hermano (a)" ////
121 "Hermanastro (a)" ////
122 "Abuelo (a)" ////
123 "Bisabuelo (a)" ////
126 "TÝo (a)" ////
127 "Sobrino (a)" ////
128 "Primo (a)" ////
129 "Suegro (a), ex" ////
130 "Consuegro (a)" ////
131 "Nuera, yerno, ex" ////
132 "cuñado ex" ////
134 "Padrino" ////
137 "familiar" ////
141 "Amigos" ////
142 "Vecino (s), conocido (a)" ////
143 "Novio" ////
144 "Compa±ero (a), exc" ////
145 "Desconocido" ////
146 "Padres adoptivos"
save "$modif_Endir2006\Endir2006QuienSexDinEdos.dta", replace
**Datos por entidad de quien las obliga por dinero//En gral desconocidos.
*****************************************************************
*********************************************************************************
*ENDIREH 2011 *
*Embarazo *
*********************************************************************************
**Base 2011
****Configuración base para tiempo
clear all
set more off
set rmsg on, permanently
global Orig_Endir2011 = "E:\Embarazo\Bdatos\ENDIREH\2011\base_datos_endireh11_dbf"
global modif_Endir2011 = "E:\Embarazo\modif_Endir\Endir2011"
global pob = "E:\Embarazo\modif\Poblacion"
**Leemos la base
*Cuestionario
*TVivienda
*Para obtener factor de vivienda y si es rural o urbano, además
*llaves para unir con otros: control y viv_sel
quietly use "$Orig_Endir2011\dtaTViviend.dta", clear
keep CONTROL VIV_SEL FAC_VIV DOMINIO
save "$modif_Endir2011\dtaTViviend2011Limp.dta", replace
*Leemos cuestionario SDEM
*Para hacer match de EDAD con el resto
quietly use "$Orig_Endir2011\dtaTSDem.dta", clear
keep CONTROL VIV_SEL HOGAR N_REN SEXO EDAD FAC_VIV DOMINIO
keep if SEXO==2
keep if EDAD>=10 & EDAD<=19
gen edad_nolab=.
replace edad_nolab=EDAD
drop EDAD
rename edad_nolab EDAD
save "$modif_Endir2011\dtaTSDem2011Limp.dta", replace
*Cuestionario TUnidas1 //casadas o con pareja
*llaves CONTROL VIV_SEL HOGAR ** R_SEL_M
quietly use "$Orig_Endir2011\dtaTUnidas1.dta", clear
keep CONTROL VIV_SEL HOGAR R_SEL_M AP2_6_4 AP2_7_4_1 AP2_7_4_2 FAC_PER AP2_6_6 AP2_7_6_1 AP3_3 AP3_2
*Pregunta sobre violación
la var AP2_6_4 " 1 sí Sin considerar a su esposo o pareja, ¿dígame si 4 la han obligado a tener relaciones sexuales?"
destring AP2_6_4, replace
replace AP2_6_4=. if AP2_6_4==9
la var AP2_7_4_1 "¿quién o quiénes le han (RESPUESTA DE 2.6)?"
la values AP2_7_4_1 AP2_7_4_1label
la de AP2_7_4_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
*Pregunta sobre prostitución/ obligado por dinero
la var AP2_6_6 "1 sí , la han obligado a realizar actos sexuales por dinero?"
destring AP2_6_6, replace
replace AP2_6_6=. if AP2_6_6==9
la var AP2_7_6_1 "2.7 Dígame ¿quién o quiénes le han (RESPUESTA DE 2_6_6)?"
destring AP2_7_6_1, replace
replace AP2_7_6_1=. if AP2_7_6_1==99
la values AP2_7_6_1 AP2_7_6_1label
la de AP2_7_6_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
rename AP2_6_4 Obli_RelSx
rename AP2_7_4_1 QuinObli_RelSx
rename AP2_6_6 Obli_RelSxDin
rename AP2_7_6_1 QuinObli_RelSxDin
*nuevas
la var AP3_3 "3.3 ¿Recuerda si las personas con las que vivía la insultaban o la ofendían …2 seguido"
la var AP3_2 "3.2 ¿Las personas con las que vivía le pegaban a usted …2 seguido"
save "$modif_Endir2011\dtaTUnidas12011Limp.dta", replace
******************
*Cuestionario TDunida1 // Divorciadas
*llaves CONTROL VIV_SEL HOGAR ** R_SEL_M
quietly use "$Orig_Endir2011\dtaTDunida1.dta", clear
keep CONTROL VIV_SEL HOGAR R_SEL_M BP2_6_4 BP2_7_4_1 BP2_6_6 BP2_7_6_1 FAC_PER BP3_3 BP3_2
*Pregunta sobre violación
la var BP2_6_4 "1 sí , la han obligado a tener relaciones sexuales?"
destring BP2_6_4, replace
replace BP2_6_4=. if BP2_6_4==9
la var BP2_7_4_1 "2.7 Dígame ¿quién o quiénes le han (RESPUESTA DE 2_6_4)?"
destring BP2_7_4_1, replace
replace BP2_7_4_1=. if BP2_7_4_1==99
la values BP2_7_4_1 BP2_7_4_1label
la de BP2_7_4_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
*Pregunta sobre prostitución
la var BP2_6_6 "1 sí , la han obligado a realizar actos sexuales por dinero?"
destring BP2_6_6, replace
replace BP2_6_6=. if BP2_6_6==9
la var BP2_7_6_1 "2.7 Dígame ¿quién o quiénes le han (RESPUESTA DE 2_6_6)?"
destring BP2_7_6_1, replace
replace BP2_7_6_1=. if BP2_7_6_1==99
la values BP2_7_6_1 BP2_7_6_1label
la de BP2_7_6_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
rename BP2_6_4 Obli_RelSx
rename BP2_7_4_1 QuinObli_RelSx
rename BP2_6_6 Obli_RelSxDin
rename BP2_7_6_1 QuinObli_RelSxDin
*nuevas
la var BP3_3 "3.3 ¿Recuerda si las personas con las que vivía la insultaban o la ofendían …2 seguido"
la var BP3_2 "3.2 ¿Las personas con las que vivía le pegaban a usted …2 seguido"
save "$modif_Endir2011\dtaTDunida12011Limp.dta", replace
*************************
*Cuestionario TSolter1 // Solteras
*llaves CONTROL VIV_SEL HOGAR ** R_SEL_M
quietly use "$Orig_Endir2011\dtaTSolter1.dta", clear
keep CONTROL VIV_SEL HOGAR R_SEL_M CP2_6_4 CP2_7_4_1 CP2_6_6 CP2_7_6_1 FAC_PER
*Pregunta sobre violación
la var CP2_6_4 "1 sí , la han obligado a tener relaciones sexuales?"
destring CP2_6_4, replace
replace CP2_6_4=. if CP2_6_4==9
la var CP2_7_4_1 "2.7 Dígame ¿quién o quiénes le han (RESPUESTA DE 2_6_4)?"
destring CP2_7_4_1, replace
replace CP2_7_4_1=. if CP2_7_4_1==99
la values CP2_7_4_1 CP2_7_4_1label
la de CP2_7_4_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
*Pregunta sobre prostitución
la var CP2_6_6 "1 sí , la han obligado a realizar actos sexuales por dinero?"
destring CP2_6_6, replace
replace CP2_6_6=. if CP2_6_6==9
la var CP2_7_6_1 "2.7 Dígame ¿quién o quiénes le han (RESPUESTA DE 2_6_6)?"
destring CP2_7_6_1, replace
replace CP2_7_6_1=. if CP2_7_6_1==99
la values CP2_7_6_1 CP2_7_6_1label
la de CP2_7_6_1label 1 "Padre" 2 "Hermano(a)" 4 "Tío(a)" 3 "Suegro(a)" 5 "Cuñado(a)" 6 "Otro familiar" 7 "patron/jefe" 8"compañero de trabajo" 9 "maestro" 10 "compañero de escuela" 11 "aut escolar" 12 "desconocido" 13 "vecino" 14"policia/militar" 15 "amigos" 16 "otro"
rename CP2_6_4 Obli_RelSx
rename CP2_7_4_1 QuinObli_RelSx
rename CP2_6_6 Obli_RelSxDin
rename CP2_7_6_1 QuinObli_RelSxDin
save "$modif_Endir2011\dtaTSolter12011Limp.dta", replace
**************
*Hacemos append de 3 cuestionarios
quietly use "$modif_Endir2011\dtaTUnidas12011Limp.dta", clear
append using "$modif_Endir2011\dtaTDunida12011Limp.dta"
append using "$modif_Endir2011\dtaTSolter12011Limp.dta"
save "$modif_Endir2011\mujeres2011", replace
*
**Hacemos Merge entre cuestionario SDEM(10-19a) y mujeres para quedarnos solo
*con el grupo de edad de interés
quietly use "$modif_Endir2011\dtaTSDem2011Limp.dta", clear
mmerge CONTROL VIV_SEL HOGAR using "$modif_Endir2011\mujeres2011"
keep if _merge==3
drop _merge
decode CONTROL, generate (Control_A)
gen entidad= substr(Control_A,1,2)
/*
*/
save "$modif_Endir2011\mujeres2011_edad", replace
***Hacer datos por estados
*Estamos interesados en la cantidad de violaciones por año a nivel estado
use "$modif_Endir2011\mujeres2011_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) Obli_RelSx [aw=FAC_PER] , by (entidad)
gen anio=2011
rename entidad CVE_ENT
save "$modif_Endir2011\Endir2011ViolacEst.dta", replace
*Indica cuantas personas en ese año por entidad, considerando el factor de expansión
*Hacemos merge con la población por Edo y calculamos tasa
quietly use "$pob\pob_Edos.dta", clear
*destring CVE_ENT, replace
merge 1:m CVE_ENT using "$modif_Endir2011\Endir2011ViolacEst.dta"
keep if _merge==3
drop _merge
gen tasaViol2011Edo=Obli_RelSx/a2010*1000
la var tasaViol2011 "tasa de violación Edos por cada 1000 jovenes muj"
save "$modif_Endir2011\Endir2011TasaViolEdos.dta", replace
*Quien las obliga
*Estamos interesados en quien hace violaciones por año a nivel estado
use "$modif_Endir2011\mujeres2011_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) Obli_RelSx[aw=FAC_PER] , by (entidad QuinObli_RelSx)
gen anio=2011
rename entidad CVE_ENT
save "$modif_Endir2011\Endir2011QuienViolacEst.dta", replace
**Obligan a prostitución
*Estamos interesados en la cantidad de eventos donde obligan a adolesc a relac
* sexual por dinero a nivel estado
use "$modif_Endir2011\mujeres2011_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) Obli_RelSxDin [aw=FAC_PER] , by (entidad)
gen anio=2011
rename entidad CVE_ENT
save "$modif_Endir2011\Endir2011SexDinEst.dta", replace
*Cant de eventos en que se obliga a RSex por dinero
*Hacemos merge con la población por Edo y caclulamos tasa
quietly use "$pob\pob_Edos.dta", clear
*destring CVE_ENT, replace
merge 1:m CVE_ENT using "$modif_Endir2011\Endir2011SexDinEst.dta"
keep if _merge==3
drop _merge
gen tasaSexDin2011Edo=Obli_RelSxDin/a2010*1000
la var tasaSexDin2011Edo "tasa de obligar a rel sex por dinero Edos"
save "$modif_Endir2011\Endir2011TasaSexDinEdos.dta", replace
*Quien las obliga
*Estamos interesados en quien la obliga a rel.sex. por dinero a nivel estado
use "$modif_Endir2011\mujeres2011_edad.dta", clear
destring EDAD,replace
gen grupo=.
replace grupo=1 if EDAD <15
replace grupo=2 if EDAD >=15
drop if grupo==1
drop grupo
collapse (sum) Obli_RelSxDin[aw=FAC_PER] , by (entidad QuinObli_RelSxDin)
gen anio=2011
rename entidad CVE_ENT
save "$modif_Endir2011\Endir2011QuienSexDinEdos.dta", replace
**Datos por entidad de quien las obliga//En gral desconocidos.
*****************************************************************
*********************************************************************************
*ENDIREH 2016 *
*Embarazo *
*********************************************************************************
**Base 2016
****Configuración base para tiempo
clear all
set more off
set rmsg on, permanently
global Orig_Endir2016 = "E:\Embarazo\Bdatos\ENDIREH\2016\bd_mujeres_endireh2016_sitioinegi_stata"
global modif_Endir2016 = "E:\Embarazo\modif_Endir\Endir2016"
global pob = "E:\Embarazo\modif\Poblacion"
**Leemos la base
quietly use "$Orig_Endir2016\BD_MUJERES_ENDIREH2016_SitioINEGI.dta"
keep if edad >=10 & edad <=19
gen grupo=.
replace grupo=1 if edad >=10 & edad <=14
replace grupo=2 if edad >=15 & edad <=19
save "$modif_Endir2016\Endir2016Limp.dta", replace
use "$modif_Endir2016\Endir2016Limp.dta", clear
gen embar_prev5a=.
replace embar_prev5a=1 if p9_2=="1"
replace embar_prev5a=0 if p9_2!="1"
la var embar_prev5a "embarazo en 5 años previos"
la var p9_3 "num de embarazos en los 5 años previos"
destring p9_3, replace
la var p9_4_1 "Nacidos vivos de esos embarazos"
destring p9_4_1, replace
la var p9_4_2 "Nacidos muertos de esos embarazos"
destring p9_4_2, replace
la var p9_4_3 "Num de abortos de esos embarazos"
destring p9_4_3, replace
replace p9_4_3=. if p9_4_3==99
*Maltrato físico en el parto
la var p9_8_3 "1 sí ¿Le dijeron cosas ofensivas o humillantes, ¿así gritaba cuando se lo hicieron? o cuando se lo hicieron, ahí si abrió las piernas ¿no?"
destring p9_8_3, replace
replace p9_8_3=. if p9_8_3==9
*Esterilización sin consentimiento
la var p9_8_7 " 1 sí Le colocaron algún método anticonceptivo o la operaron o esterilizaron para ya no tener hijos sin preguntarle o avisarle"
replace p9_8_7=. if p9_8_7==9
la var p9_8_8 "1 sí La presionaron para que usted aceptara que le pusieran un dispositivo o la operaran para ya no tener hijos?"
destring p9_8_8, replace
replace p9_8_8=. if p9_8_8==9
*Abuso fisico familiar
la var p10_1_2 "1 sí ¿alguna o algunas personas de su familia la han manoseado, tocado, besado o se le han arrimado, recargado o encimado sin su consentimiento"
destring p10_1_2, replace
replace p10_1_2=1 if p10_1_2==1 | p10_1_2==2 | p10_1_2==3
replace p10_1_2=0 if p10_1_2==4
replace p10_1_2=. if p10_1_2==9
*Violacion por familiar
la var p10_1_3 "1 sí ¿alguna o algunas personas de su familia la han obligado a tener relaciones sexuales en contra de su voluntad"
destring p10_1_3, replace
replace p10_1_3=1 if p10_1_3==1 | p10_1_3==2 | p10_1_3==3
replace p10_1_3=0 if p10_1_3==4
replace p10_1_3=. if p10_1_3==9
*Intento de violación por familiar
la var p10_1_4 "1sí alguna o algunas personas de su familia han tratado de obligarla a tener relaciones sexuales en contra de su voluntad"
destring p10_1_4, replace
replace p10_1_4=1 if p10_1_4==1 | p10_1_4==2 | p10_1_4==3
replace p10_1_4=0 if p10_1_4==4
replace p10_1_4=. if p10_1_4==9
* Quien la ha forzado a tener rel sex
la var p10_2_3_1 "Quién o quiénes la han obligado a tener relaciones sexuales en contra de su voluntad?"
destring p10_2_3_1, replace
replace p10_2_3_1=. if p10_2_3_1==99
la values p10_2_3_1 p10_2_3_1label
la de p10_2_3_1label 1 "Padre" 2 "Madre" 3 "Padrastro/madrastra" 4 "Abuelo(a)" 5 "Hijo(a)" 6 "Hermano(a)" 7 "Tío(a)" 8 "Primo(a)" 9 "Suegro(a)" 10 "Cuñado(a)" 11 "Sobrino(a)" 12 "Yerno" 13 "Otro familiar" 99 "No especificado"
*Preg2 igual
la var p10_2_3_2 "Quién o quiénes la han obligado a tener relaciones sexuales en contra de su voluntad?"
destring p10_2_3_2, replace
replace p10_2_3_2=. if p10_2_3_2==99
la values p10_2_3_2 p10_2_3_2label
la de p10_2_3_2label 1 "Padre" 2 "Madre" 3 "Padrastro/madrastra" 4 "Abuelo(a)" 5 "Hijo(a)" 6 "Hermano(a)" 7 "Tío(a)" 8 "Primo(a)" 9 "Suegro(a)" 10 "Cuñado(a)" 11 "Sobrino(a)" 12 "Yerno" 13 "Otro familiar" 99 "No especificado"
*Preg3 igual
la var p10_2_3_3 "Quién o quiénes la han obligado a tener relaciones sexuales en contra de su voluntad?"
destring p10_2_3_3, replace
replace p10_2_3_3=. if p10_2_3_3==99
la values p10_2_3_3 p10_2_3_3label
la de p10_2_3_3label 1 "Padre" 2 "Madre" 3 "Padrastro/madrastra" 4 "Abuelo(a)" 5 "Hijo(a)" 6 "Hermano(a)" 7 "Tío(a)" 8 "Primo(a)" 9 "Suegro(a)" 10 "Cuñado(a)" 11 "Sobrino(a)" 12 "Yerno" 13 "Otro familiar" 99 "No especificado"
***Pregunta Ministerio Publico denuncia violación
la var p10_12_3_1 "En esa última vez, que acudió a el Ministerio Público ¿cuál o cuáles fueron las situaciones por las que presentó la queja o denuncia"
destring p10_12_3_1, replace
recode p10_12_3_1 (1 2 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 =0)(3 = 1) (99 = .)
*replace p10_12_3_1=. if p10_12_3_1==99 |p10_12_3_1==99
la values p10_12_3_1 p10_12_3_1label
la de p10_12_3_1label 1 "la han obligado a tener relaciones sexuales en contra de su voluntad" 0 "otro caso"
***Nadie se presento ante el MP
**Preg2
la var p10_12_3_2 "En esa última vez, que acudió a el Ministerio Público ¿cuál o cuáles fueron las situaciones por las que presentó la queja o denuncia"
destring p10_12_3_2, replace
recode p10_12_3_2 (1 2 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 =0)(3 = 1) (99 = .)
*replace p10_12_3_2=. if p10_12_3_2==99 |p10_12_3_2==99
la values p10_12_3_2 p10_12_3_2label
la de p10_12_3_2label 1 "la han obligado a tener relaciones sexuales en contra de su voluntad" 0 "otro caso"
***1 persona se presento ante el MP
**Preg3
la var p10_12_3_3 "En esa última vez, que acudió a el Ministerio Público ¿cuál o cuáles fueron las situaciones por las que presentó la queja o denuncia"
destring p10_12_3_3, replace
recode p10_12_3_3 (1 2 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 =0)(3 = 1) (99 = .)
*replace p10_12_3_3=. if p10_12_3_3==99 |p10_12_3_3==99
la values p10_12_3_3 p10_12_3_3label
la de p10_12_3_3label 1 "la han obligado a tener relaciones sexuales en contra de su voluntad" 0 "otro caso"
***Nadie se presento ante el MP
***Limpieza de la base
destring sexo, replace
keep if sexo==2
la var fac_viv "Factor vivienda Ponderador quese utiliza paraestimar resultadosde las preguntasque se refieren alas viviendas y lapoblación en genera"
la var fac_muj "Factor de la mujer"
keep id_viv id_muj c_unica c_viv c_hog upm ren_m_ele viv_sel prog hogar nom_ent ///
cve_mun nom_mun cod_res cod_res_mu t_instrum id_viv id_muj c_unica c_viv c_hog upm ///
ren_m_ele viv_sel prog hogar cve_ent nom_ent cve_mun nom_mun cod_res cod_res_mu t_instrum ///
fac_viv fac_muj estrato sexo dominio ///
grupo embar_prev5a p9_3 p9_4_1 ///
p9_4_2 ///
p9_4_3 ///
p9_8_3 ///
p9_8_7 ///
p9_8_8 ///
p10_1_2 ///
p10_1_3 ///
p10_1_4 ///
p10_2_3_1 ///
p10_2_3_2 ///
p10_2_3_3 ///
p10_12_3_1 ///
p10_12_3_2 ///
p10_12_3_3 p11_6 p11_7 ///
la var dominio "U’ ‘Urbano’ ‘C’ ‘Complemento urbano’ ‘R’ ‘Rural’"
gen urbano=.
replace urbano=1 if dominio=="U" | dominio=="C"
replace urbano=0 if dominio=="R"
save "$modif_Endir2016\Endir2016Limp1.dta", replace
*************************************
*Estamos interesados en la cantidad de violaciones por año a nivel municipal
quietly use "$modif_Endir2016\Endir2016Limp1.dta", clear
collapse (sum) p10_1_3 [aw=fac_muj], by (cve_mun nom_mun cve_ent nom_ent grupo)
gen anio=2016
rename cve_mun CVE_MUN
rename cve_ent CVE_ENT
drop if grupo==1
drop grupo
save "$modif_Endir2016\Endir2016ViolacMun.dta", replace
*Estamos interesados en la cantidad de violaciones por año a nivel estado
quietly use "$modif_Endir2016\Endir2016Limp1.dta", clear
collapse (sum) p10_1_3 [aw=fac_muj], by (cve_ent nom_ent grupo)
gen anio=2016
rename cve_ent CVE_ENT
drop if grupo==1
drop grupo
save "$modif_Endir2016\Endir2016ViolacEst.dta", replace
*Hacemos merge con la población por municipio y calculamso tasa
quietly use "$pob\pob_mun_imp.dta", clear
merge 1:m CVE_ENT CVE_MUN using "$modif_Endir2016\Endir2016ViolacMun.dta"
keep if _merge==3
drop _merge
gen tasaViol2016=p10_1_3/a2010*1000
la var tasaViol2016 "tasa de violación"
save "$modif_Endir2016\Endir2016TasaViolMun.dta", replace
*Hacemos merge con la población por Edo y caclulamos tasa
quietly use "$pob\pob_Edos.dta", clear
merge 1:m CVE_ENT using "$modif_Endir2016\Endir2016ViolacEst.dta"
keep if _merge==3
drop _merge
gen tasaViol2016Edo=p10_1_3/a2010*1000
la var tasaViol2016 "tasa de violación Edos"
save "$modif_Endir2016\Endir2016TasaViolEdos.dta", replace
***¿?CREO QUE TIENE ERROR
*Quien las obliga Violacion por Estados
use "$modif_Endir2016\Endir2016Limp1.dta", clear
drop grupo
collapse (sum) p10_1_3 [aw=fac_muj], by (cve_ent nom_ent p10_2_3_1)
gen year=2016
rename cve_ent CVE_ENT
save "$modif_Endir2016\Endir2016QuienViolacEst.dta", replace
*****************************************************************
*********************************************************************************
*ENDIREH *
*Union de bases - Tasa de violencia *
*********************************************************************************
**
***Endireh Uniendo indices de violencia 3 años
***Solo donde se pudieron calcular
***2006, 2011, 2016
global modifEnF = "E:\Embarazo\modif_Endir"
global modif_Endir2016 = "E:\Embarazo\modif_Endir\Endir2016"
global modif_Endir2011 = "E:\Embarazo\modif_Endir\Endir2011"
global modif_Endir2006 = "E:\Embarazo\modif_Endir\Endir2006"
***************************
*******Año 2016
*Ponemos bonita para unir 2016
use "$modif_Endir2016\Endir2016TasaViolEdos.dta", clear
rename tasaViol2016 TViol2016
la var TViol2016 "tasa violacion Estados 2016 por cada 1000 adolescentes"
drop a1990 a1995 a2000 a2005 a2010
rename anio year
la var year "año"
rename p10_1_3 NumOblRSex2016
la var NumOblRSex2016 "Num event obliga a Rel sex a adolesc en 2016 "
save "$modifEnF\TasaViol2016.dta", replace
***************************
*******Año 2011
***Ponemos bonita 2011
*Violacion
use "$modif_Endir2011\Endir2011TasaViolEdos.dta", clear
rename tasaViol2011Edo TViol2011
la var TViol2011 "tasa violacion Estados 2011 por cada 1000 adolescentes"
drop a1990 a1995 a2000 a2005 a2010
rename anio year
la var year "año"
rename Obli_RelSx NumOblRSex2011
la var NumOblRSex2011 "Num event obliga a Rel sex a adolesc en 2011 "
save "$modifEnF\TasaViol2011.dta", replace
*Quienes/Quien las obliga
use "$modif_Endir2011\Endir2011QuienViolacEst.dta", clear
la var QuinObli_RelSx "quien las obliga"
rename QuinObli_RelSx QuinObli_RelSx2011
la var CVE_ENT "entidad"
rename Obli_RelSx NumEventAb2011
la var NumEventAb2011 "Numero de eventos reportados donde obligan a la adolescente a tener rel.sex 2011"
rename anio year
la var year "año"
save "$modifEnF\QuienViolac2011.dta", replace
/**********Tal vez no necesario
*Obligan a cambio de dinero
*Hacemos merge con la población por Edo y caclulamos tasa
use "$modif_Endir2011\Endir2011TasaSexDinEdos.dta", clear
rename tasaSexDin2011Edo TSexDin2011
drop a1990 a1995 a2000 a2005 a2010
save "$modifEnF\TasaSexDin2011.dta", replace
*Quien las obliga a cambio de dinero
use "$modif_Endir2011\Endir2011QuienSexDinEdos.dta", clear
la var QuinObli_RelSxDin "Quien las obliga a cambio de dinero"
la var CVE_ENT "entidad"
rename Obli_RelSxDin NumEventAbusoDin
la var NumEventAbusoDin "Num eventos reportados donde obligan a la adolescente a tener rel.sex por dinero"
save "$modifEnF\QuienSexDin2011.dta", replace
**Datos por entidad de quien las obliga//En gral desconocidos.*/
***************************
*******Año 2006
***Integramos indice 2006
*Tasa Violacion 2006
use "$modif_Endir2006\Endir2006TasaViolEdos.dta", clear
rename tasaViol2006Edo TViol2006
drop a1990 a1995 a2000 a2005 a2010
rename anio year
la var year "año"
rename P_ObligRelSex NumOblRSex2006
la var NumOblRSex2006 "Num event obliga a Rel sex a adolesc en 2006 "
save "$modifEnF\TasaViol2006.dta", replace
***Quien las obliga
*Quien las obliga
*Estamos interesados en quien hace violaciones por año a nivel estado
use "$modif_Endir2006\Endir2006QuienViolacEst.dta", clear
rename PQn_ObligRelSex QuinObli_RelSx2006
la var QuinObli_RelSx2006 "quien las obliga 2006"
la var CVE_ENT "entidad"
rename P_ObligRelSex NumEventAb2006
la var NumEventAb2006 "Numero de eventos reportados donde obligan a la adolescente a tener rel.sex 2006"
rename anio year
la var year "año"
save "$modifEnF\QuienViolac2006.dta", replace
********************
*******Unimos las tasas de violacion por entidad
use "$modifEnF\TasaViol2016.dta", clear
mmerge CVE_ENT using "$modifEnF\TasaViol2011.dta"
drop _merge
mmerge CVE_ENT using "$modifEnF\TasaViol2006.dta"
drop _merge
drop year
save "$modifEnF\TasaViolTodos_wide.dta", replace
****Unimos tasas Long
*Primero renombramos
use "$modifEnF\TasaViol2016.dta", clear
rename NumOblRSex2016 NumOblRSex