Alistando base de datos
Model_1$Sexo<-as.factor(Model_1$Sexo)
Model_1$Edad<-as.factor(Model_1$Edad)
Model_1$est_civil<-as.factor(Model_1$est_civil)
Model_1$formacion<-as.factor(Model_1$formacion)
Model_1$Hijos<-as.factor(Model_1$Hijos)
Model_1$Ingresos<-as.factor(Model_1$Ingresos)
Model_1$futuro<-as.factor(Model_1$futuro)
Model_1$vivienda<-as.factor(Model_1$vivienda)
Model_1$otro_ing<-as.factor(Model_1$otro_ing)
Model_1$tiempo_doc<-as.factor(Model_1$tiempo_doc)
Model_1$act_docente<-as.factor(Model_1$act_docente)
Model_1$genera_malestar<-as.factor(Model_1$genera_malestar)
Model_1$capacitado_act<-as.factor(Model_1$capacitado_act)
Model_1$curs_dirige<-as.factor(Model_1$curs_dirige)
Model_1$T.vinculación<-as.factor(Model_1$T.vinculación)
Model_1$sede<-as.factor(Model_1$sede)
Model_1$afec_covid_lab<-as.factor(Model_1$afec_covid_lab)
Model_1$fin_demes<-as.factor(Model_1$fin_demes)
Model_1$afec_covid_per<-as.factor(Model_1$afec_covid_per)
Model_1$afec_covid_entor<-as.factor(Model_1$afec_covid_entor)
Model_1$mal_f<-as.factor(Model_1$mal_f)
Model_1$deprimi_f<-as.factor(Model_1$deprimi_f)
Model_1$nervi_f<-as.factor(Model_1$nervi_f)
Model_1$incap_f<-as.factor(Model_1$incap_f)
Model_1$g_riesgo<-as.factor(Model_1$g_riesgo)
Model_1$como_conf<-as.factor(Model_1$como_conf)
Model_1$Burnout_1<-as.factor(Model_1$Burnout_1)
summary(Model_1$Burnout_1)## 0 1
## 47 4Intentamos correr el modelo con todas las variables y así ninguna covariable es influyente
##
## Call:
## glm(formula = Burnout_1 ~ Sexo + Edad + est_civil + formacion +
## Hijos + Ingresos + futuro + vivienda + otro_ing + tiempo_doc +
## act_docente + genera_malestar + capacitado_act + curs_dirige +
## T.vinculación + sede + afec_covid_lab + fin_demes + afec_covid_per +
## afec_covid_entor + mal_f + deprimi_f + nervi_f + incap_f +
## g_riesgo + como_conf, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients: (29 not defined because of singularities)
## Estimate
## (Intercept) 5.299e+01
## SexoMasculino -1.101e+01
## EdadEntre 40 y 49 años 2.557e+01
## EdadEntre 50 y 66 años 3.764e+01
## EdadMayor de 66 años 4.179e+01
## est_civilSeparado(a) 4.527e+00
## est_civilSoltero(a) 1.246e+01
## est_civilUnión libre 2.549e+01
## formacionEspecialista NA
## formacionMagister 3.592e+00
## Hijos1 -2.939e+01
## Hijos2 -4.239e+01
## Hijos3 -1.787e+01
## Hijos4 o más -2.151e+01
## IngresosEntre 2 y 3 millones -6.393e+01
## IngresosEntre 3 y 4 millones -6.220e+01
## IngresosMás de 4 millones -6.140e+01
## futuroMejor 1.261e+01
## futuroPeor 5.059e+00
## viviendafamiliar 1.917e+01
## viviendaFamiliar -3.400e+01
## viviendaPropia (está pagando) 1.206e+00
## viviendaPropia (libre de deudas) -1.222e+01
## viviendaUsufructo -1.612e+01
## otro_ingSi 1.582e+01
## tiempo_docEntre 21 y 30 años -3.978e+01
## tiempo_docMás de 30 años -2.747e+01
## tiempo_docMenos de 10 años -1.528e-01
## act_docenteNi satisfecho ni insatisfecho 7.683e+01
## act_docenteSatisfecho -1.477e+00
## genera_malestarApatía o desinterés de los estudiantes -1.336e+01
## genera_malestarCondiciones laborales -4.812e+01
## genera_malestarConflictos laborales -5.382e+01
## genera_malestarDesorganización y autoritarismo de los directivos -2.119e+01
## genera_malestarEscasez de recursos -3.618e+01
## genera_malestarNinguna -3.025e+01
## genera_malestarSobrecarga laboral -1.151e+01
## capacitado_actMuy capaz 2.029e+00
## curs_dirigeMedianamente acertada -4.613e+01
## curs_dirigeMuy acertada 1.246e+01
## T.vinculaciónDocente de planta 6.761e+00
## T.vinculaciónDocente ocasional 4.287e+01
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 2.485e+01
## sedeSede Regional Sur (Suan) 1.753e+00
## afec_covid_labHe sido contratado/a 2.990e+01
## afec_covid_labHe sido despedido(a) -3.863e+01
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE -5.378e+00
## afec_covid_labNo me ha afectado en nada 3.745e+00
## fin_demesCon cierta facilidad -5.531e+00
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## Std. Error
## (Intercept) 1.951e+06
## SexoMasculino 1.803e+06
## EdadEntre 40 y 49 años 1.162e+06
## EdadEntre 50 y 66 años 2.382e+06
## EdadMayor de 66 años 2.720e+06
## est_civilSeparado(a) 2.060e+06
## est_civilSoltero(a) 1.542e+06
## est_civilUnión libre 1.821e+06
## formacionEspecialista NA
## formacionMagister 6.258e+05
## Hijos1 1.058e+06
## Hijos2 1.062e+06
## Hijos3 1.720e+06
## Hijos4 o más 2.330e+06
## IngresosEntre 2 y 3 millones 2.998e+06
## IngresosEntre 3 y 4 millones 2.117e+06
## IngresosMás de 4 millones 1.922e+06
## futuroMejor 4.337e+05
## futuroPeor 9.554e+05
## viviendafamiliar 1.895e+06
## viviendaFamiliar 1.361e+06
## viviendaPropia (está pagando) 1.917e+06
## viviendaPropia (libre de deudas) 1.464e+06
## viviendaUsufructo 1.193e+06
## otro_ingSi 1.150e+06
## tiempo_docEntre 21 y 30 años 3.957e+06
## tiempo_docMás de 30 años 2.821e+06
## tiempo_docMenos de 10 años 4.948e+05
## act_docenteNi satisfecho ni insatisfecho 2.435e+06
## act_docenteSatisfecho 4.884e+05
## genera_malestarApatía o desinterés de los estudiantes 6.388e+05
## genera_malestarCondiciones laborales 2.296e+06
## genera_malestarConflictos laborales 2.700e+06
## genera_malestarDesorganización y autoritarismo de los directivos 1.380e+06
## genera_malestarEscasez de recursos 2.244e+06
## genera_malestarNinguna 1.866e+06
## genera_malestarSobrecarga laboral 1.278e+06
## capacitado_actMuy capaz 1.034e+06
## curs_dirigeMedianamente acertada 2.689e+06
## curs_dirigeMuy acertada 6.977e+05
## T.vinculaciónDocente de planta 1.009e+06
## T.vinculaciónDocente ocasional 2.441e+06
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.282e+06
## sedeSede Regional Sur (Suan) 1.473e+06
## afec_covid_labHe sido contratado/a 2.295e+06
## afec_covid_labHe sido despedido(a) 1.304e+06
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 1.267e+06
## afec_covid_labNo me ha afectado en nada 4.216e+05
## fin_demesCon cierta facilidad 1.110e+06
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## z value
## (Intercept) 0
## SexoMasculino 0
## EdadEntre 40 y 49 años 0
## EdadEntre 50 y 66 años 0
## EdadMayor de 66 años 0
## est_civilSeparado(a) 0
## est_civilSoltero(a) 0
## est_civilUnión libre 0
## formacionEspecialista NA
## formacionMagister 0
## Hijos1 0
## Hijos2 0
## Hijos3 0
## Hijos4 o más 0
## IngresosEntre 2 y 3 millones 0
## IngresosEntre 3 y 4 millones 0
## IngresosMás de 4 millones 0
## futuroMejor 0
## futuroPeor 0
## viviendafamiliar 0
## viviendaFamiliar 0
## viviendaPropia (está pagando) 0
## viviendaPropia (libre de deudas) 0
## viviendaUsufructo 0
## otro_ingSi 0
## tiempo_docEntre 21 y 30 años 0
## tiempo_docMás de 30 años 0
## tiempo_docMenos de 10 años 0
## act_docenteNi satisfecho ni insatisfecho 0
## act_docenteSatisfecho 0
## genera_malestarApatía o desinterés de los estudiantes 0
## genera_malestarCondiciones laborales 0
## genera_malestarConflictos laborales 0
## genera_malestarDesorganización y autoritarismo de los directivos 0
## genera_malestarEscasez de recursos 0
## genera_malestarNinguna 0
## genera_malestarSobrecarga laboral 0
## capacitado_actMuy capaz 0
## curs_dirigeMedianamente acertada 0
## curs_dirigeMuy acertada 0
## T.vinculaciónDocente de planta 0
## T.vinculaciónDocente ocasional 0
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 0
## sedeSede Regional Sur (Suan) 0
## afec_covid_labHe sido contratado/a 0
## afec_covid_labHe sido despedido(a) 0
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 0
## afec_covid_labNo me ha afectado en nada 0
## fin_demesCon cierta facilidad 0
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## Pr(>|z|)
## (Intercept) 1
## SexoMasculino 1
## EdadEntre 40 y 49 años 1
## EdadEntre 50 y 66 años 1
## EdadMayor de 66 años 1
## est_civilSeparado(a) 1
## est_civilSoltero(a) 1
## est_civilUnión libre 1
## formacionEspecialista NA
## formacionMagister 1
## Hijos1 1
## Hijos2 1
## Hijos3 1
## Hijos4 o más 1
## IngresosEntre 2 y 3 millones 1
## IngresosEntre 3 y 4 millones 1
## IngresosMás de 4 millones 1
## futuroMejor 1
## futuroPeor 1
## viviendafamiliar 1
## viviendaFamiliar 1
## viviendaPropia (está pagando) 1
## viviendaPropia (libre de deudas) 1
## viviendaUsufructo 1
## otro_ingSi 1
## tiempo_docEntre 21 y 30 años 1
## tiempo_docMás de 30 años 1
## tiempo_docMenos de 10 años 1
## act_docenteNi satisfecho ni insatisfecho 1
## act_docenteSatisfecho 1
## genera_malestarApatía o desinterés de los estudiantes 1
## genera_malestarCondiciones laborales 1
## genera_malestarConflictos laborales 1
## genera_malestarDesorganización y autoritarismo de los directivos 1
## genera_malestarEscasez de recursos 1
## genera_malestarNinguna 1
## genera_malestarSobrecarga laboral 1
## capacitado_actMuy capaz 1
## curs_dirigeMedianamente acertada 1
## curs_dirigeMuy acertada 1
## T.vinculaciónDocente de planta 1
## T.vinculaciónDocente ocasional 1
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1
## sedeSede Regional Sur (Suan) 1
## afec_covid_labHe sido contratado/a 1
## afec_covid_labHe sido despedido(a) 1
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 1
## afec_covid_labNo me ha afectado en nada 1
## fin_demesCon cierta facilidad 1
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 2.8042e+01 on 50 degrees of freedom
## Residual deviance: 2.9588e-10 on 3 degrees of freedom
## AIC: 96
##
## Number of Fisher Scoring iterations: 25Así que lo hicimos de forma individual y encontramos que influye la variables: Ingreso adicional (otro_ingreso), En pandemia con que frecuencia se ha sentido decaído(a), deprimido(a) o sin esperanza (deprimi_f), En pandemia con frecuencia se ha sentido nervioso(a), ansioso(a) o muy alterado(a) (nervi_f) y Durante la pandemia con que frecuencia se ha sentido incapaz de parar o controlar las preocupaciones (incap_f).
##
## Call:
## glm(formula = Burnout_1 ~ otro_ing, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -3.689 1.012 -3.644 0.000269 ***
## otro_ingSi 2.842 1.225 2.319 0.020382 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.042 on 50 degrees of freedom
## Residual deviance: 21.620 on 49 degrees of freedom
## AIC: 25.62
##
## Number of Fisher Scoring iterations: 6##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.5136, p-value = 9.317e-12##
## Call:
## glm(formula = Burnout_1 ~ deprimi_f, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -2.2513 0.7434 -3.028 0.00246 **
## deprimi_fBastantes días -18.3148 12537.2648 -0.001 0.99883
## deprimi_fMuchos días 2.2513 1.2460 1.807 0.07080 .
## deprimi_fNunca -18.3148 3619.1967 -0.005 0.99596
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.042 on 50 degrees of freedom
## Residual deviance: 18.754 on 47 degrees of freedom
## AIC: 26.754
##
## Number of Fisher Scoring iterations: 19##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.67846, p-value = 2.728e-09##
## Call:
## glm(formula = Burnout_1 ~ nervi_f, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -3.219 1.020 -3.156 0.0016 **
## nervi_fBastantes días 3.219 1.306 2.464 0.0137 *
## nervi_fMuchos días -17.347 12537.265 -0.001 0.9989
## nervi_fNunca -17.347 4300.246 -0.004 0.9968
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.042 on 50 degrees of freedom
## Residual deviance: 16.795 on 47 degrees of freedom
## AIC: 24.795
##
## Number of Fisher Scoring iterations: 19##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.64898, p-value = 8.728e-10##
## Call:
## glm(formula = Burnout_1 ~ incap_f, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -2.8332 1.0290 -2.753 0.0059 **
## incap_fBastantes días 2.1401 1.5996 1.338 0.1809
## incap_fNunca 0.1942 1.2627 0.154 0.8778
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.042 on 50 degrees of freedom
## Residual deviance: 26.239 on 48 degrees of freedom
## AIC: 32.239
##
## Number of Fisher Scoring iterations: 5##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.38389, p-value = 2.579e-13También si juntamos las variables anteriores se anulan entre sí:
##
## Call:
## glm(formula = Burnout_1 ~ otro_ing + deprimi_f + nervi_f + incap_f,
## family = binomial(link = "logit"), data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -2.197 1.054 -2.084 0.0371 *
## otro_ingSi 100.888 38440.358 0.003 0.9979
## deprimi_fBastantes días -4.062 138326.161 0.000 1.0000
## deprimi_fMuchos días 59.662 28614.040 0.002 0.9983
## deprimi_fNunca -119.920 45691.119 -0.003 0.9979
## nervi_fBastantes días -18.415 18145.224 -0.001 0.9992
## nervi_fMuchos días -22.475 139473.342 0.000 0.9999
## nervi_fNunca -19.275 27891.445 -0.001 0.9994
## incap_fBastantes días -59.664 28621.458 -0.002 0.9983
## incap_fNunca -118.688 44849.067 -0.003 0.9979
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.0420 on 50 degrees of freedom
## Residual deviance: 6.5017 on 41 degrees of freedom
## AIC: 26.502
##
## Number of Fisher Scoring iterations: 24La forma de combinar varias variables y que sigan siendo influyente es cambiando los datos categoricos por números y que siga permanenciendo influyentes
Model_2 <- read_excel("E:/TESIS/Data/Model_2.xlsx")
names(Model_2) <- c("Correo","Sexo", "Edad", "afil_organizacion", "est_civil", "formacion",
"Hijos", "Ingresos", "futuro", "vivienda", "otro_ing",
"tiempo_doc", "act_docente", "genera_malestar",
"capacitado_act", "curs_dirige", "T.vinculación",
"sede", "afec_covid_lab", "fin_demes", "afec_covid_per",
"afec_covid_entor", "mal_f", "deprimi_f", "nervi_f",
"incap_f", "g_riesgo", "como_conf", "C1", "C2", "C3",
"R4", "C6", "R7", "C8", "R9", "D10", "D11", "R12",
"C13", "C14", "D15", "C16", "R17", "R18", "R19", "C20",
"R21", "D22", "ESC_C", "ESC_D", "ESC_R", "Nivel_C",
"Nivel_D", "Nivel_R", "Burnout_1", "Burnout_2","Burnout_3","Burnout_4")
str(Model_2$otro_ing)## num [1:51] 1 0 0 1 0 0 0 0 0 0 ...str(Model_2$incap_f)## num [1:51] 2 1 2 1 4 1 2 2 2 1 ...library(glmtoolbox)
library(MASS)
fit1<-glm(Burnout_1~otro_ing+deprimi_f,family = binomial(link="logit"),data = Model_2)
summary(fit1)##
## Call:
## glm(formula = Burnout_1 ~ otro_ing + deprimi_f, family = binomial(link = "logit"),
## data = Model_2)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -7.1459 2.4821 -2.879 0.00399 **
## otro_ing 3.2836 1.5059 2.180 0.02922 *
## deprimi_f 1.5215 0.7521 2.023 0.04306 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 28.042 on 50 degrees of freedom
## Residual deviance: 17.470 on 48 degrees of freedom
## AIC: 23.47
##
## Number of Fisher Scoring iterations: 7residual<- residuals.glm(fit1)
shapiro.test(residual)##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.60086, p-value = 1.545e-10Como otra opción para determinar el Burnout es tener despersonalización alto o medio y realización personal con medio y bajo.
Model_1$Burnout_4<-as.factor(Model_1$Burnout_4)
summary(Model_1$Burnout_4)## 0 1
## 42 9Intentamos correr el modelo con todas las variables y así ninguna covariable es influyente
##
## Call:
## glm(formula = Burnout_4 ~ Sexo + Edad + est_civil + formacion +
## Hijos + Ingresos + futuro + vivienda + otro_ing + tiempo_doc +
## act_docente + genera_malestar + capacitado_act + curs_dirige +
## T.vinculación + sede + afec_covid_lab + fin_demes + afec_covid_per +
## afec_covid_entor + mal_f + deprimi_f + nervi_f + incap_f +
## g_riesgo + como_conf, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients: (29 not defined because of singularities)
## Estimate
## (Intercept) 6.338e+01
## SexoMasculino -1.597e+01
## EdadEntre 40 y 49 años 5.672e+01
## EdadEntre 50 y 66 años 5.304e+01
## EdadMayor de 66 años 7.300e+01
## est_civilSeparado(a) -2.347e+01
## est_civilSoltero(a) 2.871e+01
## est_civilUnión libre 6.181e+01
## formacionEspecialista NA
## formacionMagister 2.890e+01
## Hijos1 1.950e+01
## Hijos2 -1.973e+01
## Hijos3 1.846e+01
## Hijos4 o más -1.690e+01
## IngresosEntre 2 y 3 millones -7.354e+01
## IngresosEntre 3 y 4 millones -9.300e+01
## IngresosMás de 4 millones -6.011e+01
## futuroMejor 1.693e+01
## futuroPeor 3.155e+01
## viviendafamiliar 1.382e+01
## viviendaFamiliar -9.423e+01
## viviendaPropia (está pagando) -4.945e+01
## viviendaPropia (libre de deudas) -4.001e+01
## viviendaUsufructo -6.028e+01
## otro_ingSi -6.190e-01
## tiempo_docEntre 21 y 30 años 3.258e-01
## tiempo_docMás de 30 años -5.608e+01
## tiempo_docMenos de 10 años 3.143e+00
## act_docenteNi satisfecho ni insatisfecho 1.153e+02
## act_docenteSatisfecho -6.603e+00
## genera_malestarApatía o desinterés de los estudiantes -4.337e+01
## genera_malestarCondiciones laborales -6.947e+01
## genera_malestarConflictos laborales -1.347e+02
## genera_malestarDesorganización y autoritarismo de los directivos -3.328e+01
## genera_malestarEscasez de recursos -5.039e+01
## genera_malestarNinguna 9.694e+00
## genera_malestarSobrecarga laboral -5.209e+01
## capacitado_actMuy capaz -3.439e+01
## curs_dirigeMedianamente acertada -7.593e+01
## curs_dirigeMuy acertada 2.871e+01
## T.vinculaciónDocente de planta 2.549e+00
## T.vinculaciónDocente ocasional 4.091e+01
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 6.251e+01
## sedeSede Regional Sur (Suan) 3.924e+01
## afec_covid_labHe sido contratado/a 4.794e+01
## afec_covid_labHe sido despedido(a) -9.862e+01
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE -1.283e+01
## afec_covid_labNo me ha afectado en nada 2.576e+01
## fin_demesCon cierta facilidad -9.683e+00
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## Std. Error
## (Intercept) 1.951e+06
## SexoMasculino 1.803e+06
## EdadEntre 40 y 49 años 1.162e+06
## EdadEntre 50 y 66 años 2.382e+06
## EdadMayor de 66 años 2.720e+06
## est_civilSeparado(a) 2.060e+06
## est_civilSoltero(a) 1.542e+06
## est_civilUnión libre 1.821e+06
## formacionEspecialista NA
## formacionMagister 6.258e+05
## Hijos1 1.058e+06
## Hijos2 1.062e+06
## Hijos3 1.720e+06
## Hijos4 o más 2.330e+06
## IngresosEntre 2 y 3 millones 2.998e+06
## IngresosEntre 3 y 4 millones 2.117e+06
## IngresosMás de 4 millones 1.922e+06
## futuroMejor 4.337e+05
## futuroPeor 9.554e+05
## viviendafamiliar 1.895e+06
## viviendaFamiliar 1.361e+06
## viviendaPropia (está pagando) 1.917e+06
## viviendaPropia (libre de deudas) 1.464e+06
## viviendaUsufructo 1.193e+06
## otro_ingSi 1.150e+06
## tiempo_docEntre 21 y 30 años 3.957e+06
## tiempo_docMás de 30 años 2.821e+06
## tiempo_docMenos de 10 años 4.948e+05
## act_docenteNi satisfecho ni insatisfecho 2.435e+06
## act_docenteSatisfecho 4.884e+05
## genera_malestarApatía o desinterés de los estudiantes 6.388e+05
## genera_malestarCondiciones laborales 2.296e+06
## genera_malestarConflictos laborales 2.700e+06
## genera_malestarDesorganización y autoritarismo de los directivos 1.380e+06
## genera_malestarEscasez de recursos 2.244e+06
## genera_malestarNinguna 1.866e+06
## genera_malestarSobrecarga laboral 1.278e+06
## capacitado_actMuy capaz 1.034e+06
## curs_dirigeMedianamente acertada 2.689e+06
## curs_dirigeMuy acertada 6.977e+05
## T.vinculaciónDocente de planta 1.009e+06
## T.vinculaciónDocente ocasional 2.441e+06
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.282e+06
## sedeSede Regional Sur (Suan) 1.473e+06
## afec_covid_labHe sido contratado/a 2.295e+06
## afec_covid_labHe sido despedido(a) 1.304e+06
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 1.267e+06
## afec_covid_labNo me ha afectado en nada 4.216e+05
## fin_demesCon cierta facilidad 1.110e+06
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## z value
## (Intercept) 0
## SexoMasculino 0
## EdadEntre 40 y 49 años 0
## EdadEntre 50 y 66 años 0
## EdadMayor de 66 años 0
## est_civilSeparado(a) 0
## est_civilSoltero(a) 0
## est_civilUnión libre 0
## formacionEspecialista NA
## formacionMagister 0
## Hijos1 0
## Hijos2 0
## Hijos3 0
## Hijos4 o más 0
## IngresosEntre 2 y 3 millones 0
## IngresosEntre 3 y 4 millones 0
## IngresosMás de 4 millones 0
## futuroMejor 0
## futuroPeor 0
## viviendafamiliar 0
## viviendaFamiliar 0
## viviendaPropia (está pagando) 0
## viviendaPropia (libre de deudas) 0
## viviendaUsufructo 0
## otro_ingSi 0
## tiempo_docEntre 21 y 30 años 0
## tiempo_docMás de 30 años 0
## tiempo_docMenos de 10 años 0
## act_docenteNi satisfecho ni insatisfecho 0
## act_docenteSatisfecho 0
## genera_malestarApatía o desinterés de los estudiantes 0
## genera_malestarCondiciones laborales 0
## genera_malestarConflictos laborales 0
## genera_malestarDesorganización y autoritarismo de los directivos 0
## genera_malestarEscasez de recursos 0
## genera_malestarNinguna 0
## genera_malestarSobrecarga laboral 0
## capacitado_actMuy capaz 0
## curs_dirigeMedianamente acertada 0
## curs_dirigeMuy acertada 0
## T.vinculaciónDocente de planta 0
## T.vinculaciónDocente ocasional 0
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 0
## sedeSede Regional Sur (Suan) 0
## afec_covid_labHe sido contratado/a 0
## afec_covid_labHe sido despedido(a) 0
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 0
## afec_covid_labNo me ha afectado en nada 0
## fin_demesCon cierta facilidad 0
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
## Pr(>|z|)
## (Intercept) 1
## SexoMasculino 1
## EdadEntre 40 y 49 años 1
## EdadEntre 50 y 66 años 1
## EdadMayor de 66 años 1
## est_civilSeparado(a) 1
## est_civilSoltero(a) 1
## est_civilUnión libre 1
## formacionEspecialista NA
## formacionMagister 1
## Hijos1 1
## Hijos2 1
## Hijos3 1
## Hijos4 o más 1
## IngresosEntre 2 y 3 millones 1
## IngresosEntre 3 y 4 millones 1
## IngresosMás de 4 millones 1
## futuroMejor 1
## futuroPeor 1
## viviendafamiliar 1
## viviendaFamiliar 1
## viviendaPropia (está pagando) 1
## viviendaPropia (libre de deudas) 1
## viviendaUsufructo 1
## otro_ingSi 1
## tiempo_docEntre 21 y 30 años 1
## tiempo_docMás de 30 años 1
## tiempo_docMenos de 10 años 1
## act_docenteNi satisfecho ni insatisfecho 1
## act_docenteSatisfecho 1
## genera_malestarApatía o desinterés de los estudiantes 1
## genera_malestarCondiciones laborales 1
## genera_malestarConflictos laborales 1
## genera_malestarDesorganización y autoritarismo de los directivos 1
## genera_malestarEscasez de recursos 1
## genera_malestarNinguna 1
## genera_malestarSobrecarga laboral 1
## capacitado_actMuy capaz 1
## curs_dirigeMedianamente acertada 1
## curs_dirigeMuy acertada 1
## T.vinculaciónDocente de planta 1
## T.vinculaciónDocente ocasional 1
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1
## sedeSede Regional Sur (Suan) 1
## afec_covid_labHe sido contratado/a 1
## afec_covid_labHe sido despedido(a) 1
## afec_covid_labHe sufrido una reducción de sueldo/horas de trabajo o un ERTE 1
## afec_covid_labNo me ha afectado en nada 1
## fin_demesCon cierta facilidad 1
## fin_demesCon facilidad NA
## fin_demesCon mucha facilidad NA
## afec_covid_perMe he contagiado y he estado hospitalizado(a) NA
## afec_covid_perNo he tenido síntomas y pienso que no me contagiado NA
## afec_covid_perNo sé si he estado contagiado/a, pero he tenido que hacer cuarentena por haber tenido contacto con personas contagiadas NA
## afec_covid_perPosiblemente me he contagiado (no he tenido síntomas o éstos han sido leves), pero no me han hecho la prueba NA
## afec_covid_entorAlgún familiar, amigo o vecino ha fallecido a causa del virus NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha estado en aislamiento domiciliario NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, con ingreso en UCI NA
## afec_covid_entorAlgún familiar, amigo o vecino se ha contagiado y ha requerido hospitalización, sin ingreso en UCI NA
## afec_covid_entorNadie de mi entorno se ha contagiado que yo sepa NA
## mal_fBastantes días NA
## mal_fMuchos días NA
## mal_fNunca NA
## deprimi_fBastantes días NA
## deprimi_fMuchos días NA
## deprimi_fNunca NA
## nervi_fBastantes días NA
## nervi_fMuchos días NA
## nervi_fNunca NA
## incap_fBastantes días NA
## incap_fNunca NA
## g_riesgoMayor de 60 años NA
## g_riesgoNo pertenezco a ningún grupo de riesgo NA
## como_confCon 3 o más personas NA
## como_confCon dos personas más NA
## como_confCon una persona más NA
## como_confNo he estado confinado por motivos de trabajo NA
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4.7532e+01 on 50 degrees of freedom
## Residual deviance: 2.9588e-10 on 3 degrees of freedom
## AIC: 96
##
## Number of Fisher Scoring iterations: 25Fue influyente Su percepción de la situación económica a futuro es: (futuro)
##
## Call:
## glm(formula = Burnout_4 ~ futuro, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -2.833 1.029 -2.753 0.0059 **
## futuroMejor 1.398 1.143 1.223 0.2212
## futuroPeor 2.546 1.281 1.986 0.0470 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 47.532 on 50 degrees of freedom
## Residual deviance: 42.742 on 48 degrees of freedom
## AIC: 48.742
##
## Number of Fisher Scoring iterations: 5##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.67622, p-value = 2.496e-09Fue influyente ingreso adicional (otro_ing)
##
## Call:
## glm(formula = Burnout_4 ~ otro_ing, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -2.2246 0.5263 -4.227 2.37e-05 ***
## otro_ingSi 2.2246 0.8228 2.704 0.00686 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 47.532 on 50 degrees of freedom
## Residual deviance: 40.078 on 49 degrees of freedom
## AIC: 44.078
##
## Number of Fisher Scoring iterations: 4##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.63059, p-value = 4.424e-10También fue influyente la variable sede
##
## Call:
## glm(formula = Burnout_4 ~ sede, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate
## (Intercept) -1.8718
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 2.5649
## sedeSede Regional Sur (Suan) 1.1787
## Std. Error
## (Intercept) 0.4385
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.3009
## sedeSede Regional Sur (Suan) 1.3009
## z value
## (Intercept) -4.268
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.972
## sedeSede Regional Sur (Suan) 0.906
## Pr(>|z|)
## (Intercept) 1.97e-05 ***
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 0.0486 *
## sedeSede Regional Sur (Suan) 0.3649
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 47.532 on 50 degrees of freedom
## Residual deviance: 42.979 on 48 degrees of freedom
## AIC: 48.979
##
## Number of Fisher Scoring iterations: 4##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.56123, p-value = 4.115e-11De forma categorica ninguna de las variables juntas es influyentes
##
## Call:
## glm(formula = Burnout_4 ~ futuro + otro_ing + sede, family = binomial(link = "logit"),
## data = Model_1)
##
## Coefficients:
## Estimate
## (Intercept) -3.6292
## futuroMejor 1.4328
## futuroPeor 2.8933
## otro_ingSi 1.7779
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.6534
## sedeSede Regional Sur (Suan) -0.4612
## Std. Error
## (Intercept) 1.2607
## futuroMejor 1.3176
## futuroPeor 1.4907
## otro_ingSi 1.1021
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 1.6648
## sedeSede Regional Sur (Suan) 1.6697
## z value
## (Intercept) -2.879
## futuroMejor 1.087
## futuroPeor 1.941
## otro_ingSi 1.613
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 0.993
## sedeSede Regional Sur (Suan) -0.276
## Pr(>|z|)
## (Intercept) 0.00399 **
## futuroMejor 0.27684
## futuroPeor 0.05227 .
## otro_ingSi 0.10672
## sedeSede Norte (Ciudadela universitaria), Sede Regional Sur (Suan) 0.32064
## sedeSede Regional Sur (Suan) 0.78239
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 47.532 on 50 degrees of freedom
## Residual deviance: 34.979 on 45 degrees of freedom
## AIC: 46.979
##
## Number of Fisher Scoring iterations: 6a pesar de cambiar los datos categoricos por númericos, solo es significativo la variable Ingreso adicional:
Model_2 <- read_excel("E:/TESIS/Data/Model_2.xlsx")
names(Model_2) <- c("Correo","Sexo", "Edad", "afil_organizacion", "est_civil", "formacion",
"Hijos", "Ingresos", "futuro", "vivienda", "otro_ing",
"tiempo_doc", "act_docente", "genera_malestar",
"capacitado_act", "curs_dirige", "T.vinculación",
"sede", "afec_covid_lab", "fin_demes", "afec_covid_per",
"afec_covid_entor", "mal_f", "deprimi_f", "nervi_f",
"incap_f", "g_riesgo", "como_conf", "C1", "C2", "C3",
"R4", "C6", "R7", "C8", "R9", "D10", "D11", "R12",
"C13", "C14", "D15", "C16", "R17", "R18", "R19", "C20",
"R21", "D22", "ESC_C", "ESC_D", "ESC_R", "Nivel_C",
"Nivel_D", "Nivel_R", "Burnout_1", "Burnout_2","Burnout_3","Burnout_4")
str(Model_2$otro_ing)## num [1:51] 1 0 0 1 0 0 0 0 0 0 ...str(Model_2$futuro)## num [1:51] 2 2 2 3 3 2 2 3 2 2 ...library(glmtoolbox)
library(MASS)
fit1<-glm(Burnout_4~otro_ing+futuro,family = binomial(link="logit"),data = Model_2)
summary(fit1)##
## Call:
## glm(formula = Burnout_4 ~ otro_ing + futuro, family = binomial(link = "logit"),
## data = Model_2)
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -1.3212 1.2994 -1.017 0.3093
## otro_ing 2.0370 0.8121 2.509 0.0121 *
## futuro -0.3810 0.5342 -0.713 0.4756
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 47.532 on 50 degrees of freedom
## Residual deviance: 40.659 on 48 degrees of freedom
## AIC: 46.659
##
## Number of Fisher Scoring iterations: 5residual<- residuals.glm(fit1)
shapiro.test(residual)##
## Shapiro-Wilk normality test
##
## data: residual
## W = 0.66934, p-value = 1.904e-09