Modelos de ecuaciones
Gerardo Javier Garza Ramirez - A01383287
2024-02-29
Teoría
Contexto
Uno de los retos más importantes de las organizaciones es entender el estado y bienestar de los colaboradores, ya que puede impactar directamente en el desempeño y el logro de los objetivos.
Parte 1. Experiencias de Recuperación
Instalar paquetes y llamar librerías
library(lavaan)## This is lavaan 0.6-17
## lavaan is FREE software! Please report any bugs.library(lavaanPlot)
library(readxl)Importar base de datos
library(readxl)
datos_sem <- read_excel("C:\\Users\\USER\\OneDrive\\Documentos\\Datos_SEM_Eng.xlsx")summary(datos_sem)## ID GEN EXPER EDAD
## Min. : 1.0 Min. :0.0000 Min. : 0.00 Min. :22.00
## 1st Qu.: 56.5 1st Qu.:0.0000 1st Qu.:15.00 1st Qu.:37.50
## Median :112.0 Median :1.0000 Median :20.00 Median :44.00
## Mean :112.0 Mean :0.5919 Mean :21.05 Mean :43.95
## 3rd Qu.:167.5 3rd Qu.:1.0000 3rd Qu.:27.50 3rd Qu.:51.00
## Max. :223.0 Max. :1.0000 Max. :50.00 Max. :72.00
## RPD01 RPD02 RPD03 RPD05 RPD06
## Min. :1.000 Min. :1.00 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:3.000 1st Qu.:3.00 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:3.000
## Median :5.000 Median :4.00 Median :5.000 Median :5.000 Median :5.000
## Mean :4.596 Mean :4.09 Mean :4.789 Mean :4.327 Mean :4.798
## 3rd Qu.:6.000 3rd Qu.:6.00 3rd Qu.:7.000 3rd Qu.:6.000 3rd Qu.:7.000
## Max. :7.000 Max. :7.00 Max. :7.000 Max. :7.000 Max. :7.000
## RPD07 RPD08 RPD09 RPD10
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:2.000 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:2.500
## Median :4.000 Median :5.000 Median :5.000 Median :5.000
## Mean :3.794 Mean :4.735 Mean :4.466 Mean :4.435
## 3rd Qu.:5.500 3rd Qu.:7.000 3rd Qu.:6.000 3rd Qu.:6.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## RRE02 RRE03 RRE04 RRE05 RRE06
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.0
## 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:4.0
## Median :6.000 Median :6.000 Median :6.000 Median :6.000 Median :6.0
## Mean :5.691 Mean :5.534 Mean :5.668 Mean :5.623 Mean :5.3
## 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.0
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.0
## RRE07 RRE10 RMA02 RMA03
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:4.000 1st Qu.:5.000 1st Qu.:3.000 1st Qu.:3.000
## Median :6.000 Median :6.000 Median :4.000 Median :5.000
## Mean :5.305 Mean :5.664 Mean :4.215 Mean :4.377
## 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:6.000 3rd Qu.:6.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## RMA04 RMA05 RMA06 RMA07
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:5.000 1st Qu.:4.000
## Median :5.000 Median :5.000 Median :6.000 Median :5.000
## Mean :4.686 Mean :4.637 Mean :5.511 Mean :4.767
## 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:7.000 3rd Qu.:6.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## RMA08 RMA09 RMA10 RCO02 RCO03
## Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.000 Min. :1.000
## 1st Qu.:4.000 1st Qu.:3.000 1st Qu.:3.00 1st Qu.:5.000 1st Qu.:5.000
## Median :5.000 Median :5.000 Median :5.00 Median :6.000 Median :6.000
## Mean :4.942 Mean :4.614 Mean :4.43 Mean :5.336 Mean :5.574
## 3rd Qu.:6.500 3rd Qu.:6.000 3rd Qu.:6.00 3rd Qu.:7.000 3rd Qu.:7.000
## Max. :7.000 Max. :7.000 Max. :7.00 Max. :7.000 Max. :7.000
## RCO04 RCO05 RCO06 RCO07
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:5.000
## Median :6.000 Median :6.000 Median :6.000 Median :6.000
## Mean :5.704 Mean :5.668 Mean :5.619 Mean :5.632
## 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## EN01 EN02 EN04 EN05
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:3.000 1st Qu.:4.000 1st Qu.:4.000 1st Qu.:4.000
## Median :5.000 Median :6.000 Median :5.000 Median :5.000
## Mean :4.717 Mean :5.004 Mean :4.883 Mean :4.928
## 3rd Qu.:6.000 3rd Qu.:7.000 3rd Qu.:6.000 3rd Qu.:6.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## EN06 EN07 EN08 EVI01
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :0.000
## 1st Qu.:3.000 1st Qu.:3.000 1st Qu.:4.000 1st Qu.:4.000
## Median :5.000 Median :5.000 Median :5.000 Median :5.000
## Mean :4.767 Mean :4.578 Mean :4.776 Mean :5.013
## 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:6.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## EVI02 EVI03 EDE01 EDE02
## Min. :0.000 Min. :0.000 Min. :0.000 Min. :0.000
## 1st Qu.:4.000 1st Qu.:4.000 1st Qu.:5.000 1st Qu.:5.000
## Median :6.000 Median :6.000 Median :6.000 Median :6.000
## Mean :5.076 Mean :4.973 Mean :5.305 Mean :5.543
## 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:7.000 3rd Qu.:7.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000
## EDE03 EAB01 EAB02 EAB03
## Min. :0.000 Min. :0.000 Min. :0.000 Min. :0.000
## 1st Qu.:6.000 1st Qu.:5.000 1st Qu.:5.000 1st Qu.:5.000
## Median :7.000 Median :6.000 Median :6.000 Median :6.000
## Mean :6.135 Mean :5.605 Mean :5.821 Mean :5.363
## 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000 3rd Qu.:7.000
## Max. :7.000 Max. :7.000 Max. :7.000 Max. :7.000str(datos_sem)## tibble [223 × 51] (S3: tbl_df/tbl/data.frame)
## $ ID : num [1:223] 1 2 3 4 5 6 7 8 9 10 ...
## $ GEN : num [1:223] 1 1 1 1 1 0 0 1 1 1 ...
## $ EXPER: num [1:223] 22 22 30 17 23 31 26 30 15 15 ...
## $ EDAD : num [1:223] 45 44 52 41 51 52 53 48 40 38 ...
## $ RPD01: num [1:223] 5 4 7 5 7 3 5 6 4 2 ...
## $ RPD02: num [1:223] 1 4 7 5 6 4 5 7 4 3 ...
## $ RPD03: num [1:223] 3 6 7 1 7 5 4 6 4 2 ...
## $ RPD05: num [1:223] 2 5 7 1 6 4 4 7 4 3 ...
## $ RPD06: num [1:223] 3 3 7 3 7 3 5 2 6 7 ...
## $ RPD07: num [1:223] 1 2 6 5 6 5 6 5 4 1 ...
## $ RPD08: num [1:223] 3 3 7 3 7 4 6 2 5 3 ...
## $ RPD09: num [1:223] 2 4 7 2 6 4 7 4 4 2 ...
## $ RPD10: num [1:223] 4 4 7 2 6 4 7 1 6 2 ...
## $ RRE02: num [1:223] 6 6 7 6 7 5 7 5 6 7 ...
## $ RRE03: num [1:223] 6 6 7 6 7 4 7 4 4 7 ...
## $ RRE04: num [1:223] 6 6 7 6 7 4 7 4 6 7 ...
## $ RRE05: num [1:223] 6 6 7 6 7 5 7 4 6 7 ...
## $ RRE06: num [1:223] 6 6 7 6 7 4 7 4 6 7 ...
## $ RRE07: num [1:223] 6 6 7 6 7 4 7 4 6 7 ...
## $ RRE10: num [1:223] 6 6 7 6 7 4 7 4 6 7 ...
## $ RMA02: num [1:223] 4 6 4 3 4 7 5 2 6 7 ...
## $ RMA03: num [1:223] 5 6 5 4 4 7 5 1 2 7 ...
## $ RMA04: num [1:223] 5 5 6 4 4 5 5 1 4 7 ...
## $ RMA05: num [1:223] 5 5 6 4 4 6 5 3 4 7 ...
## $ RMA06: num [1:223] 6 6 7 6 5 4 5 7 6 7 ...
## $ RMA07: num [1:223] 4 6 6 5 4 5 7 4 6 7 ...
## $ RMA08: num [1:223] 5 6 4 4 4 6 6 4 2 7 ...
## $ RMA09: num [1:223] 3 5 4 3 5 4 5 2 4 7 ...
## $ RMA10: num [1:223] 7 5 5 4 5 5 6 4 3 7 ...
## $ RCO02: num [1:223] 7 7 7 5 7 6 7 7 3 7 ...
## $ RCO03: num [1:223] 7 7 7 5 7 5 7 7 3 7 ...
## $ RCO04: num [1:223] 7 7 7 6 7 4 7 7 3 7 ...
## $ RCO05: num [1:223] 7 7 7 6 7 4 7 7 3 7 ...
## $ RCO06: num [1:223] 7 7 7 6 7 4 7 7 4 7 ...
## $ RCO07: num [1:223] 5 7 7 6 7 4 7 7 7 7 ...
## $ EN01 : num [1:223] 6 6 7 4 6 4 7 7 4 7 ...
## $ EN02 : num [1:223] 7 6 7 4 6 4 7 7 4 7 ...
## $ EN04 : num [1:223] 6 6 7 4 6 4 7 6 4 7 ...
## $ EN05 : num [1:223] 5 5 7 5 6 5 7 6 4 7 ...
## $ EN06 : num [1:223] 5 5 7 5 6 3 7 5 5 7 ...
## $ EN07 : num [1:223] 5 5 7 2 6 4 7 4 4 7 ...
## $ EN08 : num [1:223] 6 5 7 5 6 4 7 4 4 7 ...
## $ EVI01: num [1:223] 6 5 7 5 6 4 7 6 6 0 ...
## $ EVI02: num [1:223] 6 5 7 6 6 4 6 5 5 1 ...
## $ EVI03: num [1:223] 6 6 6 7 6 4 6 6 7 0 ...
## $ EDE01: num [1:223] 6 6 6 5 7 6 7 7 7 1 ...
## $ EDE02: num [1:223] 7 6 7 6 7 5 7 7 7 5 ...
## $ EDE03: num [1:223] 7 7 7 7 7 5 7 7 7 6 ...
## $ EAB01: num [1:223] 7 7 7 6 7 5 7 7 7 0 ...
## $ EAB02: num [1:223] 7 7 7 6 7 5 7 2 5 1 ...
## $ EAB03: num [1:223] 6 5 6 5 6 5 7 3 5 0 ...Tipos de Fórmulas
- Regresión (~) Variable que depende de otras.
- Variables latentes (=~) No se observa, se infirere.
- Varianzas y covarianzas (~~) Relaciones entre variables latentes y
observadas (varianza entre sí misma, covariaza cuando comparas entre
otras).
- Intercepto (~1) Valor esperado cuando las demás variables son cero.
Estructurar el modelo
modelo1 <- ' # Regresiones
# Variables Latentes
desapego =~ RPD01 + RPD02 + RPD03 + RPD05 + RPD06 + RPD07 + RPD08 + RPD09 + RPD10
relajacion =~ RRE02 + RRE03 + RRE04 + RRE05 + RRE06 + RRE07 + RRE10
dominio =~ RMA02 + RMA03 + RMA04 + RMA05 + RMA06 + RMA07 + RMA08 + RMA09 + RMA10
control =~ RCO02 + RCO03 + RCO04 + RCO05 + RCO06 + RCO07
recuperacion =~ desapego + relajacion + dominio + control
# Varianza y Covarianzas
# Intercepto
'Generar el Análisis Factorial Confirmatorio (CFA)
fit <- cfa(modelo1, datos_sem)
summary(fit)## lavaan 0.6.17 ended normally after 47 iterations
##
## Estimator ML
## Optimization method NLMINB
## Number of model parameters 66
##
## Number of observations 223
##
## Model Test User Model:
##
## Test statistic 1221.031
## Degrees of freedom 430
## P-value (Chi-square) 0.000
##
## Parameter Estimates:
##
## Standard errors Standard
## Information Expected
## Information saturated (h1) model Structured
##
## Latent Variables:
## Estimate Std.Err z-value P(>|z|)
## desapego =~
## RPD01 1.000
## RPD02 1.206 0.082 14.780 0.000
## RPD03 1.143 0.085 13.374 0.000
## RPD05 1.312 0.086 15.244 0.000
## RPD06 1.088 0.089 12.266 0.000
## RPD07 1.229 0.085 14.440 0.000
## RPD08 1.164 0.087 13.447 0.000
## RPD09 1.317 0.087 15.153 0.000
## RPD10 1.346 0.088 15.258 0.000
## relajacion =~
## RRE02 1.000
## RRE03 1.120 0.065 17.227 0.000
## RRE04 1.025 0.058 17.713 0.000
## RRE05 1.055 0.056 18.758 0.000
## RRE06 1.245 0.074 16.869 0.000
## RRE07 1.117 0.071 15.689 0.000
## RRE10 0.815 0.067 12.120 0.000
## dominio =~
## RMA02 1.000
## RMA03 1.155 0.096 12.079 0.000
## RMA04 1.178 0.089 13.274 0.000
## RMA05 1.141 0.087 13.072 0.000
## RMA06 0.645 0.075 8.597 0.000
## RMA07 1.103 0.084 13.061 0.000
## RMA08 1.109 0.085 12.994 0.000
## RMA09 1.028 0.084 12.246 0.000
## RMA10 1.055 0.088 12.044 0.000
## control =~
## RCO02 1.000
## RCO03 0.948 0.049 19.182 0.000
## RCO04 0.796 0.044 18.110 0.000
## RCO05 0.818 0.043 18.990 0.000
## RCO06 0.834 0.046 18.216 0.000
## RCO07 0.835 0.046 18.057 0.000
## recuperacion =~
## desapego 1.000
## relajacion 1.149 0.131 8.787 0.000
## dominio 0.858 0.129 6.666 0.000
## control 1.341 0.156 8.605 0.000
##
## Variances:
## Estimate Std.Err z-value P(>|z|)
## .RPD01 1.172 0.120 9.782 0.000
## .RPD02 0.999 0.108 9.228 0.000
## .RPD03 1.441 0.148 9.733 0.000
## .RPD05 0.987 0.110 8.964 0.000
## .RPD06 1.817 0.182 9.967 0.000
## .RPD07 1.173 0.125 9.383 0.000
## .RPD08 1.460 0.150 9.714 0.000
## .RPD09 1.032 0.114 9.021 0.000
## .RPD10 1.034 0.115 8.955 0.000
## .RRE02 0.626 0.068 9.274 0.000
## .RRE03 0.653 0.073 9.011 0.000
## .RRE04 0.481 0.055 8.794 0.000
## .RRE05 0.374 0.046 8.153 0.000
## .RRE06 0.886 0.097 9.149 0.000
## .RRE07 0.950 0.100 9.505 0.000
## .RRE10 1.137 0.113 10.093 0.000
## .RMA02 1.740 0.175 9.931 0.000
## .RMA03 1.485 0.155 9.575 0.000
## .RMA04 0.855 0.097 8.772 0.000
## .RMA05 0.899 0.100 8.967 0.000
## .RMA06 1.631 0.159 10.281 0.000
## .RMA07 0.845 0.094 8.977 0.000
## .RMA08 0.886 0.098 9.034 0.000
## .RMA09 1.094 0.115 9.500 0.000
## .RMA10 1.259 0.131 9.590 0.000
## .RCO02 0.983 0.105 9.379 0.000
## .RCO03 0.484 0.058 8.391 0.000
## .RCO04 0.462 0.052 8.963 0.000
## .RCO05 0.382 0.045 8.513 0.000
## .RCO06 0.494 0.055 8.917 0.000
## .RCO07 0.515 0.057 8.985 0.000
## .desapego 0.943 0.152 6.207 0.000
## .relajacion 0.333 0.089 3.757 0.000
## .dominio 1.260 0.212 5.942 0.000
## .control 0.900 0.159 5.666 0.000
## recuperacion 0.978 0.202 4.833 0.000lavaanPlot(fit, coef= TRUE, cov=TRUE)Modelo Depurado
modelo_depurado <- ' # Regresiones
# Variables Latentes
desapego =~ RPD01 + RPD02 + RPD03 + RPD05 + RPD07 + RPD08 + RPD09 + RPD10
relajacion =~ RRE02 + RRE03 + RRE04 + RRE05 + RRE06 + RRE07
dominio =~ RMA02 + RMA03 + RMA04 + RMA05 + RMA07 + RMA08 + RMA09 + RMA10
control =~ RCO02 + RCO03 + RCO05 + RCO06 + RCO07
recuperacion =~ desapego + relajacion + dominio + control
# Varianza y Covarianzas
# Intercepto
'Generar el Análisis Factorial Confirmatorio (CFA) depurado
fit_depurado <- cfa(modelo_depurado, datos_sem)
summary(fit_depurado)## lavaan 0.6.17 ended normally after 48 iterations
##
## Estimator ML
## Optimization method NLMINB
## Number of model parameters 58
##
## Number of observations 223
##
## Model Test User Model:
##
## Test statistic 886.791
## Degrees of freedom 320
## P-value (Chi-square) 0.000
##
## Parameter Estimates:
##
## Standard errors Standard
## Information Expected
## Information saturated (h1) model Structured
##
## Latent Variables:
## Estimate Std.Err z-value P(>|z|)
## desapego =~
## RPD01 1.000
## RPD02 1.204 0.079 15.158 0.000
## RPD03 1.146 0.083 13.750 0.000
## RPD05 1.310 0.084 15.663 0.000
## RPD07 1.219 0.083 14.675 0.000
## RPD08 1.114 0.086 13.004 0.000
## RPD09 1.301 0.085 15.315 0.000
## RPD10 1.328 0.086 15.404 0.000
## relajacion =~
## RRE02 1.000
## RRE03 1.111 0.064 17.245 0.000
## RRE04 1.025 0.057 17.974 0.000
## RRE05 1.054 0.055 19.046 0.000
## RRE06 1.237 0.073 16.904 0.000
## RRE07 1.105 0.071 15.618 0.000
## dominio =~
## RMA02 1.000
## RMA03 1.155 0.095 12.223 0.000
## RMA04 1.176 0.088 13.412 0.000
## RMA05 1.140 0.086 13.220 0.000
## RMA07 1.091 0.083 13.067 0.000
## RMA08 1.103 0.084 13.087 0.000
## RMA09 1.020 0.083 12.287 0.000
## RMA10 1.049 0.087 12.097 0.000
## control =~
## RCO02 1.000
## RCO03 0.944 0.051 18.648 0.000
## RCO05 0.820 0.044 18.683 0.000
## RCO06 0.840 0.046 18.083 0.000
## RCO07 0.842 0.047 18.010 0.000
## recuperacion =~
## desapego 1.000
## relajacion 1.145 0.132 8.696 0.000
## dominio 0.843 0.129 6.525 0.000
## control 1.356 0.159 8.549 0.000
##
## Variances:
## Estimate Std.Err z-value P(>|z|)
## .RPD01 1.134 0.117 9.697 0.000
## .RPD02 0.956 0.105 9.070 0.000
## .RPD03 1.381 0.143 9.629 0.000
## .RPD05 0.932 0.107 8.749 0.000
## .RPD07 1.162 0.125 9.304 0.000
## .RPD08 1.629 0.166 9.815 0.000
## .RPD09 1.053 0.117 8.980 0.000
## .RPD10 1.061 0.119 8.926 0.000
## .RRE02 0.612 0.067 9.179 0.000
## .RRE03 0.666 0.074 8.988 0.000
## .RRE04 0.467 0.054 8.651 0.000
## .RRE05 0.361 0.045 7.940 0.000
## .RRE06 0.898 0.098 9.119 0.000
## .RRE07 0.974 0.102 9.502 0.000
## .RMA02 1.720 0.174 9.901 0.000
## .RMA03 1.456 0.153 9.519 0.000
## .RMA04 0.839 0.097 8.681 0.000
## .RMA05 0.879 0.099 8.876 0.000
## .RMA07 0.874 0.097 9.009 0.000
## .RMA08 0.884 0.098 8.993 0.000
## .RMA09 1.105 0.116 9.490 0.000
## .RMA10 1.265 0.132 9.573 0.000
## .RCO02 0.999 0.109 9.187 0.000
## .RCO03 0.517 0.063 8.171 0.000
## .RCO05 0.385 0.047 8.145 0.000
## .RCO06 0.482 0.056 8.540 0.000
## .RCO07 0.495 0.058 8.582 0.000
## .desapego 0.985 0.157 6.286 0.000
## .relajacion 0.360 0.092 3.917 0.000
## .dominio 1.309 0.218 5.994 0.000
## .control 0.850 0.159 5.341 0.000
## recuperacion 0.974 0.203 4.795 0.000lavaanPlot(fit_depurado, coef= TRUE, cov=TRUE)Parte 2. Energía Recuperada
Estructurar el modelo
modelo2 <- ' # Regresiones
# Variables Latentes
energia =~ EN01+ EN02+ EN04 + EN05 + EN06 + EN07 + EN08
# Varianza y Covarianzas
# Intercepto
'Generar el Análisis Factorial Confirmatorio (CFA)
fit2 <- cfa(modelo2, datos_sem)
summary(fit2)## lavaan 0.6.17 ended normally after 32 iterations
##
## Estimator ML
## Optimization method NLMINB
## Number of model parameters 14
##
## Number of observations 223
##
## Model Test User Model:
##
## Test statistic 47.222
## Degrees of freedom 14
## P-value (Chi-square) 0.000
##
## Parameter Estimates:
##
## Standard errors Standard
## Information Expected
## Information saturated (h1) model Structured
##
## Latent Variables:
## Estimate Std.Err z-value P(>|z|)
## energia =~
## EN01 1.000
## EN02 1.029 0.044 23.192 0.000
## EN04 0.999 0.044 22.583 0.000
## EN05 0.999 0.042 23.649 0.000
## EN06 0.986 0.042 23.722 0.000
## EN07 1.049 0.046 22.856 0.000
## EN08 1.036 0.043 24.173 0.000
##
## Variances:
## Estimate Std.Err z-value P(>|z|)
## .EN01 0.711 0.074 9.651 0.000
## .EN02 0.444 0.049 9.012 0.000
## .EN04 0.481 0.052 9.214 0.000
## .EN05 0.375 0.042 8.830 0.000
## .EN06 0.359 0.041 8.798 0.000
## .EN07 0.499 0.055 9.129 0.000
## .EN08 0.353 0.041 8.580 0.000
## energia 2.801 0.327 8.565 0.000lavaanPlot(fit2, coef= TRUE, cov=TRUE)Después de evaluar los valores estimativos, los errores estándar y el p-value, determinamos innecesario depurar el modelo.
Parte 3. Engagement laboral
Estructurar el modelo
modelo3 <- ' # Regresiones
# Variables Latentes
vigor =~ EVI01 + EVI02 + EVI03
dedicacion =~ EDE01 + EDE02 + EDE03
absorcion =~ EAB01 + EAB02
engagement =~ vigor + dedicacion + absorcion
# Varianza y Covarianzas
# Intercepto
'Generar el Análisis Factorial Confirmatorio (CFA)
fit3 <- cfa(modelo3, datos_sem)## Warning in lav_object_post_check(object): lavaan WARNING: some estimated lv
## variances are negativesummary(fit3)## lavaan 0.6.17 ended normally after 34 iterations
##
## Estimator ML
## Optimization method NLMINB
## Number of model parameters 19
##
## Number of observations 223
##
## Model Test User Model:
##
## Test statistic 203.167
## Degrees of freedom 17
## P-value (Chi-square) 0.000
##
## Parameter Estimates:
##
## Standard errors Standard
## Information Expected
## Information saturated (h1) model Structured
##
## Latent Variables:
## Estimate Std.Err z-value P(>|z|)
## vigor =~
## EVI01 1.000
## EVI02 0.986 0.028 35.155 0.000
## EVI03 0.995 0.049 20.476 0.000
## dedicacion =~
## EDE01 1.000
## EDE02 0.912 0.035 26.335 0.000
## EDE03 0.578 0.037 15.767 0.000
## absorcion =~
## EAB01 1.000
## EAB02 0.658 0.053 12.526 0.000
## engagement =~
## vigor 1.000
## dedicacion 1.280 0.069 18.579 0.000
## absorcion 1.012 0.061 16.461 0.000
##
## Variances:
## Estimate Std.Err z-value P(>|z|)
## .EVI01 0.200 0.040 4.964 0.000
## .EVI02 0.221 0.040 5.455 0.000
## .EVI03 1.218 0.125 9.770 0.000
## .EDE01 0.388 0.065 6.004 0.000
## .EDE02 0.498 0.066 7.599 0.000
## .EDE03 0.844 0.085 9.903 0.000
## .EAB01 0.387 0.124 3.118 0.002
## .EAB02 1.145 0.120 9.543 0.000
## .vigor 0.678 0.096 7.052 0.000
## .dedicacion -0.072 0.098 -0.734 0.463
## .absorcion 0.476 0.138 3.451 0.001
## engagement 2.158 0.281 7.691 0.000lavaanPlot(fit3, coef= TRUE, cov=TRUE)modelo4 <- ' # Regresiones
# Variables Latentes 1
desapego =~ RPD01 + RPD02 + RPD03 + RPD05 + RPD06 + RPD07 + RPD08 + RPD09 + RPD10
relajacion =~ RRE02 + RRE03 + RRE04 + RRE05 + RRE06 + RRE07 + RRE10
dominio =~ RMA02 + RMA03 + RMA04 + RMA05 + RMA06 + RMA07 + RMA08 + RMA09 + RMA10
control =~ RCO02 + RCO03 + RCO04 + RCO05 + RCO06 + RCO07
recuperacion =~ desapego + relajacion + dominio + control
# Variables Latentes 2
energia =~ EN01+ EN02+ EN04 + EN05 + EN06 + EN07 + EN08
# Variables Latentes 3
vigor =~ EVI01 + EVI02 + EVI03
dedicacion =~ EDE01 + EDE02 + EDE03
absorcion =~ EAB01 + EAB02
engagement =~ vigor + dedicacion + absorcion
# Varianza y Covarianzas
engagement ~~ energia + recuperacion
# Intercepto
'Generar el Análisis Factorial Confirmatorio (CFA)
fit4 <- sem(modelo4, datos_sem)
summary(fit4)## lavaan 0.6.17 ended normally after 73 iterations
##
## Estimator ML
## Optimization method NLMINB
## Number of model parameters 102
##
## Number of observations 223
##
## Model Test User Model:
##
## Test statistic 2395.225
## Degrees of freedom 979
## P-value (Chi-square) 0.000
##
## Parameter Estimates:
##
## Standard errors Standard
## Information Expected
## Information saturated (h1) model Structured
##
## Latent Variables:
## Estimate Std.Err z-value P(>|z|)
## desapego =~
## RPD01 1.000
## RPD02 1.209 0.081 14.866 0.000
## RPD03 1.144 0.085 13.419 0.000
## RPD05 1.313 0.086 15.317 0.000
## RPD06 1.082 0.089 12.214 0.000
## RPD07 1.229 0.085 14.487 0.000
## RPD08 1.157 0.086 13.375 0.000
## RPD09 1.315 0.087 15.163 0.000
## RPD10 1.343 0.088 15.247 0.000
## relajacion =~
## RRE02 1.000
## RRE03 1.120 0.065 17.295 0.000
## RRE04 1.021 0.058 17.626 0.000
## RRE05 1.051 0.056 18.687 0.000
## RRE06 1.246 0.074 16.924 0.000
## RRE07 1.121 0.071 15.837 0.000
## RRE10 0.814 0.067 12.134 0.000
## dominio =~
## RMA02 1.000
## RMA03 1.152 0.096 12.041 0.000
## RMA04 1.178 0.089 13.265 0.000
## RMA05 1.141 0.087 13.057 0.000
## RMA06 0.648 0.075 8.625 0.000
## RMA07 1.104 0.085 13.062 0.000
## RMA08 1.110 0.085 13.001 0.000
## RMA09 1.030 0.084 12.257 0.000
## RMA10 1.056 0.088 12.047 0.000
## control =~
## RCO02 1.000
## RCO03 0.945 0.049 19.172 0.000
## RCO04 0.794 0.044 18.100 0.000
## RCO05 0.814 0.043 18.926 0.000
## RCO06 0.837 0.045 18.409 0.000
## RCO07 0.836 0.046 18.206 0.000
## recuperacion =~
## desapego 1.000
## relajacion 1.070 0.121 8.838 0.000
## dominio 0.900 0.129 6.959 0.000
## control 1.424 0.157 9.063 0.000
## energia =~
## EN01 1.000
## EN02 1.027 0.044 23.416 0.000
## EN04 0.998 0.044 22.870 0.000
## EN05 0.996 0.042 23.836 0.000
## EN06 0.983 0.041 23.857 0.000
## EN07 1.045 0.045 22.964 0.000
## EN08 1.033 0.042 24.399 0.000
## vigor =~
## EVI01 1.000
## EVI02 0.985 0.028 35.255 0.000
## EVI03 0.996 0.048 20.570 0.000
## dedicacion =~
## EDE01 1.000
## EDE02 0.905 0.034 26.515 0.000
## EDE03 0.567 0.037 15.447 0.000
## absorcion =~
## EAB01 1.000
## EAB02 0.656 0.053 12.368 0.000
## engagement =~
## vigor 1.000
## dedicacion 1.216 0.061 20.023 0.000
## absorcion 0.984 0.057 17.202 0.000
##
## Covariances:
## Estimate Std.Err z-value P(>|z|)
## energia ~~
## engagement 1.616 0.222 7.269 0.000
## recuperacion ~~
## engagement 0.893 0.152 5.888 0.000
## energia 1.365 0.197 6.933 0.000
##
## Variances:
## Estimate Std.Err z-value P(>|z|)
## .RPD01 1.168 0.119 9.781 0.000
## .RPD02 0.982 0.107 9.202 0.000
## .RPD03 1.434 0.147 9.729 0.000
## .RPD05 0.972 0.109 8.938 0.000
## .RPD06 1.837 0.184 9.980 0.000
## .RPD07 1.165 0.124 9.377 0.000
## .RPD08 1.486 0.153 9.740 0.000
## .RPD09 1.037 0.115 9.036 0.000
## .RPD10 1.046 0.116 8.984 0.000
## .RRE02 0.623 0.067 9.252 0.000
## .RRE03 0.647 0.072 8.976 0.000
## .RRE04 0.492 0.056 8.829 0.000
## .RRE05 0.384 0.047 8.202 0.000
## .RRE06 0.880 0.097 9.122 0.000
## .RRE07 0.930 0.098 9.460 0.000
## .RRE10 1.136 0.113 10.087 0.000
## .RMA02 1.741 0.175 9.935 0.000
## .RMA03 1.499 0.156 9.594 0.000
## .RMA04 0.857 0.098 8.785 0.000
## .RMA05 0.903 0.101 8.983 0.000
## .RMA06 1.626 0.158 10.280 0.000
## .RMA07 0.844 0.094 8.979 0.000
## .RMA08 0.882 0.098 9.031 0.000
## .RMA09 1.090 0.115 9.498 0.000
## .RMA10 1.257 0.131 9.592 0.000
## .RCO02 0.977 0.104 9.391 0.000
## .RCO03 0.493 0.058 8.475 0.000
## .RCO04 0.468 0.052 9.017 0.000
## .RCO05 0.393 0.046 8.621 0.000
## .RCO06 0.479 0.054 8.883 0.000
## .RCO07 0.505 0.056 8.972 0.000
## .EN01 0.696 0.072 9.660 0.000
## .EN02 0.443 0.049 9.063 0.000
## .EN04 0.473 0.051 9.236 0.000
## .EN05 0.378 0.042 8.907 0.000
## .EN06 0.366 0.041 8.899 0.000
## .EN07 0.507 0.055 9.209 0.000
## .EN08 0.353 0.041 8.658 0.000
## .EVI01 0.199 0.039 5.056 0.000
## .EVI02 0.224 0.040 5.637 0.000
## .EVI03 1.211 0.124 9.770 0.000
## .EDE01 0.352 0.064 5.529 0.000
## .EDE02 0.509 0.067 7.646 0.000
## .EDE03 0.874 0.088 9.945 0.000
## .EAB01 0.379 0.128 2.953 0.003
## .EAB02 1.149 0.121 9.491 0.000
## .desapego 0.953 0.149 6.397 0.000
## .relajacion 0.514 0.085 6.027 0.000
## .dominio 1.191 0.200 5.956 0.000
## .control 0.693 0.125 5.534 0.000
## recuperacion 0.972 0.199 4.892 0.000
## energia 2.816 0.327 8.605 0.000
## .vigor 0.536 0.084 6.413 0.000
## .dedicacion 0.099 0.087 1.131 0.258
## .absorcion 0.469 0.138 3.392 0.001
## engagement 2.300 0.284 8.099 0.000lavaanPlot(fit4, coef= TRUE, cov=TRUE)LS0tDQp0aXRsZTogIk1vZGVsb3MgZGUgZWN1YWNpb25lcyINCmF1dGhvcjogIkdlcmFyZG8gSmF2aWVyIEdhcnphIFJhbWlyZXogLSBBMDEzODMyODciDQpkYXRlOiAiMjAyNC0wMi0yOSINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCg0KIVtdKGh0dHBzOi8vaS5waW5pbWcuY29tL29yaWdpbmFscy82NS80MC8yYS82NTQwMmFjOTRiMTY4MTNkOWVkMWU1OWY4ZGM2OTY1OC5naWYpDQoNCiMgVGVvcsOtYQ0KW1IgTWFya2Rvd25dKGh0dHBzOi8vcnB1YnMuY29tL0dlcmFyZG9najEzL0VzY3VlbGFzKSANCg0KIyBDb250ZXh0bw0KVW5vIGRlIGxvcyByZXRvcyBtw6FzIGltcG9ydGFudGVzIGRlIGxhcyBvcmdhbml6YWNpb25lcyBlcyBlbnRlbmRlciBlbCBlc3RhZG8geSBiaWVuZXN0YXIgZGUgbG9zIGNvbGFib3JhZG9yZXMsIHlhIHF1ZSBwdWVkZSBpbXBhY3RhciBkaXJlY3RhbWVudGUgZW4gZWwgZGVzZW1wZcOxbyB5IGVsIGxvZ3JvIGRlIGxvcyBvYmpldGl2b3MuIA0KDQojIFBhcnRlIDEuIEV4cGVyaWVuY2lhcyBkZSBSZWN1cGVyYWNpw7NuDQoNCiMjIEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXMNCmBgYHtyfQ0KbGlicmFyeShsYXZhYW4pDQpsaWJyYXJ5KGxhdmFhblBsb3QpDQpsaWJyYXJ5KHJlYWR4bCkNCmBgYA0KDQojIyBJbXBvcnRhciBiYXNlIGRlIGRhdG9zDQpgYGB7cn0NCmxpYnJhcnkocmVhZHhsKQ0KZGF0b3Nfc2VtIDwtIHJlYWRfZXhjZWwoIkM6XFxVc2Vyc1xcVVNFUlxcT25lRHJpdmVcXERvY3VtZW50b3NcXERhdG9zX1NFTV9FbmcueGxzeCIpDQpgYGANCg0KYGBge3J9DQpzdW1tYXJ5KGRhdG9zX3NlbSkNCnN0cihkYXRvc19zZW0pDQpgYGANCg0KIyMgVGlwb3MgZGUgRsOzcm11bGFzDQoxLiBSZWdyZXNpw7NuICh+KSBWYXJpYWJsZSBxdWUgZGVwZW5kZSBkZSBvdHJhcy4gICAgICAgICAgIA0KMi4gVmFyaWFibGVzIGxhdGVudGVzICg9fikgIE5vIHNlIG9ic2VydmEsIHNlIGluZmlyZXJlLiAgICAgICAgICAgIA0KMy4gVmFyaWFuemFzIHkgY292YXJpYW56YXMgKH5+KSBSZWxhY2lvbmVzIGVudHJlIHZhcmlhYmxlcyBsYXRlbnRlcyB5IG9ic2VydmFkYXMgKHZhcmlhbnphIGVudHJlIHPDrSBtaXNtYSwgY292YXJpYXphIGN1YW5kbyBjb21wYXJhcyBlbnRyZSBvdHJhcykuICAgICAgICAgDQo0LiBJbnRlcmNlcHRvICh+MSkgVmFsb3IgZXNwZXJhZG8gY3VhbmRvIGxhcyBkZW3DoXMgdmFyaWFibGVzIHNvbiBjZXJvLiAgDQoNCiMjIEVzdHJ1Y3R1cmFyIGVsIG1vZGVsbw0KYGBge3J9DQptb2RlbG8xIDwtICcgIyBSZWdyZXNpb25lcw0KICAgICAgICAgICAgIyBWYXJpYWJsZXMgTGF0ZW50ZXMNCiAgICAgICAgICAgIGRlc2FwZWdvID1+IFJQRDAxICsgUlBEMDIgKyBSUEQwMyArIFJQRDA1ICsgUlBEMDYgKyBSUEQwNyArIFJQRDA4ICsgUlBEMDkgKyBSUEQxMA0KICAgICAgICAgICAgcmVsYWphY2lvbiA9fiBSUkUwMiArIFJSRTAzICsgUlJFMDQgKyBSUkUwNSArIFJSRTA2ICsgUlJFMDcgKyBSUkUxMA0KICAgICAgICAgICAgZG9taW5pbyA9fiBSTUEwMiArIFJNQTAzICsgUk1BMDQgKyBSTUEwNSArIFJNQTA2ICsgUk1BMDcgKyBSTUEwOCArIFJNQTA5ICsgUk1BMTANCiAgICAgICAgICAgIGNvbnRyb2wgPX4gUkNPMDIgKyBSQ08wMyArIFJDTzA0ICsgUkNPMDUgKyBSQ08wNiArIFJDTzA3DQogICAgICAgICAgICByZWN1cGVyYWNpb24gPX4gZGVzYXBlZ28gKyByZWxhamFjaW9uICsgZG9taW5pbyArIGNvbnRyb2wNCiAgICAgICAgICAgICMgVmFyaWFuemEgeSBDb3Zhcmlhbnphcw0KICAgICAgICAgIA0KICAgICAgICAgICAgIyBJbnRlcmNlcHRvDQogICAgICAgICAgICAnDQpgYGANCg0KIyMgR2VuZXJhciBlbCBBbsOhbGlzaXMgRmFjdG9yaWFsIENvbmZpcm1hdG9yaW8gKENGQSkNCmBgYHtyfQ0KZml0IDwtIGNmYShtb2RlbG8xLCBkYXRvc19zZW0pDQpzdW1tYXJ5KGZpdCkNCmxhdmFhblBsb3QoZml0LCBjb2VmPSBUUlVFLCBjb3Y9VFJVRSkNCmBgYA0KDQojIE1vZGVsbyBEZXB1cmFkbw0KYGBge3J9DQptb2RlbG9fZGVwdXJhZG8gPC0gJyAjIFJlZ3Jlc2lvbmVzDQogICAgICAgICAgICAjIFZhcmlhYmxlcyBMYXRlbnRlcw0KICAgICAgICAgICAgZGVzYXBlZ28gPX4gUlBEMDEgKyBSUEQwMiArIFJQRDAzICsgUlBEMDUgICsgUlBEMDcgKyBSUEQwOCArIFJQRDA5ICsgUlBEMTANCiAgICAgICAgICAgIHJlbGFqYWNpb24gPX4gUlJFMDIgKyBSUkUwMyArIFJSRTA0ICsgUlJFMDUgKyBSUkUwNiArIFJSRTA3IA0KICAgICAgICAgICAgZG9taW5pbyA9fiBSTUEwMiArIFJNQTAzICsgUk1BMDQgKyBSTUEwNSAgKyBSTUEwNyArIFJNQTA4ICsgUk1BMDkgKyBSTUExMA0KICAgICAgICAgICAgY29udHJvbCA9fiBSQ08wMiArIFJDTzAzICsgUkNPMDUgKyBSQ08wNiArIFJDTzA3DQogICAgICAgICAgICByZWN1cGVyYWNpb24gPX4gZGVzYXBlZ28gKyByZWxhamFjaW9uICsgZG9taW5pbyArIGNvbnRyb2wNCiAgICAgICAgICAgICMgVmFyaWFuemEgeSBDb3Zhcmlhbnphcw0KICAgICAgICAgIA0KICAgICAgICAgICAgIyBJbnRlcmNlcHRvDQogICAgICAgICAgICAnDQpgYGANCg0KIyMgR2VuZXJhciBlbCBBbsOhbGlzaXMgRmFjdG9yaWFsIENvbmZpcm1hdG9yaW8gKENGQSkgZGVwdXJhZG8NCmBgYHtyfQ0KZml0X2RlcHVyYWRvIDwtIGNmYShtb2RlbG9fZGVwdXJhZG8sIGRhdG9zX3NlbSkNCnN1bW1hcnkoZml0X2RlcHVyYWRvKQ0KbGF2YWFuUGxvdChmaXRfZGVwdXJhZG8sIGNvZWY9IFRSVUUsIGNvdj1UUlVFKQ0KYGBgDQoNCg0KIyBQYXJ0ZSAyLiBFbmVyZ8OtYSBSZWN1cGVyYWRhDQoNCiMjIEVzdHJ1Y3R1cmFyIGVsIG1vZGVsbw0KYGBge3J9DQptb2RlbG8yIDwtICcgIyBSZWdyZXNpb25lcw0KICAgICAgICAgICAgIyBWYXJpYWJsZXMgTGF0ZW50ZXMNCiAgICAgICAgICAgIGVuZXJnaWEgPX4gRU4wMSsgRU4wMisgRU4wNCArIEVOMDUgKyBFTjA2ICsgRU4wNyArIEVOMDgNCiAgICAgICAgICAgIA0KICAgICAgICAgICAgIyBWYXJpYW56YSB5IENvdmFyaWFuemFzDQogICAgICAgICAgDQogICAgICAgICAgICAjIEludGVyY2VwdG8NCiAgICAgICAgICAgICcNCmBgYA0KDQojIyBHZW5lcmFyIGVsIEFuw6FsaXNpcyBGYWN0b3JpYWwgQ29uZmlybWF0b3JpbyAoQ0ZBKQ0KYGBge3J9DQpmaXQyIDwtIGNmYShtb2RlbG8yLCBkYXRvc19zZW0pDQpzdW1tYXJ5KGZpdDIpDQpsYXZhYW5QbG90KGZpdDIsIGNvZWY9IFRSVUUsIGNvdj1UUlVFKQ0KYGBgDQoNCkRlc3B1w6lzIGRlIGV2YWx1YXIgbG9zIHZhbG9yZXMgZXN0aW1hdGl2b3MsIGxvcyBlcnJvcmVzIGVzdMOhbmRhciB5IGVsIHAtdmFsdWUsIGRldGVybWluYW1vcyBpbm5lY2VzYXJpbyBkZXB1cmFyIGVsIG1vZGVsby4NCg0KIyBQYXJ0ZSAzLiBFbmdhZ2VtZW50IGxhYm9yYWwNCg0KIyMgRXN0cnVjdHVyYXIgZWwgbW9kZWxvDQpgYGB7cn0NCm1vZGVsbzMgPC0gJyAjIFJlZ3Jlc2lvbmVzDQogICAgICAgICAgICAjIFZhcmlhYmxlcyBMYXRlbnRlcw0KICAgICAgICAgICAgdmlnb3IgPX4gRVZJMDEgKyBFVkkwMiArIEVWSTAzDQogICAgICAgICAgICBkZWRpY2FjaW9uID1+IEVERTAxICsgRURFMDIgKyBFREUwMw0KICAgICAgICAgICAgYWJzb3JjaW9uID1+IEVBQjAxICsgRUFCMDINCiAgICAgICAgICAgIGVuZ2FnZW1lbnQgPX4gdmlnb3IgKyBkZWRpY2FjaW9uICsgYWJzb3JjaW9uDQogICAgICAgICAgICAjIFZhcmlhbnphIHkgQ292YXJpYW56YXMNCiAgICAgICAgICAgICMgSW50ZXJjZXB0bw0KICAgICAgICAgICAgJw0KYGBgDQoNCiMjIEdlbmVyYXIgZWwgQW7DoWxpc2lzIEZhY3RvcmlhbCBDb25maXJtYXRvcmlvIChDRkEpDQpgYGB7cn0NCmZpdDMgPC0gY2ZhKG1vZGVsbzMsIGRhdG9zX3NlbSkNCnN1bW1hcnkoZml0MykNCmxhdmFhblBsb3QoZml0MywgY29lZj0gVFJVRSwgY292PVRSVUUpDQpgYGANCg0KYGBge3J9DQptb2RlbG80IDwtICcgIyBSZWdyZXNpb25lcw0KICAgICAgICAgICAjIFZhcmlhYmxlcyBMYXRlbnRlcyAxDQogICAgICAgICAgICBkZXNhcGVnbyA9fiBSUEQwMSArIFJQRDAyICsgUlBEMDMgKyBSUEQwNSArIFJQRDA2ICsgUlBEMDcgKyBSUEQwOCArIFJQRDA5ICsgUlBEMTANCiAgICAgICAgICAgIHJlbGFqYWNpb24gPX4gUlJFMDIgKyBSUkUwMyArIFJSRTA0ICsgUlJFMDUgKyBSUkUwNiArIFJSRTA3ICsgUlJFMTANCiAgICAgICAgICAgIGRvbWluaW8gPX4gUk1BMDIgKyBSTUEwMyArIFJNQTA0ICsgUk1BMDUgKyBSTUEwNiArIFJNQTA3ICsgUk1BMDggKyBSTUEwOSArIFJNQTEwDQogICAgICAgICAgICBjb250cm9sID1+IFJDTzAyICsgUkNPMDMgKyBSQ08wNCArIFJDTzA1ICsgUkNPMDYgKyBSQ08wNw0KICAgICAgICAgICAgcmVjdXBlcmFjaW9uID1+IGRlc2FwZWdvICsgcmVsYWphY2lvbiArIGRvbWluaW8gKyBjb250cm9sDQogICAgICAgICAgICANCiAgICAgICAgICAgICMgVmFyaWFibGVzIExhdGVudGVzIDINCiAgICAgICAgICAgIGVuZXJnaWEgPX4gRU4wMSsgRU4wMisgRU4wNCArIEVOMDUgKyBFTjA2ICsgRU4wNyArIEVOMDgNCiAgICAgICAgICAgIA0KICAgICAgICAgICAgICMgVmFyaWFibGVzIExhdGVudGVzIDMNCiAgICAgICAgICAgIHZpZ29yID1+IEVWSTAxICsgRVZJMDIgKyBFVkkwMw0KICAgICAgICAgICAgZGVkaWNhY2lvbiA9fiBFREUwMSArIEVERTAyICsgRURFMDMNCiAgICAgICAgICAgIGFic29yY2lvbiA9fiBFQUIwMSArIEVBQjAyDQogICAgICAgICAgICBlbmdhZ2VtZW50ID1+IHZpZ29yICsgZGVkaWNhY2lvbiArIGFic29yY2lvbg0KICAgICAgICAgICAgDQogICAgICAgICAgICAjIFZhcmlhbnphIHkgQ292YXJpYW56YXMNCiAgICAgICAgICAgIGVuZ2FnZW1lbnQgfn4gZW5lcmdpYSArIHJlY3VwZXJhY2lvbg0KICAgICAgICAgICAgDQogICAgICAgICAgICAjIEludGVyY2VwdG8NCiAgICAgICAgICAgICcNCmBgYA0KDQojIyBHZW5lcmFyIGVsIEFuw6FsaXNpcyBGYWN0b3JpYWwgQ29uZmlybWF0b3JpbyAoQ0ZBKQ0KYGBge3J9DQpmaXQ0IDwtIHNlbShtb2RlbG80LCBkYXRvc19zZW0pDQpzdW1tYXJ5KGZpdDQpDQpsYXZhYW5QbG90KGZpdDQsIGNvZWY9IFRSVUUsIGNvdj1UUlVFKQ0KYGBg