# Clase 3. Práctica EPH

# Ejercicios de práctica con variables de ingresos.

Levantar la base individual de la EPH del 1t de 2017 (Pueden tomarla de la clase 1 o usar el paquete “eph”)

    # library(tidyverse)
    # base <- eph::get_microdata(2017,1)

Crear un dataframe con las siguientes estimaciones:

- Total ponderado de perceptores de ingresos (es decir con ingresos totales individuales mayores a 0. Variable P47T, ver ponderador adecuado!)
- Cantidad de perceptores de ingresos con ingreso individual total menor a $8.000
- Cantidad de perceptores de ingresos con ingreso individual total entre $8.000 y $15.000
- Cantidad de perceptores de ingresos con ingreso individual total mayor a $15.000

Estimar cuantas personas habitan en hogares con ingresos totales familiares (ITF) menores a $15.000

# Composición de Hogares

- La variable CODUSU distingue distintas viviendas dentro de la base de datos. O lo que es lo mismo, un mismo CODUSU permite identificar que registros corresponden a personas que habitan una misma vivienda.
- La variable NRO_HOGAR distingue distintos hogares dentro de una misma vivienda. Un mismo CODUSU y mismo NRO_HOGAR permite identificar personas que forman parte de un mismo hogar
- La variable COMPONENTE distingue distintas personas dentro de un hogar.

Por ejemplo, en estos 10 casos tenemos 5 hogares diferentes:

- El finalizado en 338: Dos personas, una mujer de 75 años y un varón de 68
- El finalizado en 007: Hogar unipersonal, varón de 69.
- El finalizado en 345: Hogar de 3 personas. Mujer de 39, mujer de 16, varón de 9 años.

En este caso, no vemos dos hogares distintos en una misma vivienda…

Consignas:

- ¿Cuantas viviendas distintas hay en la base de datos?

- ¿Cuantos hogares distintos hay en la base de datos?

- Construir dentro de la base una variable que identifique el total de personas presentes en el hogar que habita cada individuo. Pista: La función n() permite contar la cantidad de registros de un determinado agrupamiento.

- ¿Cuantas personas habitan en hogares de 7 o más integrantes?

- ¿Cual es el ingreso familiar per capita en estos hogares?

