Segundo Avance Econometría
Grupo 2.3
10/06/2022
UNIVERSIDAD DE EL SALVADOR
FACULTAD DE CIENCIAS ECONÓMICAS
ESCUELA DE ECONOMÍA
ECONOMETRÍA
TEMA DE INVESTIGACIÓN:
“PRINCIPALES DETERMINANTES DEL DESEMPLEO FEMENINO EN EL SALVADOR EN EL 2020”.
DOCENTE:
MSF. Carlos Ademir Pérez Alas.
Integrantes: Carnet Participación
Rebeca Isabel, Gálvez Gonzáles. Gg19017. 100%
Sofía Lissette, Mancía Chacón. Mc17163. 100%
Jacqueline Patricia , Mónico Rogel. Mr15093. 100%
Diana Carolina, Villatoro Romero. Vr18003. 100%
GRUPO:
Gt 03
CIUDAD UNIVERSITARIA, LUNES 13 DE JUNIO DEL 2022 .
1. Introdución
En el Presente trabajo se treta de construir un modelo clásico de regresión lineal múltiple para predecir el nivel de desempleo femenino en El Salvador en el año 2020 con la variable endógena Tasa de desempleo y exógenas edades, nivel educación, salarios y población.
2. Justificación
El desempleo femenino es algo observado en los estudios sobre el salvador en el ámbito del desempleo juvenil de la organización internacional del trabajo con este modelo trataremos de pronosticar el nivel que este aumenta en un año y a variable de las escogidas tiene mayor influencia en ello.
Y esta investigación nos hará ver a que se enfrentan las mujeres en el mercado laboral y por que estas no aumentan y no tienen puestos altos en su vida laboral como igual nos hará ver que variables son de mayor importancia a la hora de obtener un empleo o buscar uno si la paga define en la aceptación de ello en el campo femenino y de hecho si se les ofrece menor paga que a un hombre.3. Objetivos
Objetivo General
Desarrollar un modelo econométrico que permita pronosticar las tasas de desempleo femenina en El Salvador por año.
Objetivos Específicos
Definir las variables a estudiar que más inciden en el modelo econométrico de nuestro fenómeno económico.
Definir la relación más fuerte de la variable con las tasas de desempleo femenina.
Mostrar los datos obtenidos por otras entidades donde basaremos nuestro modelo econométrico para la verificación de las relaciones.
Demostrar y analizar los resultados obtenidos del modelo como se acerca a la realidad y que se espera para los años siguientes para identificar puntos de modificación en el impulso de la absorción de la mano femenina en el mercado laboral.
4. Marco Teórico de referencia
Concepto de tasa de Desempleo
Según Roberto Vasquez Burguiillo “la tasa de desempleo” mide el nivel de desocupacón en relación con la población activa. Es decir, es la parte de la población que esta en edad, condiciones y disposición de trabajar (población activa), no tiene puesto de trabajo.(Economipedia.com)
La tasa de desempleo se refiere a las personas en edad laboral que no tienen empleo, que están dispuestas a trabajar, y que han realizado acciones específicas para encontrar empleo. La aplicación homogénea de esta definición da como resultado estimaciones de tasas de desempleo que son más comparables internacionalmente que las estimaciones basadas en las definiciones nacionales de desempleo. Este indicador mide el número de personas desempleadas como porcentaje de la fuerza laboral y se ajusta de acuerdo con la temporalidad. La fuerza laboral se define como el número total de personas desempleadas más aquellas que cuentan con empleo. Los datos se basan en encuestas laborales (LFS, por sus siglas en inglés).(oecd.org)
Que es la tasa de desempleo en El Salvador
Es un indicador económico que determina el nivel de falta de empleos en una sociedad, en relación con la población que se encuentra económicamente activa.
Contexto Economico y Laboral Pre-pandemia COVID-19
La pandemia del COBID-19 se recibe en El Salvador en un contexto económico frágil. En los últimos 20 años, el país se ha caracterizado por registrar bajos niveles de crecimiento económico (el promedio observado entre 2002 y 2011 fue de 1.9% y entre 2012 y 2019 de 2.3%). Para el 2019 el país cerró con un crecimiento económico del 2.3%.(Proyecciones CEPAL,Banco Mundial y el FMI).
Una estimación preliminar de los empleos en riesgo desde un enfoque sectorial para EL Salvador se tuvo que un 51,4% del total de empleo estuvo en riesgo alto,es decir,alrededor de 1,500,00 empleos,ubicados en los sectores económicos.
Los empleos de las mujeres se vieron afectados por la alta participación femenina en los sectores de más alto riesgo ante la crisis: hogares como empleadores y comercio, hoteles y rstaurantes (87,7% y 59,3% respectivamente).EDUCACIÓN EN LAS MUJERES
La Política de Equidad e Igualdad de Género del Ministerio de Educación tiene por fin educar al pueblo salvadoreño sin discriminación de género, aplicando principios rectores como la igualdad de derechos, la equidad, la no discriminación, la corresponsabilidad, la laicidad y el desarrollo humano social en todo el accionar del MINED, en coherencia con el marco legal y filosófico adoptado. Con la entrada en vigencia de la Política, se busca erradicar las desigualdades entre mujeres y hombres existentes en el sistema educativo nacional, la cual constituye un instrumento normativo orientador para que los servicios, actuaciones, procesos, estructura, organización y funcionamiento de este ministerio permitan avances sustantivos en la construcción de ciudadanía plena, democrática y favorecedora del desarrollo económico y social del país. El Trabajo no remunerado constituye la fuerza de trabajo invertida para la reproducción de la misma, el cuidado y el bienestar familiar, y por lo general es desempeñando en el ámbito del hogar o espacios vinculados a éste.17 Los datos señalan que las mujeres tienen una amplia participación dentro del TNR, el 69.6% de las mujeres y el 5.8% de los hombres en condición de inactividad se dedican a los quehaceres domésticos y obligaciones familiares ; vale señalar que la razón más importante de inactividad de los hombres es que se encuentran estudiando (44.6%), en tanto que para las mujeres es que se dedican al trabajo del hogar (67.9%). Esta situación impone una desventaja a las mujeres cuando ingresan al mercado de trabajo ya que están menos formadas, lo que consecuentemente repercute en menores ingresos o salarios. Integrar la perspectiva de género en la educación significa hacer visibles las desigualdades de género, sociales y educativas entre mujeres y hombres, en el acceso a la educación. Precisamente, el reto consiste en desmontar o desnaturalizar todas aquellas creencias, prácticas y relaciones asimétricas entre mujeres y hombres, que ocurren en el ámbito educativo y tienden a pasar desapercibidas, por cuanto se asumen como parte de la cotidianidad.
La educación constituye una de las estrategias indispensables para construir la igualdad entre mujeres y hombres en todas las esferas de la vida. La educación puede contribuir a aumentar significativamente las posibilidades y opciones de desarrollo personal de unas y otros y, particularmente, de las mujeres, quienes han estado en desventaja. La educación se considera cada vez, en mayor medida, una de las inversiones más efectivas para alcanzar el desarrollo equitativo y sostenible. La continuidad educativa tiene implicaciones positivas para la calidad de vida de las personas. En El Salvador se ha documentado evidencia que demuestra una relación directa entre el nivel educativo de una persona, la probabilidad de tener un empleo, que este sea en el sector formal, y que se perciban ingresos laborales más altos. Sin embargo, la deserción continúa siendo un obstáculo que las políticas públicas no logran superar consistentemente y que, de manera particular, afecta a estudiantes que transitan de noveno grado a bachillerato o que ya se encuentran en educación media. Esto dificulta que algunos salvadoreños tengan acceso al mercado de trabajo o que lo logren en condiciones que promuevan su desarrollo, pudiendo motivar, incluso, migración irregular. Finalmente, es importante hacer conciencia en la población sobre cómo mantenerse estudiando puede contribuir a su desarrollo, en sus lugares de origen, debido a que una mayor escolaridad incrementa la probabilidad de tener éxito en las oportunidades disponibles en el mercado de trabajo.
La cantidad de empleo disponible
La OIT calcula el impacto de la pandemia del COVID-19 en el segundo trimestre 2020 en una reducción del 10.7% de las horas trabajadas a nivel mundial equivalentes a 305 millones de empleos a tiempo completo (48 horas semanales). En el año 2019, la tasa de desempleo en El Salvador fue de 6.3%, con la pandemia del COVID-19 la cifra aumento significativamente en la cantidad de personas desempleadas.
El Salvador a diferencia del resto de paises de Centroamérica la tasa de desempleo de los hombres es mayor que la tasa de desempleo de las mujeres (7.0% y 5.4% respectivamente). La población mas afectada son las personas más jóvenes, de 196,747 personas desocupadas en el país, alrededor del 40.1% se encontraban en el rango de 15 a 24 años. Los jóvenes registran una tasa de desempleo del 13.4% frente a una tasa de 4.6% para las personas entre 25 y 59 años.El desempleo de las personas jóvenes duplica la tasa de desempleo nacional.
Es importante señalar que la economía salvadoreña genera alrededor de 30,000 empleos al año, pero esto es inferior a los 40,000 empleos que se requieren para proporcionar trabajo a quienes ingresan al mercado laboral año con año.Los más vulnerables
Las mujeres son un grupo particularmente importante, a raiz de la amplia labor que desarrolla en los sectores mas afectados como es el sector servicio o por realizar un trabajo de primera línea para hacer frente a la pandemia. En El Salvador, el 79.5% de las mujeres que trabajan lo hacen el el sector terciario. Las mujeres tienen menor acceso a servicios de protección social y soportan una carga laboral.
Para Darity(1995)
Los efectos del canal productivo pueden ser mayores que los del mercado laboral para los países más pobres y con menos servicios públicos de cuidado. Lo opuesto ocurriría en países más ricos. En esta línea, Erturk y Cagatay sistematizan diversos estudios empíricos sobre feminización laboral y siguiendo a Rubery, identifican tres modalidades de inserción laboral de las mujeres:
Una primera modalidad, de tipo procíclico en la que mano de obra de las mujeres se comporta como un ejército de reserva flexible que se incrementa en crecimiento y disminuye en recesión. Una segunda modalidad, segmentada, en la que existen sectores feminizados y el impacto de las recesiones o los auges de la economía en la composición de la fuerza de trabajo (entrada o salida de mujeres), depende de la composición de los sectores y las ocupaciones que acompañan estos ciclos.
La estructura feminizada “protege” a las mujeres de ser las primeras en salir del mercado en situaciones de recesión. En este sentido, hay un comportamiento contra cíclico. Una tercera modalidad que indica que la mano de obra de las mujeres sustituye la mano de obra masculina en contextos de crisis, cuando los principales perceptores pueden estar en situación de desempleo o subempleo.
Igualmente, el mercado puede inclinarse por cooptar personas con menores expectativas de salario, pero que pueden realizar un trabajo similar, con el fin de ahorrar costos en una situación recesiva.
El aumento de la desigualdad económica es un duro golpe para la lucha contra la desigualdad de género y una amenaza para los derechos de las mujeres. El fortalecimiento económico de las mujeres tiene la capacidad potencial de mejorar la vida de muchas de ellas y de contribuir al crecimiento económico.
La brecha entre ricos y pobres es mayor y continúa aumentando. Esto supone un duro golpe para la lucha contra la desigualdad de género, así como una amenaza para los derechos de las mujeres.En 2015 la brecha aumento que ahora 1% más ricos de la población mundial posee más riqueza que la que comparte el resto de la humanidad.
Recientemente, numerosas personalidades han abogado por una mayor participación de las mujeres en la economía mundial. La evidencia disponible muestra que el fortalecimiento económico de las mujeres es importante para la realización de los derechos de las mujeres.
Actualmente, la mitad de la población activa está compuesta por mujeres y sin embargo tan solo generan el 37% del PIB mundial.
Está claro que una participación más equitativa de las mujeres en la economía contribuiría a un mayor crecimiento económico mundial y al fortalecimiento económico de las mujeres.
Sin embargo, Oxfam ha demostrado que la mayoría de las personas que han beneficiado del crecimiento económico en las últimas décadas han sido quienes ya se encontraban en altas distribuciones de ingresos. La desigualdad de género impide a muchas mujeres percibir un salario digno, y limita sus oportunidades y decisiones económicas. Abordar estas desigualdades y avanzar hacia el fortalecimiento económico de las mujeres sería beneficioso no solo para las mujeres sino también para lograr un estímulo más amplio del desarrollo.
El acceso a un trabajo decente y un salario digno es una vía fundamental para salir de la pobreza y para las mujeres es una manera de hacer frente a la desigualdad de género ya que les permite mejorar su poder en la toma de decisiones. La tasa de empleo actual de las mujeres es en casi todos los casos que la de los hombres. Si bien existe diferencias entre distintas regiones del mundo en general, tasa de participación de las mujeres en el mercado laborar lleva estancada desde principios de los años 90. Las mujeres que participan en el mercado de trabajo formal, invariablemente ganan menos que los hombres por lo tanto la brecha salarial es del 24% y en casi todos los países, los salarios de las mujeres representan entre un 70 y un 90% el salario de los hombres.
Aumentar la representación y el poder de decisión de las mujeres, y hacer que las instituciones gubernamentales funciones con transparencia. Para muchas mujeres, tener acceso a un trabajo decente y a un salario digno puede ser una vía fiable para salir de la pobreza y un pilar para su fortalecimiento en otras áreas.Los programas de ajuste estructural y las reformas orientadas al mercado están fuertemente relacionados con el deterioro de la posición relativa de las mujeres en el mercado laboral.
La tasa de desempleo representa diferencias en cuanto al sexo, ya que es mayor entre las mujeres que entre los hombres. En el conjunto de la población de 25 a 64 años, la diferencia es de 3.6 puntos porcentuales y para la población joven es de 2.6puntos. Las diferencias entre sexos más bajas se observan en la población con educación superior. Por niveles educativos, la reducción de la tasa de desempleo en los últimos años presenta diferencias en cuanto a la magnitud de las variaciones, si bien en términos relativo la mejora de la tasa de desempleo es mayor según aumenta el nivel de formación.
Para Erturk y Cagatay sistematizan diversos estudios empíricos sobre feminizacón laboral
La participación femenina en la fuerza laboral se estima para el año 2020 de 5.5% según la Organización Internacional del Trabajo.
Porque es importante la tasa de desempleo
Es una forma de medición del desempleo, calcula cuántas personas, que están en condiciones de tener un empleo y lo están buscando, continúan desempleadas. Además es un indicador sumamente importante para evaluar el desempeño económico de un país.
La noción de tasa de desempleo, como tradicionalmente se la define, constituye una medida de la distancia del sistema económico considerado del equilibrio de pleno empleo. Tal noción recuerda, la idea de que la economía básicamente depende de los mecanismos de ajuste de mercado entre oferta y demanda.
En materia de empleo, ocurre un interesante fenómeno: El Salvador es el único país en que la tasa de desempleo del hombre supera a la de la mujer. Así la tasa de desempleo ha venido descendiendo desde 1991. Esta relativamente baja tasa de desempleo en las mujeres coexiste con una menor tasa de participación femenina que masculina, lo que puede estar relacionado con algún grado de discriminación en el mercado laboral formal y la denomina “división sexual del trabajo”, ya que la ocupación formal femenina se cemtra en las ramas de comercio, restaurantes y hoteles(42.3%), industria manufactura (21%) y hogares con servicio doméstico (10.5%); asimismo, una alta proporción de mujeres colocadas estadísticamente en la Población económicamente Inactiva (PEI) se dedican a oficios del hogar (54.2%) mientras que la proporción de PEI dedicada a estudiar es menor en el caso femenino (32.2%).
A nivel urbano, la mujer evidencia una mayor tasa de ocupación en el sector informal de la economía, el 59.7% esta en este sector de las mujeres ocupadas, además, los salarios en este sector informal suelen ser menores que en el sector formal.
5. Especificación
Planteamiento del fenómeno teórico
Planteamiento del problema
El desempleo femenino es un problema que viene desde hace mucho en la historia salvadoreña al igual y que otros problemas pues la mujer se ve menos envuelta en la vida de empresas se le a renegado a solo ser la ama de casa la que cuida los niños pero eso ha ido cambiando y aun que no estamos en una igualdad de puestos y de oportunidades cada vez hay más mujeres preparadas para una vida laboral en esta investigación nos planteamos el problema de que si estas mujeres preparadas cuentan con un puesto laboral si están activas económicamente o inactivas en su momento y la preparación que estas tienen o cuentan hasta el momento y se desea prever el nivel de desempleo para el año 2020 y por consiguiente con este modelo bree ver le crecimiento anual de este y ver que variables inciden más en el desarrollo laboral de las mujeres y que medidas se podrían tomar.
Definición de la Variable Endógena
Tasa de desempleo
Variable cuantitativa discreta que registra la cantidad de personas desempleadas en la región, por la población económicamente activa, es decir por aquellas personas que tienen empleo o lo están buscando activamente.
Para calcular la Tasa de desempleo:
TD = Número de empleados/ Población económicamente activa*100
La forma en la que se obtuvo los datos para la tasa de desempleo fue calcular el número de desempleados como porcentaje del total de la población activa o población económicamente activa que es la suma del número de personas empleadas y del número de personas desempleadas.La información fue obtenida …..
La Población Económicamente Inactiva (PEI).
Es el grupo de personas en edad de trabajar que no participan en el mercado laboral. Es decir, que no realizan ni buscan alguna actividad económica. La PEI está conformada por los estudiantes, jubilados o pensionistas, rentistas, personas dedicadas a los quehaceres del hogar, ancianos, etc. El común denominador es pues el no participar en ninguna actividad generadora de bienes o servicios a los que se les imputa valor agregado.
La Población Económicamente Inactiva está conformada por la parte de la población en edad de trabajar (PET) que no busca trabajo de forma activa y está compuesta por el 37.8% de la población nacional siendo el 76% mujeres (DIGESTYC, 2016). Esta inactividad puede ser por diversos factores como el estudio, enfermedades, jubilaciones, obligaciones familiares, trabajo no remunerado en el hogar, etc. Sin embargo, algunas de estas razones que mantienen en esta categoría a la población son fruto de las relaciones de género de la sociedad salvadoreña, puesto que pueden ser vinculadas al sexo, como por ejemplo, la educación, obligaciones familiares, el quehacer doméstico, el no saber trabajar o recibir capacitaciones son razones de las cuales las mujeres presentan más limitaciones que los hombres ya sea para la inserción como para la estabilidad laboral.
Cabe destacar que la educación es un motivo para las mujeres de no insertarse al mercado laboral; esto es el nivel de preparación sostiene el enfoque de capital humano. La educación brinda a los hombres más oportunidades de acceso al mercado laboral y una permanencia estable; pero no son dependientes de conseguir cierto nivel de estudio para lograr su inserción. Mientras que para las mujeres si su nivel de educación es nulo o bajo su participación en la sociedad gira en torno al cuidado y el quehacer doméstico. (UCA, octubre 2017)
Tipo de actividad
En el trimestre móvil noviembre 2020 - enero 2021, la poblacióneconómicamente inactiva dedicada a oficios del hogar se ubicó en 45.7%. En enero 2020, seguido de la población que se dedicó a estudiar 32.5%. Las mujeres inactivas en su mayoría se dedicaron a oficios del hogar 63.5%, seguido por las que se dedicaron a estudiar 23.2%, en el periodo de 2020. (Boletin,2020)
Definición de la Variables Exógenas
Rango de Edad
Variable cuantitativa continua que registra el rango de edades medidos en años de la población femenina desempleada.
Nivel de educación
Variable cualitativa ordenables que registra el nivel de educación.
Salario
Variable cuantitativa discreta registra el valor monetario del salario que se han registrado. La información fue obtenida de la página de Dirección General de Estadística y Censos (Digestyc).
Población de Mujeres desempleadas
Variable cuantitativa continua registra la cantidad de mujeres que estuvieron desempleadas en el año 2020. Información en la página del banco mundial.
Regresores
Tasa de crecimiento
Esta tiene una incidencia directa ya que el crecimiento garantiza la disminución del desempleo.
PIB
El PIB es el mayor balance que registra el crecimiento y el estancamiento en este se refleja la producción y el desempleo si este crece el desempleo se reduce al igual que el anterior. Existe una relación consistente entre el crecimiento de la economía (evolución del PIB) y la variación en la tasa de desempleo: si el producto crece el desempleo disminuye en una proporción similar.
Inversión
Aumento de inversión disminuye el desempleo.
Producción
El aumento de esta genera una disminución directa de la tasa de desempleo como si esta cae incrementa la tasa de desempleo al igual que con los otros regresores.
6. Relación funcional entre las variables
Relación entre la tasa de desempleo y el rango de edad
Existe una relación indirecta entre la tasa de desempleo y el rango de edades. Si aumenta la tasa de desempleo el rango de edades de mujeres desempleadas se mantiene en sus niveles.
Relación entre la tasa de desempleo y Nivel de educación
El nivel de educación es el nivel de educación más alto. Existe una relación indirecta entre las dos variables. Si el grado de educación es más alto; es decir, las mujeres podrán obtener más oportunidades de empleo en el mercado laboral, la tasa de desempleo decendera. En caso contrario, si el nivel de educación es bajo la tasa de desempleo aumenta.
Relación entre la tasa de desempleo y el Salario
Salario es la remuneración recibida por una persona como pago por su trabajo. Existe una relación directa entre la tasa de desempleo y el Salario. Mientras mayor sea el salario mayor es la tasa de desempleo.
Relación entre la tasa de desempleo y Población de Mujeres desempleadas
Existe una relación directa entre la tasa de desempleo y la Población de Mujeres desempleadas. A medida que aumenta la población desempleada mayor será la tasa de desempleo, asimismo al disminuir la poblacón desempleada la tasa de desempleo seria menor.
7. Formulación de Hipótesis
- Hipótesis General del Modelo
Ho: No hay evidencia de una relación lineal entre la Tasa de desempleo y todas sus variables exógenas.
H1: Hay evidencia de una relación lineal entre la Tasa de desempleo y todas sus variables exógenas.
- Hipótesis Especificas
Nivel de Educación.
Ho: La variable Educación no tiene una relación lineal parcial con la variable Tasa de desempleo.
H1: La variable Edcación tiene una relación lineal parcial con la variable Tasa de desempleo.
La Población
Ho: La variable de la Población no tiene una relación lineal parcial con la variable Tasa de desempleo.
H1: La variable de la Población tiene una relación lineal parcial con la variable Tasa de desempleo.
Salario
Ho: La variable Salario no tiene una relación lineal parcial con la variable Tasa de desempleo
H1: La variable Salario tiene una relación lineal parcial con la variable Tasa de desempleo.
Edad
Ho: La variable Edad no tiene una relación lineal parcial con la variable Tasa de desempleo
H1: La variable Edad tiene una relación lineal parcial con la variable Tasa de desempleo.
8. Especificacón de modelo matemático y estadístico.
Modelo matemático
Para determinar la proyeccion de desempleo enla mujeres de el salvador en el año 2020, su interaccion entre las variables y el resultado de la prediccion, se muestra como emplear un modelo lineal con una base de datos limitada, este modelo permite estimar la relacion lineal entre la tasa de desempleo y la educacion, el sexo, salrio promedio,edad, poblacion para esto se ha tomado el año 2020 para la realizacion.
Y = β0 + β1X1 + β2X2 + β3X3 + β4X4 + β5 X5 + β6X6
Donde:
Y = Tasa de desempleo
X1 = Sexo
X2 = Población
X3 = Nivel de Educación
X4 = Edad
X5 = Salarios
X6 = Error
Por lo tanto:
Y = β0 + β1(Sexo) + β2(Población) + β3(Nivel_de_Educación) + β4(Edad) + β5(Salarios)+ β6(Error)
Esperando que las variable X1, X2, X3, X4 y X5.
Modelo estadístico
Especificación del modelo estadístico.
Y = β0 + β1X1 + β2X2 + β3X3 + β4X4 + β5 X5 + ε
El error incluye todas las variables omitidas dentro del análisisetc.
9. Evidencia Empirica
library(readxl)
Base_de_datos_1 <- read_excel("~/Econometria/Base_de_datos_1.xlsx")
options(scipen = 999999)library(dplyr)
glimpse(Base_de_datos_1)## Rows: 200
## Columns: 6
## $ td_tasa_de_desempleo <dbl> 0.066, 0.066, 0.066, 0.066, 0.066, 0.066, 0.066, …
## $ `0_sexo` <chr> "Mujer", "Mujer", "Mujer", "Mujer", "Mujer", "Muj…
## $ a_poblacion <chr> "0,934", "0,934", "0,934", "0,534", "0,934", "0,5…
## $ pm_promedio_salarios <dbl> 230.78, 230.78, 230.78, 0.00, 304.80, 0.00, 304.8…
## $ n_educacion <chr> "(1° a 9°)", "(1° a 9°)", "(1° a 9°)", "(1° a 9°)…
## $ c_edad <dbl> 25, 25, 30, 35, 40, 54, 30, 24, 18, 35, 35, 36, 3…##Base de datos 200 observaciones
str(Base_de_datos_1)## tibble [200 × 6] (S3: tbl_df/tbl/data.frame)
## $ td_tasa_de_desempleo: num [1:200] 0.066 0.066 0.066 0.066 0.066 0.066 0.066 0.066 0.066 0.066 ...
## $ 0_sexo : chr [1:200] "Mujer" "Mujer" "Mujer" "Mujer" ...
## $ a_poblacion : chr [1:200] "0,934" "0,934" "0,934" "0,534" ...
## $ pm_promedio_salarios: num [1:200] 231 231 231 0 305 ...
## $ n_educacion : chr [1:200] "(1° a 9°)" "(1° a 9°)" "(1° a 9°)" "(1° a 9°)" ...
## $ c_edad : num [1:200] 25 25 30 35 40 54 30 24 18 35 ...Las 200 observaciones el sexo es solo de las mujeres las cuales fueron el enfoque dirrecto de la investigación la tasa de desempleo es constante puesto que cada una lucha con ella el rango de edad de 16 a 39 y de 40 a 59 y de 60 a más Población economícamente activa con un promedio de salarios y el nivel de educación en un rango de primero a noveno (1°- 9°) que es educación básica y de (10° - 12°) educación media luego educación superior.
Prueba de Normalidad
library(stargazer)
options(scipen = 999999)
modelo_desempleo_mujeres<-lm(formula = td_tasa_de_desempleo~a_poblacion
+pm_promedio_salarios+n_educacion+c_edad,data = Base_de_datos_1)
stargazer(modelo_desempleo_mujeres,title = "Modelo Desempleo en Mujeres"
,type = "html",digits = 8)| Dependent variable: | |
| td_tasa_de_desempleo | |
| a_poblacion0,934 | -0.00000000 |
| (0.00000000) | |
| pm_promedio_salarios | 0.00000000 |
| (0.00000000) | |
| n_educacion(1° a 3°) | 0.00000000 |
| (0.00000000) | |
| n_educacion(1° a 9°) | -0.00000000 |
| (0.00000000) | |
| n_educacion(10° a 13°) | 0.00000000 |
| (0.00000000) | |
| n_educacionBásica (1° a 9°) | 0.00000000 |
| (0.00000000) | |
| n_educacionMedia (10° a 13°) | 0.00000000 |
| (0.00000000) | |
| n_educacionNinguno | 0.00000000 |
| (0.00000000) | |
| n_educacionSuperior universitario (1° a 15°) | 0.00000000 |
| (0.00000000) | |
| c_edad | 0.00000000 |
| (0.00000000) | |
| Constant | 0.06600000*** |
| (0.00000000) | |
| Observations | 200 |
| R2 | 0.50159680 |
| Adjusted R2 | 0.47522620 |
| Residual Std. Error | 0.00000000 (df = 189) |
| F Statistic | 19.02110000*** (df = 10; 189) |
| Note: | p<0.1; p<0.05; p<0.01 |
10. Verificación de supuestos del MCRLM
Prueba de Jarque Bera
library(stargazer)
library(normtest)
jb.norm.test(modelo_desempleo_mujeres$residuals)##
## Jarque-Bera test for normality
##
## data: modelo_desempleo_mujeres$residuals
## JB = 305102, p-value < 0.00000000000000022Asumiendo un nivel de significancia del 5%, al aplicar la prueba JB, por el método del P se tiene que 0.00000000000000022 < 0.05, por lo que se rechaza Ho. y se aporta evidencia de que los residuos no siguen una distribución normal.
# Graficando
library(stargazer)
library(fastGraph)
gl<-2
VC<-qchisq(p = 0.95, df=gl)
prueba_JB<-jb.norm.test(modelo_desempleo_mujeres$residuals)
print(prueba_JB)##
## Jarque-Bera test for normality
##
## data: modelo_desempleo_mujeres$residuals
## JB = 305102, p-value < 0.00000000000000022Prueba de Kolmogorov-Smirnov
library(stargazer)
library(nortest)
lillie.test(modelo_desempleo_mujeres$residuals)##
## Lilliefors (Kolmogorov-Smirnov) normality test
##
## data: modelo_desempleo_mujeres$residuals
## D = 0.41031, p-value < 0.00000000000000022Para un nivel de significancia del 5%, al aplicar la prueba KS, se tiene, por el método del P que 0.00000000000000022 < 0.05, por lo que se rechaza Ho , esto aporta evidencia de que los residuos no siguen una distribución normal.
qqnorm(modelo_desempleo_mujeres$residuals)
qqline(modelo_desempleo_mujeres$residuals)
hist(modelo_desempleo_mujeres$residuals,main = "Histograma de los residuos",xlab = "R
esiduos",ylab = "frecuencia")
Prueba de Shapiro-Wilk
library(stargazer)
shapiro.test(modelo_desempleo_mujeres$residuals)##
## Shapiro-Wilk normality test
##
## data: modelo_desempleo_mujeres$residuals
## W = 0.10437, p-value < 0.00000000000000022Para un nivel de significancia del 5%, al aplicar la prueba SW, se tiene, por el método del P que 0.00000000000000022 < 0.05, por lo que se rechaza H , esto aporta evidencia de que los residuos no siguen unadistribución normal.
PRUEBA DE MULTICOLINEALIDAD
Indice de Condición
#Calcular matriz X'X
library(stargazer)
X_mat<-model.matrix(modelo_desempleo_mujeres)
stargazer(head(X_mat,n=6),type= "html")| (Intercept) | a_poblacion0,934 | pm_promedio_salarios | n_educacion(1° a 3°) | n_educacion(1° a 9°) | n_educacion(10° a 13°) | n_educacionBásica (1° a 9°) | n_educacionMedia (10° a 13°) | n_educacionNinguno | n_educacionSuperior universitario (1° a 15°) | c_edad | |
| 1 | 1 | 1 | 230.780 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 25 |
| 2 | 1 | 1 | 230.780 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 25 |
| 3 | 1 | 1 | 230.780 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 30 |
| 4 | 1 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 35 |
| 5 | 1 | 1 | 304.800 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 40 |
| 6 | 1 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 54 |
XX_matrix<-t(X_mat)%*%X_mat
stargazer(XX_matrix,type = "html")| (Intercept) | a_poblacion0,934 | pm_promedio_salarios | n_educacion(1° a 3°) | n_educacion(1° a 9°) | n_educacion(10° a 13°) | n_educacionBásica (1° a 9°) | n_educacionMedia (10° a 13°) | n_educacionNinguno | n_educacionSuperior universitario (1° a 15°) | c_edad | |
| (Intercept) | 200 | 124 | 39,100.360 | 3 | 87 | 44 | 32 | 11 | 5 | 2 | 6,912 |
| a_poblacion0,934 | 124 | 124 | 37,798.420 | 2 | 49 | 30 | 19 | 6 | 4 | 2 | 4,363 |
| pm_promedio_salarios | 39,100.360 | 37,798.420 | 14,080,896.000 | 1,281.180 | 11,727.440 | 9,005.180 | 4,846.380 | 2,438.400 | 833.520 | 1,281.180 | 1,387,591.000 |
| n_educacion(1° a 3°) | 3 | 2 | 1,281.180 | 3 | 0 | 0 | 0 | 0 | 0 | 0 | 109 |
| n_educacion(1° a 9°) | 87 | 49 | 11,727.440 | 0 | 87 | 0 | 0 | 0 | 0 | 0 | 2,812 |
| n_educacion(10° a 13°) | 44 | 30 | 9,005.180 | 0 | 0 | 44 | 0 | 0 | 0 | 0 | 1,468 |
| n_educacionBásica (1° a 9°) | 32 | 19 | 4,846.380 | 0 | 0 | 0 | 32 | 0 | 0 | 0 | 1,252 |
| n_educacionMedia (10° a 13°) | 11 | 6 | 2,438.400 | 0 | 0 | 0 | 0 | 11 | 0 | 0 | 393 |
| n_educacionNinguno | 5 | 4 | 833.520 | 0 | 0 | 0 | 0 | 0 | 5 | 0 | 183 |
| n_educacionSuperior universitario (1° a 15°) | 2 | 2 | 1,281.180 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 65 |
| c_edad | 6,912 | 4,363 | 1,387,591.000 | 109 | 2,812 | 1,468 | 1,252 | 393 | 183 | 65 | 261,512 |
Cálculo de la matriz de normalización
library(stargazer)
options(scipen = 99999)
Sn<-solve(diag(sqrt(diag(XX_matrix))))
stargazer(Sn,type = "html")| 0.071 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0.090 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0.0003 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0.577 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0.107 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0.151 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0 | 0.177 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0.302 | 0 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0.447 | 0 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0.707 | 0 |
| 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0.002 |
#X'X Normalizada
library(stargazer)
XX_norm<-(Sn%*%XX_matrix)%*%Sn
stargazer(XX_norm,type = "html",digits = 4)| 1 | 0.7874 | 0.7368 | 0.1225 | 0.6595 | 0.4690 | 0.4000 | 0.2345 | 0.1581 | 0.1000 | 0.9557 |
| 0.7874 | 1 | 0.9046 | 0.1037 | 0.4718 | 0.4061 | 0.3016 | 0.1625 | 0.1606 | 0.1270 | 0.7662 |
| 0.7368 | 0.9046 | 1 | 0.1971 | 0.3351 | 0.3618 | 0.2283 | 0.1959 | 0.0993 | 0.2414 | 0.7231 |
| 0.1225 | 0.1037 | 0.1971 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0.1231 |
| 0.6595 | 0.4718 | 0.3351 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0.5895 |
| 0.4690 | 0.4061 | 0.3618 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0.4328 |
| 0.4000 | 0.3016 | 0.2283 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0.4328 |
| 0.2345 | 0.1625 | 0.1959 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0.2317 |
| 0.1581 | 0.1606 | 0.0993 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0.1600 |
| 0.1000 | 0.1270 | 0.2414 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0.0899 |
| 0.9557 | 0.7662 | 0.7231 | 0.1231 | 0.5895 | 0.4328 | 0.4328 | 0.2317 | 0.1600 | 0.0899 | 1 |
#Autovalores de X'X Normalizada
library(stargazer)
#autovalores
lambdas<-eigen(XX_norm,symmetric = TRUE)
stargazer(lambdas$values,type = "html")| 4.251 | 1.074 | 1.005 | 1.002 | 1 | 1 | 1 | 0.491 | 0.115 | 0.051 | 0.011 |
K<-sqrt(max(lambdas$values)/min(lambdas$values))
print(K)## [1] 19.28082Interpretación: Puesto que el índice de Condición es de 19.28082, K < 20, se detecta un nivel de colinealidad leve.
Utilizando la librería “mctest”
library(mctest)
eigprop(mod = modelo_desempleo_mujeres)##
## Call:
## eigprop(mod = modelo_desempleo_mujeres)
##
## Eigenvalues CI (Intercept) a_poblacion0,934 pm_promedio_salarios
## 1 4.2510 1.0000 0.0011 0.0036 0.0026
## 2 1.0739 1.9896 0.0003 0.0003 0.0042
## 3 1.0046 2.0571 0.0000 0.0003 0.0000
## 4 1.0021 2.0596 0.0000 0.0000 0.0000
## 5 1.0000 2.0618 0.0000 0.0000 0.0000
## 6 1.0000 2.0618 0.0000 0.0000 0.0000
## 7 1.0000 2.0618 0.0000 0.0000 0.0000
## 8 0.4912 2.9417 0.0031 0.0397 0.0401
## 9 0.1153 6.0729 0.0028 0.1977 0.0735
## 10 0.0505 9.1738 0.0694 0.3017 0.2451
## 11 0.0114 19.2808 0.9234 0.4567 0.6346
## n_educacion(1° a 3°) n_educacion(1° a 9°) n_educacion(10° a 13°)
## 1 0.0011 0.0012 0.0017
## 2 0.1268 0.0099 0.0051
## 3 0.1176 0.0007 0.0274
## 4 0.0087 0.0204 0.0016
## 5 0.0404 0.0064 0.0602
## 6 0.0321 0.0014 0.0000
## 7 0.4565 0.0003 0.0045
## 8 0.0621 0.0045 0.0307
## 9 0.0913 0.0545 0.0684
## 10 0.0047 0.0331 0.0266
## 11 0.0588 0.8677 0.7738
## n_educacionBásica (1° a 9°) n_educacionMedia (10° a 13°) n_educacionNinguno
## 1 0.0014 0.0014 0.0008
## 2 0.0107 0.0036 0.0001
## 3 0.0353 0.1121 0.0942
## 4 0.0707 0.0102 0.1128
## 5 0.0001 0.0097 0.1698
## 6 0.0158 0.2728 0.1065
## 7 0.0046 0.0100 0.0195
## 8 0.0046 0.0162 0.0110
## 9 0.0809 0.0988 0.0191
## 10 0.0664 0.0098 0.0419
## 11 0.7094 0.4555 0.4242
## n_educacionSuperior universitario (1° a 15°) c_edad
## 1 0.0012 0.0040
## 2 0.3671 0.0011
## 3 0.0021 0.0001
## 4 0.0004 0.0001
## 5 0.0657 0.0000
## 6 0.0312 0.0000
## 7 0.2880 0.0000
## 8 0.1494 0.0107
## 9 0.0644 0.2096
## 10 0.0254 0.6014
## 11 0.0052 0.1732
##
## ===============================
## Row 11==> pm_promedio_salarios, proportion 0.634553 >= 0.50
## Row 11==> n_educacion(1° a 9°), proportion 0.867657 >= 0.50
## Row 11==> n_educacion(10° a 13°), proportion 0.773826 >= 0.50
## Row 11==> n_educacionBásica (1° a 9°), proportion 0.709403 >= 0.50
## Row 10==> c_edad, proportion 0.601356 >= 0.50CALCULO DE R
Normalizar la matriz X
library(stargazer)
Zn<-scale(X_mat[,-1])
stargazer(head(Zn,n=6),type = "html")| a_poblacion0,934 | pm_promedio_salarios | n_educacion(1° a 3°) | n_educacion(1° a 9°) | n_educacion(10° a 13°) | n_educacionBásica (1° a 9°) | n_educacionMedia (10° a 13°) | n_educacionNinguno | n_educacionSuperior universitario (1° a 15°) | c_edad | |
| 1 | 0.781 | 0.196 | -0.123 | 1.137 | -0.530 | -0.435 | -0.241 | -0.160 | -0.100 | -0.896 |
| 2 | 0.781 | 0.196 | -0.123 | 1.137 | -0.530 | -0.435 | -0.241 | -0.160 | -0.100 | -0.896 |
| 3 | 0.781 | 0.196 | -0.123 | 1.137 | -0.530 | -0.435 | -0.241 | -0.160 | -0.100 | -0.428 |
| 4 | -1.274 | -1.087 | -0.123 | 1.137 | -0.530 | -0.435 | -0.241 | -0.160 | -0.100 | 0.041 |
| 5 | 0.781 | 0.608 | -0.123 | -0.875 | 1.878 | -0.435 | -0.241 | -0.160 | -0.100 | 0.510 |
| 6 | -1.274 | -1.087 | -0.123 | -0.875 | 1.878 | -0.435 | -0.241 | -0.160 | -0.100 | 1.823 |
Calcular la matriz R
library(stargazer)
n<-nrow(Zn)
R<-(t(Zn)%*%Zn)*(1/(n-1))
stargazer(R,type = "html",digits = 4)| a_poblacion0,934 | pm_promedio_salarios | n_educacion(1° a 3°) | n_educacion(1° a 9°) | n_educacion(10° a 13°) | n_educacionBásica (1° a 9°) | n_educacionMedia (10° a 13°) | n_educacionNinguno | n_educacionSuperior universitario (1° a 15°) | c_edad | |
| a_poblacion0,934 | 1 | 0.7784 | 0.0119 | -0.1026 | 0.0676 | -0.0236 | -0.0371 | 0.0594 | 0.0787 | 0.0751 |
| pm_promedio_salarios | 0.7784 | 1 | 0.1593 | -0.2969 | 0.0271 | -0.1072 | 0.0352 | -0.0257 | 0.2494 | 0.0951 |
| n_educacion(1° a 3°) | 0.0119 | 0.1593 | 1 | -0.1083 | -0.0655 | -0.0539 | -0.0298 | -0.0198 | -0.0124 | 0.0206 |
| n_educacion(1° a 9°) | -0.1026 | -0.2969 | -0.1083 | 1 | -0.4660 | -0.3829 | -0.2117 | -0.1405 | -0.0882 | -0.1846 |
| n_educacion(10° a 13°) | 0.0676 | 0.0271 | -0.0655 | -0.4660 | 1 | -0.2318 | -0.1281 | -0.0850 | -0.0534 | -0.0597 |
| n_educacionBásica (1° a 9°) | -0.0236 | -0.1072 | -0.0539 | -0.3829 | -0.2318 | 1 | -0.1053 | -0.0699 | -0.0439 | 0.1873 |
| n_educacionMedia (10° a 13°) | -0.0371 | 0.0352 | -0.0298 | -0.2117 | -0.1281 | -0.1053 | 1 | -0.0386 | -0.0242 | 0.0265 |
| n_educacionNinguno | 0.0594 | -0.0257 | -0.0198 | -0.1405 | -0.0850 | -0.0699 | -0.0386 | 1 | -0.0161 | 0.0307 |
| n_educacionSuperior universitario (1° a 15°) | 0.0787 | 0.2494 | -0.0124 | -0.0882 | -0.0534 | -0.0439 | -0.0242 | -0.0161 | 1 | -0.0195 |
| c_edad | 0.0751 | 0.0951 | 0.0206 | -0.1846 | -0.0597 | 0.1873 | 0.0265 | 0.0307 | -0.0195 | 1 |
determinante_R<-det(R)
print(determinante_R)## [1] 0.03005787Prueba de Farrer Glauber
m<-ncol(X_mat[,-1])
n<-nrow(X_mat[,-1])
chi_FG<--(n-1-(2*m+5)/6)*log(determinante_R)
print(chi_FG)## [1] 682.8189#Valor critico
gl<-m*(m-1)/2
VC<-qchisq(p = 0.95,df = gl)
print(VC)## [1] 61.65623Interpretación: Como chi_FG ≥ VC se rechaza H0 , por lo tanto hay evidencia de colinealidad en los regresores.
Librería Psych
library(psych)
FG_test<-cortest.bartlett(X_mat[,-1])
print(FG_test)## $chisq
## [1] 682.8189
##
## $p.value
## [1] 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006986509
##
## $df
## [1] 45Graficando los resultados
#Graficando los resultados
library(fastGraph)
shadeDist(xshade = FG_test$chisq, ddist = "dchisq", parm1 = FG_test$df,lower.tail =
FALSE, sub = paste("VC:", VC, "FG:", FG_test$chisq))
Factores Inflacionarios de la Varianza
#Matriz de Correlación de los regresores del modelo
print(R)## a_poblacion0,934
## a_poblacion0,934 1.00000000
## pm_promedio_salarios 0.77840107
## n_educacion(1° a 3°) 0.01186442
## n_educacion(1° a 9°) -0.10264563
## n_educacion(10° a 13°) 0.06763829
## n_educacionBásica (1° a 9°) -0.02360272
## n_educacionMedia (10° a 13°) -0.03705092
## n_educacionNinguno 0.05938169
## n_educacionSuperior universitario (1° a 15°) 0.07868254
## c_edad 0.07510371
## pm_promedio_salarios
## a_poblacion0,934 0.77840107
## pm_promedio_salarios 1.00000000
## n_educacion(1° a 3°) 0.15928353
## n_educacion(1° a 9°) -0.29690556
## n_educacion(10° a 13°) 0.02712116
## n_educacionBásica (1° a 9°) -0.10717003
## n_educacionMedia (10° a 13°) 0.03519393
## n_educacionNinguno -0.02570456
## n_educacionSuperior universitario (1° a 15°) 0.24935133
## c_edad 0.09505894
## n_educacion(1° a 3°)
## a_poblacion0,934 0.01186442
## pm_promedio_salarios 0.15928353
## n_educacion(1° a 3°) 1.00000000
## n_educacion(1° a 9°) -0.10827992
## n_educacion(10° a 13°) -0.06553775
## n_educacionBásica (1° a 9°) -0.05385771
## n_educacionMedia (10° a 13°) -0.02977097
## n_educacionNinguno -0.01976038
## n_educacionSuperior universitario (1° a 15°) -0.01240252
## c_edad 0.02057118
## n_educacion(1° a 9°)
## a_poblacion0,934 -0.10264563
## pm_promedio_salarios -0.29690556
## n_educacion(1° a 3°) -0.10827992
## n_educacion(1° a 9°) 1.00000000
## n_educacion(10° a 13°) -0.46599842
## n_educacionBásica (1° a 9°) -0.38294884
## n_educacionMedia (10° a 13°) -0.21168293
## n_educacionNinguno -0.14050381
## n_educacionSuperior universitario (1° a 15°) -0.08818664
## c_edad -0.18460904
## n_educacion(10° a 13°)
## a_poblacion0,934 0.06763829
## pm_promedio_salarios 0.02712116
## n_educacion(1° a 3°) -0.06553775
## n_educacion(1° a 9°) -0.46599842
## n_educacion(10° a 13°) 1.00000000
## n_educacionBásica (1° a 9°) -0.23178450
## n_educacionMedia (10° a 13°) -0.12812370
## n_educacionNinguno -0.08504166
## n_educacionSuperior universitario (1° a 15°) -0.05337605
## c_edad -0.05972670
## n_educacionBásica (1° a 9°)
## a_poblacion0,934 -0.02360272
## pm_promedio_salarios -0.10717003
## n_educacion(1° a 3°) -0.05385771
## n_educacion(1° a 9°) -0.38294884
## n_educacion(10° a 13°) -0.23178450
## n_educacionBásica (1° a 9°) 1.00000000
## n_educacionMedia (10° a 13°) -0.10528968
## n_educacionNinguno -0.06988566
## n_educacionSuperior universitario (1° a 15°) -0.04386345
## c_edad 0.18728473
## n_educacionMedia (10° a 13°)
## a_poblacion0,934 -0.03705092
## pm_promedio_salarios 0.03519393
## n_educacion(1° a 3°) -0.02977097
## n_educacion(1° a 9°) -0.21168293
## n_educacion(10° a 13°) -0.12812370
## n_educacionBásica (1° a 9°) -0.10528968
## n_educacionMedia (10° a 13°) 1.00000000
## n_educacionNinguno -0.03863075
## n_educacionSuperior universitario (1° a 15°) -0.02424643
## c_edad 0.02647153
## n_educacionNinguno
## a_poblacion0,934 0.05938169
## pm_promedio_salarios -0.02570456
## n_educacion(1° a 3°) -0.01976038
## n_educacion(1° a 9°) -0.14050381
## n_educacion(10° a 13°) -0.08504166
## n_educacionBásica (1° a 9°) -0.06988566
## n_educacionMedia (10° a 13°) -0.03863075
## n_educacionNinguno 1.00000000
## n_educacionSuperior universitario (1° a 15°) -0.01609348
## c_edad 0.03070712
## n_educacionSuperior universitario (1° a 15°)
## a_poblacion0,934 0.07868254
## pm_promedio_salarios 0.24935133
## n_educacion(1° a 3°) -0.01240252
## n_educacion(1° a 9°) -0.08818664
## n_educacion(10° a 13°) -0.05337605
## n_educacionBásica (1° a 9°) -0.04386345
## n_educacionMedia (10° a 13°) -0.02424643
## n_educacionNinguno -0.01609348
## n_educacionSuperior universitario (1° a 15°) 1.00000000
## c_edad -0.01946215
## c_edad
## a_poblacion0,934 0.07510371
## pm_promedio_salarios 0.09505894
## n_educacion(1° a 3°) 0.02057118
## n_educacion(1° a 9°) -0.18460904
## n_educacion(10° a 13°) -0.05972670
## n_educacionBásica (1° a 9°) 0.18728473
## n_educacionMedia (10° a 13°) 0.02647153
## n_educacionNinguno 0.03070712
## n_educacionSuperior universitario (1° a 15°) -0.01946215
## c_edad 1.00000000inversa_R<-solve(R)
print(inversa_R)## a_poblacion0,934
## a_poblacion0,934 4.82884039
## pm_promedio_salarios -5.23230299
## n_educacion(1° a 3°) -0.09455114
## n_educacion(1° a 9°) -4.13395971
## n_educacion(10° a 13°) -3.09184229
## n_educacionBásica (1° a 9°) -2.94936657
## n_educacionMedia (10° a 13°) -1.27036472
## n_educacionNinguno -1.51339290
## n_educacionSuperior universitario (1° a 15°) 0.20604640
## c_edad -0.17469163
## pm_promedio_salarios
## a_poblacion0,934 -5.2323030
## pm_promedio_salarios 7.2101764
## n_educacion(1° a 3°) 0.1566709
## n_educacion(1° a 9°) 5.9367438
## n_educacion(10° a 13°) 4.3211427
## n_educacionBásica (1° a 9°) 4.2312490
## n_educacionMedia (10° a 13°) 1.8797722
## n_educacionNinguno 2.0587449
## n_educacionSuperior universitario (1° a 15°) -0.3628987
## c_edad 0.1459252
## n_educacion(1° a 3°)
## a_poblacion0,934 -0.09455114
## pm_promedio_salarios 0.15667088
## n_educacion(1° a 3°) 1.17474613
## n_educacion(1° a 9°) 0.89777577
## n_educacion(10° a 13°) 0.73286844
## n_educacionBásica (1° a 9°) 0.65153482
## n_educacionMedia (10° a 13°) 0.39190186
## n_educacionNinguno 0.28311447
## n_educacionSuperior universitario (1° a 15°) 0.14463418
## c_edad 0.03927609
## n_educacion(1° a 9°)
## a_poblacion0,934 -4.1339597
## pm_promedio_salarios 5.9367438
## n_educacion(1° a 3°) 0.8977758
## n_educacion(1° a 9°) 8.6710340
## n_educacion(10° a 13°) 6.2152052
## n_educacionBásica (1° a 9°) 5.7792945
## n_educacionMedia (10° a 13°) 3.0040277
## n_educacionNinguno 2.6737611
## n_educacionSuperior universitario (1° a 15°) 0.3308425
## c_edad 0.4620723
## n_educacion(10° a 13°)
## a_poblacion0,934 -3.0918423
## pm_promedio_salarios 4.3211427
## n_educacion(1° a 3°) 0.7328684
## n_educacion(1° a 9°) 6.2152052
## n_educacion(10° a 13°) 5.5755188
## n_educacionBásica (1° a 9°) 4.4414810
## n_educacionMedia (10° a 13°) 2.3307435
## n_educacionNinguno 2.0516851
## n_educacionSuperior universitario (1° a 15°) 0.3114728
## c_edad 0.3363007
## n_educacionBásica (1° a 9°)
## a_poblacion0,934 -2.94936657
## pm_promedio_salarios 4.23124901
## n_educacion(1° a 3°) 0.65153482
## n_educacion(1° a 9°) 5.77929450
## n_educacion(10° a 13°) 4.44148104
## n_educacionBásica (1° a 9°) 5.01739425
## n_educacionMedia (10° a 13°) 2.15960469
## n_educacionNinguno 1.92171607
## n_educacionSuperior universitario (1° a 15°) 0.23686184
## c_edad 0.08682259
## n_educacionMedia (10° a 13°)
## a_poblacion0,934 -1.2703647
## pm_promedio_salarios 1.8797722
## n_educacion(1° a 3°) 0.3919019
## n_educacion(1° a 9°) 3.0040277
## n_educacion(10° a 13°) 2.3307435
## n_educacionBásica (1° a 9°) 2.1596047
## n_educacionMedia (10° a 13°) 2.0998563
## n_educacionNinguno 0.9833170
## n_educacionSuperior universitario (1° a 15°) 0.1891353
## c_edad 0.1158751
## n_educacionNinguno
## a_poblacion0,934 -1.51339290
## pm_promedio_salarios 2.05874494
## n_educacion(1° a 3°) 0.28311447
## n_educacion(1° a 9°) 2.67376111
## n_educacion(10° a 13°) 2.05168509
## n_educacionBásica (1° a 9°) 1.92171607
## n_educacionMedia (10° a 13°) 0.98331697
## n_educacionNinguno 1.86967620
## n_educacionSuperior universitario (1° a 15°) 0.09445225
## c_edad 0.08676405
## n_educacionSuperior universitario (1° a 15°)
## a_poblacion0,934 0.20604640
## pm_promedio_salarios -0.36289869
## n_educacion(1° a 3°) 0.14463418
## n_educacion(1° a 9°) 0.33084246
## n_educacion(10° a 13°) 0.31147279
## n_educacionBásica (1° a 9°) 0.23686184
## n_educacionMedia (10° a 13°) 0.18913532
## n_educacionNinguno 0.09445225
## n_educacionSuperior universitario (1° a 15°) 1.13964489
## c_edad 0.06563864
## c_edad
## a_poblacion0,934 -0.17469163
## pm_promedio_salarios 0.14592520
## n_educacion(1° a 3°) 0.03927609
## n_educacion(1° a 9°) 0.46207234
## n_educacion(10° a 13°) 0.33630066
## n_educacionBásica (1° a 9°) 0.08682259
## n_educacionMedia (10° a 13°) 0.11587512
## n_educacionNinguno 0.08676405
## n_educacionSuperior universitario (1° a 15°) 0.06563864
## c_edad 1.08311466#VIF'S para el modelo estimado
VIFs<-diag(inversa_R)
print(VIFs)## a_poblacion0,934
## 4.828840
## pm_promedio_salarios
## 7.210176
## n_educacion(1° a 3°)
## 1.174746
## n_educacion(1° a 9°)
## 8.671034
## n_educacion(10° a 13°)
## 5.575519
## n_educacionBásica (1° a 9°)
## 5.017394
## n_educacionMedia (10° a 13°)
## 2.099856
## n_educacionNinguno
## 1.869676
## n_educacionSuperior universitario (1° a 15°)
## 1.139645
## c_edad
## 1.083115#Obtención de VIF'S a traves de libreria "car"
library(car)
VIFs_car<-vif(modelo_desempleo_mujeres)
print(VIFs_car)## GVIF Df GVIF^(1/(2*Df))
## a_poblacion 4.828840 1 2.197462
## pm_promedio_salarios 7.210176 1 2.685177
## n_educacion 3.125038 7 1.084793
## c_edad 1.083115 1 1.040728#Obtención de VIF'S a traves de libreria "mctest"
library (mctest)
mc.plot(mod = modelo_desempleo_mujeres,vif = 2)
Prueba White
library(skedastic)
white_lm(modelo_desempleo_mujeres,interactions = FALSE)## # A tibble: 1 × 5
## statistic p.value parameter method alternative
## <dbl> <dbl> <dbl> <chr> <chr>
## 1 3.51 1.00 20 White's Test greaterComo 0.9999842 > 0.05 No se rechaza la Ho, por lo tanto hay evidencia de que la varianza de los residuos es homocedástica.
Prueba de Durbin Watson
library(lmtest)
## Usamos la Libreria lmtest
dwtest(modelo_desempleo_mujeres, alternative = "two.sided", iterations = 1000)##
## Durbin-Watson test
##
## data: modelo_desempleo_mujeres
## DW = 1.0419, p-value = 0.000000000005329
## alternative hypothesis: true autocorrelation is not 0library(car)
## Usamos la libreria car
durbinWatsonTest(modelo_desempleo_mujeres, simulate= TRUE, reps= 1000)## lag Autocorrelation D-W Statistic p-value
## 1 -0.01140273 1.041894 0.004
## Alternative hypothesis: rho != 0En ambos casos caen en la zona de no rechazo de la Ho
Autocorrelacion de primero orden
library(lmtest)
bgtest(modelo_desempleo_mujeres,order=1)##
## Breusch-Godfrey test for serial correlation of order up to 1
##
## data: modelo_desempleo_mujeres
## LM test = 0.026272, df = 1, p-value = 0.8712INTERPRETACIÓN: Como P > 0.05 no se rechaza la H0 , por lo tanto puede concluirse que los residuos del modelo no siguen autocorrelación de orden 1
Autocorrelacion de segundo orden
library(lmtest)
bgtest(modelo_desempleo_mujeres,order=2)##
## Breusch-Godfrey test for serial correlation of order up to 2
##
## data: modelo_desempleo_mujeres
## LM test = 0.052794, df = 2, p-value = 0.9739INTERPRETACIÓN: Como P > 0.05 no se rechaza la Ho , por lo tanto puede concluirse que los residuos del modelo, no siguen autocorrelación de orden 1.
11. Referencias bibliograficas
https://ormusa.org/wp-content/uploads/2019/10/Mujer_mercado_laboral_2011.pdf
UCA, octubre 2017
Boletin,2020
https://economipedia.com/definiciones/tasa-de-desempleo-paro.html
https://datos.bancomundial.org/indicator/SL.UEM.TOTL.ZS?locations=SV
https://celade.cepal.org/redatam/pryesp/sisppi/webhelp/tasa_de_desempleo.htm