Cargar las librerías:
Cargamos los datos
Set de Datos que contiene la distribución conjunta de la edad (Age) y
el ingreso promedio por hora (AHE) para trabajadores de tiempo completo
de entre 25 y 34 años en 2012, con un nivel educativo superior al de
educación media superior.
Completa los siguientes ejercicios
- Calcula la distribución marginal de la edad (Age).
- Calcula la media de AHE para cada valor de la edad; es decir,
calcula \(E(AHE∣Age=25)\), y así
sucesivamente.
- Calcula y grafica la media de AHE en función de la edad (Age).
¿Existe una relación entre el ingreso promedio por hora y la edad?
Explica.


- Utiliza la ley de la esperanza iterada para calcular la media de
AHE; es decir, calcula \(E(AHE)\).
\[ E(AHE)=\sum_{age}E(AHE∣Age)⋅P(Age)
\]
[1] 21.51058
- Calcula la varianza de AHE. \[var(Y)=
E[(Y-E(Y))^2]\]
[1] 164.8203
- Calcula la covarianza entre AHE y la edad (Age).
\[Cov(AHE,Age)=E(AHE⋅Age)−E(AHE)E(Age)\]
[1] 5.717183
- Calcula la correlación entre AHE y la edad (Age).
\[Corr(AHE,Age)=\frac{Cov(AHE,Age)}{Var(AHE)Var(Age)}\]
[1] 0.1560412
- Relaciona tus respuestas de los incisos (f) y (g) con la gráfica que
construiste en el inciso (c).
Aqui escribe lo que observaste
Dado las respuestas de los incisos(f) y (g) se puede llegar a
distintas conclusiones con respecto a la gráfica realizada en un inicio.
En el inciso f se llega a una covarianza positiva de 5.717 entre las
variables de ingreso promedio por hora y edad, lo que se traduce a que
entre más edad tenga una persona, mayor ingreso promedio por hora tiene.
Esto se ve relacionado en la primera gráfica al la gráfica tener una
tendencia positiva de crecimiento, en donde a mayor edad hay mayor
ingreso promedio.
Por otro lado, el inciso g es el que da respuesta a la correlación
entre las variables mencionadas anteriormente. Es entonces que en
concordancia con el inciso f, el inciso g muestra una correlación
positiva en donde si uno aumenta el otro aumentará, sin embargo una
correlación de 0.156 se podría considerar hasta cierto punto débil o
baja, por lo cual el aumento en una no significa, por lo que el aumento
en una variable no implica necesariamente un incremento significativo en
la otra. Esto se ve en la gráfica en los distintos segmentos que en
ocasiones tienen caídas en sus inclinaciones con respecto a los
anteriores segmentos.
LS0tDQp0aXRsZTogIkVqZXJjaWNpbyBSZXBhc28gUHJvYmFiaWxpZGFkLSBBaXJhbSINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyIGVjaG89RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IEZBTFNFKQ0KYGBgDQoNCkNhcmdhciBsYXMgbGlicmVyw61hczoNCg0KYGBge3J9DQojaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeSh0aWR5cikNCmxpYnJhcnkoZ2dwbG90MikNCmBgYA0KDQojIENhcmdhbW9zIGxvcyBkYXRvcw0KDQpTZXQgZGUgRGF0b3MgcXVlIGNvbnRpZW5lIGxhIGRpc3RyaWJ1Y2nDs24gY29uanVudGEgZGUgbGEgZWRhZCAoQWdlKSB5IGVsIGluZ3Jlc28gcHJvbWVkaW8gcG9yIGhvcmEgKEFIRSkgcGFyYSB0cmFiYWphZG9yZXMgZGUgdGllbXBvIGNvbXBsZXRvIGRlIGVudHJlIDI1IHkgMzQgYcOxb3MgZW4gMjAxMiwgY29uIHVuIG5pdmVsIGVkdWNhdGl2byBzdXBlcmlvciBhbCBkZSBlZHVjYWNpw7NuIG1lZGlhIHN1cGVyaW9yLg0KDQoNCmBgYHtyfQ0KZGF0b3NfbWF0cml6IDwtIHJlYWQuY3N2KCJBZ2VfSG91cmx5RWFybmluZ3MuY3N2IiwgaGVhZGVyID0gVFJVRSkNCg0KZGF0YSA8LSBwaXZvdF9sb25nZXIoZGF0b3NfbWF0cml6LCBjb2xzID0gc3RhcnRzX3dpdGgoIkFnZSIpLCBuYW1lc190byA9ICJBZ2UiLCB2YWx1ZXNfdG8gPSAicHJvIikNCg0KZGF0YSRBZ2UgPC0gYXMubnVtZXJpYyhnc3ViKCJBZ2VfIiwgIiIsIGRhdGEkQWdlKSkNCg0KZGF0YQ0KDQpgYGANCg0KDQojIENvbXBsZXRhIGxvcyBzaWd1aWVudGVzIGVqZXJjaWNpb3MNCg0KYS4gQ2FsY3VsYSBsYSBkaXN0cmlidWNpw7NuIG1hcmdpbmFsIGRlIGxhIGVkYWQgKEFnZSkuDQpgYGB7cn0NCm1hcmdpbmFsIDwtIGRhdGEgJT4lDQogIGdyb3VwX2J5KEFnZSkgJT4lDQogIHN1bW1hcmlzZShQX0FnZSA9IHN1bShwcm8pKQ0KDQptYXJnaW5hbA0KDQpgYGANCg0KYi4gQ2FsY3VsYSBsYSBtZWRpYSBkZSBBSEUgcGFyYSBjYWRhIHZhbG9yIGRlIGxhIGVkYWQ7IGVzIGRlY2lyLCBjYWxjdWxhIA0KJEUoQUhF4oijQWdlPTI1KSQsIHkgYXPDrSBzdWNlc2l2YW1lbnRlLg0KDQpgYGB7cn0NCnByb21FPC1kYXRhICU+JSANCiAgZ3JvdXBfYnkoQWdlKSAlPiUgDQogIHN1bW1hcmlzZShFQSA9IHN1bShBSEUgKiBwcm8pIC8gc3VtKHBybykpDQoNCnByb21FDQoNCmBgYA0KDQoNCmMuIENhbGN1bGEgeSBncmFmaWNhIGxhIG1lZGlhIGRlIEFIRSBlbiBmdW5jacOzbiBkZSBsYSBlZGFkIChBZ2UpLiDCv0V4aXN0ZSB1bmEgcmVsYWNpw7NuIGVudHJlIGVsIGluZ3Jlc28gcHJvbWVkaW8gcG9yIGhvcmEgeSBsYSBlZGFkPyBFeHBsaWNhLg0KDQpgYGB7cn0NCg0KZ2dwbG90KHByb21FLCBhZXMoeCA9IEFnZSwgeSA9IEVBICkpICsNCiAgZ2VvbV9saW5lKCkgKw0KICBnZW9tX3BvaW50KCkgKw0KICBsYWJzKHRpdGxlID0gIk1lZGlhIEFIRSBwb3IgZWRhZCIsDQogICAgICAgeCA9ICJFZGFkIiwNCiAgICAgICB5ID0gIkUoQUhFIHwgRWRhZCkiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KDQpgYGANCg0KDQpkLiBVdGlsaXphIGxhIGxleSBkZSBsYSBlc3BlcmFuemEgaXRlcmFkYSBwYXJhIGNhbGN1bGFyIGxhIG1lZGlhIGRlIEFIRTsgZXMgZGVjaXIsIGNhbGN1bGENCiRFKEFIRSkkLg0KDQokJCBFKEFIRSk9XHN1bV97YWdlfeKAi0UoQUhF4oijQWdlKeKLhVAoQWdlKSAkJA0KDQoNCmBgYHtyfQ0KDQpFQUg8LSBzdW0ocHJvbUUkRUEgKiBtYXJnaW5hbCRQX0FnZSkNCg0KRUFIDQpgYGANCg0KDQplLiBDYWxjdWxhIGxhIHZhcmlhbnphIGRlIEFIRS4NCiQkdmFyKFkpPSBFWyhZLUUoWSkpXjJdJCQNCg0KYGBge3J9DQp5IDwtIHN1bSgoZGF0YSRBSEVeMikgKiBkYXRhJHBybykNCg0KdmFyZSA8LSB5IC0gKEVBSF4yKQ0KDQp2YXJlDQpgYGANCg0KDQpmLiBDYWxjdWxhIGxhIGNvdmFyaWFuemEgZW50cmUgQUhFIHkgbGEgZWRhZCAoQWdlKS4NCg0KJCRDb3YoQUhFLEFnZSk9RShBSEXii4VBZ2Up4oiSRShBSEUpRShBZ2UpJCQNCg0KYGBge3J9DQpFQUhFIDwtIHN1bShkYXRhJEFIRSAqIGRhdGEkQWdlICogZGF0YSRwcm8pDQoNCkVBIDwtIHN1bShkYXRhJEFnZSAqIGRhdGEkcHJvKQ0KDQpDb3ZBIDwtIEVBSEUgLSAoRUFIICogRUEpDQoNCkNvdkENCg0KYGBgDQoNCmcuIENhbGN1bGEgbGEgY29ycmVsYWNpw7NuIGVudHJlIEFIRSB5IGxhIGVkYWQgKEFnZSkuDQoNCiQkQ29ycihBSEUsQWdlKT1cZnJhY3tDb3YoQUhFLEFnZSl9e1ZhcihBSEUpVmFyKEFnZSl9JCQNCg0KYGBge3J9DQpFQTIgPC0gc3VtKChkYXRhJEFnZV4yKSAqIGRhdGEkcHJvKQ0KDQpWYXJBIDwtIEVBMiAtIChFQV4yKQ0KDQpDb3JyIDwtIENvdkEgLyAoc3FydCh2YXJlKSAqIHNxcnQoVmFyQSkpDQoNCkNvcnINCg0KYGBgDQoNCmguIFJlbGFjaW9uYSB0dXMgcmVzcHVlc3RhcyBkZSBsb3MgaW5jaXNvcyAoZikgeSAoZykgY29uIGxhIGdyw6FmaWNhIHF1ZSBjb25zdHJ1aXN0ZSBlbiBlbCBpbmNpc28gKGMpLg0KDQoqQXF1aSBlc2NyaWJlIGxvIHF1ZSBvYnNlcnZhc3RlKg0KDQpEYWRvIGxhcyByZXNwdWVzdGFzIGRlIGxvcyBpbmNpc29zKGYpIHkgKGcpIHNlIHB1ZWRlIGxsZWdhciBhIGRpc3RpbnRhcyBjb25jbHVzaW9uZXMgY29uIHJlc3BlY3RvIGEgbGEgZ3LDoWZpY2EgcmVhbGl6YWRhIGVuIHVuIGluaWNpby4gRW4gZWwgaW5jaXNvIGYgc2UgbGxlZ2EgYSB1bmEgY292YXJpYW56YSBwb3NpdGl2YSBkZSA1LjcxNyBlbnRyZSBsYXMgdmFyaWFibGVzIGRlIGluZ3Jlc28gcHJvbWVkaW8gcG9yIGhvcmEgeSBlZGFkLCBsbyBxdWUgc2UgdHJhZHVjZSBhIHF1ZSBlbnRyZSBtw6FzIGVkYWQgdGVuZ2EgdW5hIHBlcnNvbmEsIG1heW9yIGluZ3Jlc28gcHJvbWVkaW8gcG9yIGhvcmEgdGllbmUuIEVzdG8gc2UgdmUgcmVsYWNpb25hZG8gZW4gbGEgcHJpbWVyYSBncsOhZmljYSBhbCBsYSBncsOhZmljYSB0ZW5lciB1bmEgdGVuZGVuY2lhIHBvc2l0aXZhIGRlIGNyZWNpbWllbnRvLCBlbiBkb25kZSBhIG1heW9yIGVkYWQgaGF5IG1heW9yIGluZ3Jlc28gcHJvbWVkaW8uDQoNClBvciBvdHJvIGxhZG8sIGVsIGluY2lzbyBnIGVzIGVsIHF1ZSBkYSByZXNwdWVzdGEgYSBsYSBjb3JyZWxhY2nDs24gZW50cmUgbGFzIHZhcmlhYmxlcyBtZW5jaW9uYWRhcyBhbnRlcmlvcm1lbnRlLiBFcyBlbnRvbmNlcyBxdWUgZW4gY29uY29yZGFuY2lhIGNvbiBlbCBpbmNpc28gZiwgZWwgaW5jaXNvIGcgbXVlc3RyYSB1bmEgY29ycmVsYWNpw7NuIHBvc2l0aXZhIGVuIGRvbmRlIHNpIHVubyBhdW1lbnRhIGVsIG90cm8gYXVtZW50YXLDoSwgc2luIGVtYmFyZ28gdW5hIGNvcnJlbGFjacOzbiBkZSAwLjE1NiBzZSBwb2Ryw61hIGNvbnNpZGVyYXIgaGFzdGEgY2llcnRvIHB1bnRvIGTDqWJpbCBvIGJhamEsIHBvciBsbyBjdWFsIGVsIGF1bWVudG8gZW4gdW5hIG5vIHNpZ25pZmljYSwgcG9yIGxvIHF1ZSBlbCBhdW1lbnRvIGVuIHVuYSB2YXJpYWJsZSBubyBpbXBsaWNhIG5lY2VzYXJpYW1lbnRlIHVuIGluY3JlbWVudG8gc2lnbmlmaWNhdGl2byBlbiBsYSBvdHJhLiBFc3RvIHNlIHZlIGVuIGxhIGdyw6FmaWNhIGVuIGxvcyBkaXN0aW50b3Mgc2VnbWVudG9zIHF1ZSBlbiBvY2FzaW9uZXMgdGllbmVuIGNhw61kYXMgZW4gc3VzIGluY2xpbmFjaW9uZXMgY29uIHJlc3BlY3RvIGEgbG9zIGFudGVyaW9yZXMgc2VnbWVudG9zLg0KDQoNCg0KDQoNCg==