LS0tDQp0aXRsZTogIkNsYXNlIDMuIFByw6FjdGljYSBFUEgiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIEVqZXJjaWNpb3MgZGUgcHLDoWN0aWNhIGNvbiB2YXJpYWJsZXMgZGUgaW5ncmVzb3MuDQoNCkxldmFudGFyIGxhIGJhc2UgaW5kaXZpZHVhbCBkZSBsYSBFUEggZGVsIDF0IGRlIDIwMTcgKFB1ZWRlbiB0b21hcmxhIGRlIGxhIGNsYXNlIDEgbyB1c2FyIGVsIHBhcXVldGUgImVwaCIpDQoNCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQojIGxpYnJhcnkodGlkeXZlcnNlKQ0KIyBiYXNlIDwtIGVwaDo6Z2V0X21pY3JvZGF0YSgyMDE3LDEpDQpgYGANCg0KQ3JlYXIgdW4gZGF0YWZyYW1lIGNvbiBsYXMgc2lndWllbnRlcyBlc3RpbWFjaW9uZXM6DQoNCi0gICBUb3RhbCBwb25kZXJhZG8gZGUgcGVyY2VwdG9yZXMgZGUgaW5ncmVzb3MgKGVzIGRlY2lyIGNvbiBpbmdyZXNvcyB0b3RhbGVzIGluZGl2aWR1YWxlcyBtYXlvcmVzIGEgMC4gVmFyaWFibGUgKipQNDdUKiosIHZlciBwb25kZXJhZG9yIGFkZWN1YWRvISkNCi0gICBDYW50aWRhZCBkZSBwZXJjZXB0b3JlcyBkZSBpbmdyZXNvcyBjb24gaW5ncmVzbyBpbmRpdmlkdWFsIHRvdGFsIG1lbm9yIGEgXCQ4LjAwMA0KLSAgIENhbnRpZGFkIGRlIHBlcmNlcHRvcmVzIGRlIGluZ3Jlc29zIGNvbiBpbmdyZXNvIGluZGl2aWR1YWwgdG90YWwgZW50cmUgXCQ4LjAwMCB5IFwkMTUuMDAwDQotICAgQ2FudGlkYWQgZGUgcGVyY2VwdG9yZXMgZGUgaW5ncmVzb3MgY29uIGluZ3Jlc28gaW5kaXZpZHVhbCB0b3RhbCBtYXlvciBhIFwkMTUuMDAwDQoNCmBgYHtyfQ0KDQpgYGANCg0KRXN0aW1hciBjdWFudGFzIHBlcnNvbmFzIGhhYml0YW4gZW4gaG9nYXJlcyBjb24gaW5ncmVzb3MgdG90YWxlcyBmYW1pbGlhcmVzIChJVEYpIG1lbm9yZXMgYSBcJDE1LjAwMA0KDQpgYGB7ciBlY2hvPVRSVUV9DQoNCmBgYA0KDQojIENvbXBvc2ljacOzbiBkZSBIb2dhcmVzDQoNCi0gICBMYSB2YXJpYWJsZSAqKkNPRFVTVSoqIGRpc3Rpbmd1ZSBkaXN0aW50YXMgdml2aWVuZGFzIGRlbnRybyBkZSBsYSBiYXNlIGRlIGRhdG9zLiBPIGxvIHF1ZSBlcyBsbyBtaXNtbywgdW4gbWlzbW8gQ09EVVNVIHBlcm1pdGUgaWRlbnRpZmljYXIgcXVlIHJlZ2lzdHJvcyBjb3JyZXNwb25kZW4gYSBwZXJzb25hcyBxdWUgaGFiaXRhbiB1bmEgbWlzbWEgdml2aWVuZGEuXA0KLSAgIExhIHZhcmlhYmxlICoqTlJPX0hPR0FSKiogZGlzdGluZ3VlIGRpc3RpbnRvcyBob2dhcmVzIGRlbnRybyBkZSB1bmEgbWlzbWEgdml2aWVuZGEuIFVuICoqbWlzbW8gQ09EVVNVIHkgbWlzbW8gTlJPX0hPR0FSKiogcGVybWl0ZSBpZGVudGlmaWNhciBwZXJzb25hcyBxdWUgZm9ybWFuIHBhcnRlIGRlIHVuIG1pc21vIGhvZ2FyDQotICAgTGEgdmFyaWFibGUgKipDT01QT05FTlRFKiogZGlzdGluZ3VlIGRpc3RpbnRhcyBwZXJzb25hcyBkZW50cm8gZGUgdW4gaG9nYXIuDQoNCjxicj4NCg0KUG9yIGVqZW1wbG8sIGVuIGVzdG9zIDEwIGNhc29zIHRlbmVtb3MgNSBob2dhcmVzIGRpZmVyZW50ZXM6DQoNCi0gICBFbCBmaW5hbGl6YWRvIGVuICoqMzM4Kio6IERvcyBwZXJzb25hcywgdW5hIG11amVyIGRlIDc1IGHDsW9zIHkgdW4gdmFyw7NuIGRlIDY4XA0KLSAgIEVsIGZpbmFsaXphZG8gZW4gKiowMDcqKjogSG9nYXIgdW5pcGVyc29uYWwsIHZhcsOzbiBkZSA2OS5cDQotICAgRWwgZmluYWxpemFkbyBlbiAqKjM0NSoqOiBIb2dhciBkZSAzIHBlcnNvbmFzLiBNdWplciBkZSAzOSwgbXVqZXIgZGUgMTYsIHZhcsOzbiBkZSA5IGHDsW9zLg0KDQohW10oaW1nL2VqZW1wbG8lMjBlcGguSlBHKQ0KDQpFbiBlc3RlIGNhc28sIG5vIHZlbW9zIGRvcyBob2dhcmVzIGRpc3RpbnRvcyBlbiB1bmEgbWlzbWEgdml2aWVuZGEuLi4NCg0KPGJyPg0KDQpDb25zaWduYXM6DQoNCi0gICDCv0N1YW50YXMgdml2aWVuZGFzIGRpc3RpbnRhcyBoYXkgZW4gbGEgYmFzZSBkZSBkYXRvcz9cDQoNCi0gICDCv0N1YW50b3MgaG9nYXJlcyBkaXN0aW50b3MgaGF5IGVuIGxhIGJhc2UgZGUgZGF0b3M/XA0KDQotICAgQ29uc3RydWlyIGRlbnRybyBkZSBsYSBiYXNlIHVuYSB2YXJpYWJsZSBxdWUgaWRlbnRpZmlxdWUgZWwgdG90YWwgZGUgcGVyc29uYXMgcHJlc2VudGVzIGVuIGVsIGhvZ2FyIHF1ZSBoYWJpdGEgY2FkYSBpbmRpdmlkdW8uIFBpc3RhOiBMYSBmdW5jacOzbiAqbigpKiBwZXJtaXRlIGNvbnRhciBsYSBjYW50aWRhZCBkZSByZWdpc3Ryb3MgZGUgdW4gZGV0ZXJtaW5hZG8gYWdydXBhbWllbnRvLlwNCg0KLSAgIMK/Q3VhbnRhcyBwZXJzb25hcyBoYWJpdGFuIGVuIGhvZ2FyZXMgZGUgNyBvIG3DoXMgaW50ZWdyYW50ZXM/DQoNCi0gICDCv0N1YWwgZXMgZWwgaW5ncmVzbyBmYW1pbGlhciBwZXIgY2FwaXRhIGVuIGVzdG9zIGhvZ2FyZXM/DQoNCmBgYHtyLCBpbmNsdWRlPUZBTFNFfQ0KI2xlbmd0aCh1bmlxdWUoYmFzZSRDT0RVU1UpKQ0KI25yb3codW5pcXVlKGJhc2VbLGMoIkNPRFVTVSIsIk5ST19IT0dBUiIpXSkpDQoNCiNiYXNlXzIgPC0gYmFzZSAlPiUgDQojICBncm91cF9ieShDT0RVU1UsTlJPX0hPR0FSKSAlPiUgDQojICBtdXRhdGUocGVyc29uYXNfZW5faG9nYXIgPSBuKCkpDQpgYGANCg==