Evidencia 2 FORM
Vanessa Elizondo A00827672
2022-10-03
knitr::include_url("https://form.com.mx/")1. Recursos Humanos
Importar la base de datos
Observaciones: En el area de Recursos Humanos vamos a importar dos diferentes bases de datos, esto para poder analizar la información en base a los empleados que se han dado de baja y los colaboradores/empleados actuales de FORM. Por lo que una base de datos se llama “rh_C” (Colaboradores) y la otra “rh_B” (Bajas).
#file.choose()
rh_C <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/hr.colabscsv 1.csv")
summary(rh_C)## No..De.Empleado APELLIDOS NOMBRE FECHA.DE.NACIMIENTO
## Min. : 1.00 Length:113 Length:113 Length:113
## 1st Qu.: 31.00 Class :character Class :character Class :character
## Median : 63.00 Mode :character Mode :character Mode :character
## Mean : 75.86
## 3rd Qu.:127.00
## Max. :169.00
## EDAD GENERO RFC FECHA.DE.ALTA
## Min. : 0.00 Length:113 Length:113 Length:113
## 1st Qu.:25.00 Class :character Class :character Class :character
## Median :33.00 Mode :character Mode :character Mode :character
## Mean :35.74
## 3rd Qu.:45.00
## Max. :73.00
## PRIMER.MES CUARTO.MES BAJA PUESTO
## Length:113 Length:113 Min. :0.0000 Length:113
## Class :character Class :character 1st Qu.:0.0000 Class :character
## Mode :character Mode :character Median :0.0000 Mode :character
## Mean :0.3451
## 3rd Qu.:0.0000
## Max. :3.0000
## DEPARTAMENTO SALARIO.DIARIO.IMSS FACTOR.CRED.INFONAVIT
## Length:113 Min. :144.4 Min. : 0
## Class :character 1st Qu.:176.7 1st Qu.: 0
## Mode :character Median :180.7 Median : 0
## Mean :181.2 Mean : 2244
## 3rd Qu.:180.7 3rd Qu.: 0
## Max. :441.4 Max. :182096
## N..CREDITO.INFONAVIT LUGAR.DE.NACIMIENTO CURP CALLE
## Min. :0.000e+00 Length:113 Length:113 Length:113
## 1st Qu.:0.000e+00 Class :character Class :character Class :character
## Median :0.000e+00 Mode :character Mode :character Mode :character
## Mean :6.770e+07
## 3rd Qu.:0.000e+00
## Max. :1.922e+09
## NUMERO.INTERNO COLONIA MUNICIPIO ESTADO
## Length:113 Length:113 Length:113 Length:113
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## CODIGO.POSTAL ESTADO.CIVIL TARJETA.CUENTA
## Min. :25016 Length:113 Length:113
## 1st Qu.:66640 Class :character Class :character
## Median :66646 Mode :character Mode :character
## Mean :63365
## 3rd Qu.:66649
## Max. :67493rh_B <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/HR_Bajas 2.csv")
summary(rh_B)## NO.DE.BAJAS APELLIDOS NOMBRE FECHA.DE.NACIMIENTO
## Min. : 5.00 Length:78 Length:78 Min. :25585
## 1st Qu.: 49.75 Class :character Class :character 1st Qu.:31751
## Median :167.50 Mode :character Mode :character Median :33797
## Mean :139.60 Mean :33611
## 3rd Qu.:212.75 3rd Qu.:36518
## Max. :238.00 Max. :44632
## EDAD GENERO FECHA.DE.ALTA MOTIVO.DE.BAJA
## Min. : 0.00 Length:78 Min. :43961 Length:78
## 1st Qu.:22.25 Class :character 1st Qu.:44566 Class :character
## Median :30.00 Mode :character Median :44726 Mode :character
## Mean :30.50 Mean :44664
## 3rd Qu.:36.00 3rd Qu.:44759
## Max. :52.00 Max. :44790
## DIAS.TRABAJADOS BAJA PUESTO DEPARTAMENTO
## Min. : 0.00 Min. :44569 Length:78 Length:78
## 1st Qu.: 9.00 1st Qu.:44613 Class :character Class :character
## Median : 19.00 Median :44741 Mode :character Mode :character
## Mean : 45.10 Mean :44709
## 3rd Qu.: 39.75 3rd Qu.:44784
## Max. :730.00 Max. :44814
## NO.SEGURO.SOCIAL SALARIO.DIARIO.IMSS FACTOR.CRED.INFONAVIT
## Length:78 Min. :151.6 Min. : 0.0
## Class :character 1st Qu.:180.7 1st Qu.: 0.0
## Mode :character Median :180.7 Median : 0.0
## Mean :174.3 Mean : 130.4
## 3rd Qu.:180.7 3rd Qu.: 0.0
## Max. :183.7 Max. :2795.3
## NO.CREDITO.INFONAVIT LUGAR.DE.NACIMIENTO CURP CALLE
## Min. :0.000e+00 Length:78 Length:78 Length:78
## 1st Qu.:0.000e+00 Class :character Class :character Class :character
## Median :0.000e+00 Mode :character Mode :character Mode :character
## Mean :1.871e+08
## 3rd Qu.:0.000e+00
## Max. :6.919e+09
## NUMERO.INTERNO COLONIA CODIGO.POSTAL MUNICIPIO
## Length:78 Length:78 Min. :25019 Length:78
## Class :character Class :character 1st Qu.:33604 Class :character
## Mode :character Mode :character Median :33604 Mode :character
## Mean :46508
## 3rd Qu.:66645
## Max. :67450
## ESTADO ESTADO.CIVIL TARJETA.CUENTA
## Length:78 Length:78 Length:78
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
## Sección 1
Limpieza transformación y organización de base de datos.
Observaciones
Como parte de la limpieza de datos de ambos documentos, se realizaron los promedios de los valores faltantes de forma manual en Excel.
Ambas bases de datos tuvieron que ser ajustadas manualmente en el excel para organizar la información de una manera más fácil de entender y para asegurarnos de que las variables más relevantes sean observadas de la manera adecuada por el programa de R Studio.
A partir de esta parte del documento, el análisis estará dividido en dos partes. En la primera se analizará la base de datos con la información de los colaboradores actuales de la empresa, mientras que en la segunda se analizarán los datos de aquellos empleados que ya fueron bajas por motivos de despido, renuncia voluntaria, entre otros.
Descargar librerías y paquetes
#library(foreign)
#library(dplyr) # data manipulation
#library(forcats) # to work with categorical variables
#library(ggplot2) # data visualization
#library(readr) # read specific csv files
#library(janitor) # data exploration and cleaning
#library(Hmisc) # several useful functions for data analysis
#library(psych) # functions for multivariate analysis
#library(naniar) # summaries and visualization of missing values NAs
#library(dlookr) # summaries and visualization of missing values NAs
#library(corrplot) # correlation plots
#library(jtools) # presentation of regression analysis
#library(lmtest) # diagnostic checks - linear regression analysis
#library(car) # diagnostic checks - linear regression analysis
#library(olsrr) # diagnostic checks - linear regression analysis
#library(kableExtra) # HTML table attributes
#library(gmodels)
#library(openxlsx)
#library(crosstable)Base de datos: COLABORADORES de RH
Cuantas variables y registros hay
str(rh_C)## 'data.frame': 113 obs. of 26 variables:
## $ No..De.Empleado : int 1 2 3 4 5 6 7 8 9 10 ...
## $ APELLIDOS : chr "MARTINEZ DE LOERA" "DE LEON MORENO" "HERNANDEZ CERVANTES" "CAZARES MORALES" ...
## $ NOMBRE : chr "NICOLAS" "MARIANA" "JOSE LUIS" "MARIA" ...
## $ FECHA.DE.NACIMIENTO : chr "10/09/55" "14/05/79" "21/11/49" "01/05/90" ...
## $ EDAD : int 67 43 73 32 57 38 55 26 27 37 ...
## $ GENERO : chr "MASCULINO" "FEMENINO" "MASCULINO" "FEMENINO" ...
## $ RFC : chr "MALN550910338" "LEMM7905148GA" "HECL4911213X3" "CAMM9005019S8" ...
## $ FECHA.DE.ALTA : chr "01/07/10" "01/07/11" "22/11/11" "30/01/13" ...
## $ PRIMER.MES : chr "31/07/10" "31/07/11" "22/12/11" "01/03/13" ...
## $ CUARTO.MES : chr "29/10/10" "29/10/11" "22/04/12" "30/05/13" ...
## $ BAJA : int 0 0 0 0 0 0 0 0 0 0 ...
## $ PUESTO : chr "SUPERVISOR/A" "SUPERVISOR/A" "EXTERNO" "SUPERVISOR/A" ...
## $ DEPARTAMENTO : chr "PRODUCCION CARTON MDL" "PRODUCCION CARTON MDL" "EXTERNO" "PRODUCCION CARTON MC" ...
## $ SALARIO.DIARIO.IMSS : num 177 177 177 337 441 ...
## $ FACTOR.CRED.INFONAVIT: num 0 0 0 0 0 0 0 0 0 0 ...
## $ N..CREDITO.INFONAVIT : int 0 0 0 0 0 0 0 0 0 0 ...
## $ LUGAR.DE.NACIMIENTO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ CURP : chr "MALN550910HZSRRC09" "LEMM790514MCLNRR09" "HECL491121HJCRRS04" "CAMM900501MVZZRR00" ...
## $ CALLE : chr "JOSE I LUGO" "AGUSTIN LARA" "HACIENDA SAN CRISTOBAL" "RIO ACAPONETA" ...
## $ NUMERO.INTERNO : chr "234" "115" "13" "234" ...
## $ COLONIA : chr "UNIDAD LABORAL" "SANTA TERESITA" "VILLAS DE HUINALA" "PUEBLO NUEVO" ...
## $ MUNICIPIO : chr "SAN NICOLAS DE LOS GARZA" "APODACA" "APODACA" "APODACA" ...
## $ ESTADO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ CODIGO.POSTAL : int 66440 66605 66634 66649 66620 25016 66633 66649 25290 66473 ...
## $ ESTADO.CIVIL : chr "SOLTERO/A" "SOLTERO/A" "SOLTERO/A" "CASADO/A" ...
## $ TARJETA.CUENTA : chr "BANORTE" "BANORTE" "BANORTE" "BANORTE" ...Contamos con 26 variables y 113 obserevaciones.
Técnicas de Limpieza
Técnica 1: eliminar NAs
Para evitar que la base de datos nos extraiga información o “inisghts” erroneos, eliminamos los NAs y de ese modo tener un análisis más asertivo y de valor.
sum(is.na(rh_C))## [1] 0Técnica 2: Eliminar duplicados
Está tecnica nos permite asegurarnos de que la información que se tiene este correcta y organizada.
rh_C1<-rh_C
#rh_C1<-distinct(rh_C1)Técnica 3: eliminar renglones
Se aplicó está técnica de limpieza para deshacernos de información que nos impide concnetrarnos en aquello que tiene mayor relevancia.
rh_C2<-rh_C1
rh_C2 <- subset(rh_C2, select =-c (NOMBRE))
rh_C2 <- subset(rh_C2, select =-c (APELLIDOS))
rh_C2 <- subset(rh_C2, select =-c (RFC))
rh_C2 <- subset(rh_C2, select =-c (CUARTO.MES))
rh_C2 <- subset(rh_C2, select =-c (FACTOR.CRED.INFONAVIT))
rh_C2 <- subset(rh_C2, select =-c (CURP))
rh_C2 <- subset(rh_C2, select =-c (CALLE))
rh_C2 <- subset(rh_C2, select =-c (NUMERO.INTERNO))
rh_C2 <- subset(rh_C2, select =-c (TARJETA.CUENTA))
summary(rh_C2)## No..De.Empleado FECHA.DE.NACIMIENTO EDAD GENERO
## Min. : 1.00 Length:113 Min. : 0.00 Length:113
## 1st Qu.: 31.00 Class :character 1st Qu.:25.00 Class :character
## Median : 63.00 Mode :character Median :33.00 Mode :character
## Mean : 75.86 Mean :35.74
## 3rd Qu.:127.00 3rd Qu.:45.00
## Max. :169.00 Max. :73.00
## FECHA.DE.ALTA PRIMER.MES BAJA PUESTO
## Length:113 Length:113 Min. :0.0000 Length:113
## Class :character Class :character 1st Qu.:0.0000 Class :character
## Mode :character Mode :character Median :0.0000 Mode :character
## Mean :0.3451
## 3rd Qu.:0.0000
## Max. :3.0000
## DEPARTAMENTO SALARIO.DIARIO.IMSS N..CREDITO.INFONAVIT
## Length:113 Min. :144.4 Min. :0.000e+00
## Class :character 1st Qu.:176.7 1st Qu.:0.000e+00
## Mode :character Median :180.7 Median :0.000e+00
## Mean :181.2 Mean :6.770e+07
## 3rd Qu.:180.7 3rd Qu.:0.000e+00
## Max. :441.4 Max. :1.922e+09
## LUGAR.DE.NACIMIENTO COLONIA MUNICIPIO ESTADO
## Length:113 Length:113 Length:113 Length:113
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## CODIGO.POSTAL ESTADO.CIVIL
## Min. :25016 Length:113
## 1st Qu.:66640 Class :character
## Median :66646 Mode :character
## Mean :63365
## 3rd Qu.:66649
## Max. :67493Con el resumen anterior podemos observar que se eliminaron todos aquellas variables que se vieron no tan significativas, esto para lograr un análisis más preciso y realmente obtener un análisis e información interesante y nueva de los datos que está en nuestro interés y con las cuales podemos crear ya sea soluciones o encontrar oportunidades.
Identificar variables rh_C y rh_B
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
variables <- c(
"No..De.Empleado",
"APELLIDOS",
"NOMBRE",
"FECHA.DE.NACIMIENTO",
"EDAD",
"GENERO",
"RFC",
"FECHA.DE.ALTA",
"PRIMER.MES",
"CUARTO.MES",
"BAJA",
"PUESTO",
"DEPARTAMENTO",
"SALARIO.DIARIO.IMSS",
"FACTOR.CRED.INFONAVIT",
"N..CREDITO.INFONAVIT",
"LUGAR.DE.NACIMIENTO",
"CURP",
"CALLE",
"NUMERO.INTERNO",
"COLONIA",
"MUNICIPIO",
"ESTADO",
"CODIGO.POSTAL",
"ESTADO.CIVIL",
"TARJETA.CUENTA"
)
tipos <- c(
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cuantitativo",
"Cuantitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo"
)
escalas <- c(
"Intervalo",
"Nominal",
"Nominal",
"Intervalo",
"Intervalo",
"Nominal",
"Nominal",
"Razón",
"Razón",
"Razón",
"Razón",
"Ordinal",
"Nominal",
"Razón",
"Razón",
"Nominal",
"Nominal",
"Nominal",
"Nominal",
"Razón",
"Nominal",
"Nominal",
"Nominal",
"Ordinal",
"Nominal",
"Nominal"
)
table_rhC <- data.frame (variables, tipos, escalas)
knitr::kable(table_rhC)| variables | tipos | escalas |
|---|---|---|
| No..De.Empleado | Cuantitativo | Intervalo |
| APELLIDOS | Cualitativo | Nominal |
| NOMBRE | Cualitativo | Nominal |
| FECHA.DE.NACIMIENTO | Cualitativo | Intervalo |
| EDAD | Cuantitativo | Intervalo |
| GENERO | Cualitativo | Nominal |
| RFC | Cualitativo | Nominal |
| FECHA.DE.ALTA | Cuantitativo | Razón |
| PRIMER.MES | Cuantitativo | Razón |
| CUARTO.MES | Cuantitativo | Razón |
| BAJA | Cuantitativo | Razón |
| PUESTO | Cualitativo | Ordinal |
| DEPARTAMENTO | Cualitativo | Nominal |
| SALARIO.DIARIO.IMSS | Cuantitativo | Razón |
| FACTOR.CRED.INFONAVIT | Cuantitativo | Razón |
| N..CREDITO.INFONAVIT | Cualitativo | Nominal |
| LUGAR.DE.NACIMIENTO | Cualitativo | Nominal |
| CURP | Cualitativo | Nominal |
| CALLE | Cualitativo | Nominal |
| NUMERO.INTERNO | Cuantitativo | Razón |
| COLONIA | Cualitativo | Nominal |
| MUNICIPIO | Cualitativo | Nominal |
| ESTADO | Cualitativo | Nominal |
| CODIGO.POSTAL | Cuantitativo | Ordinal |
| ESTADO.CIVIL | Cualitativo | Nominal |
| TARJETA.CUENTA | Cualitativo | Nominal |
Sección 2.1 Colaboradores
Análisis Exploratorio de las Bases de Datos
#install.packages("psych")
library(Hmisc)## Loading required package: lattice## Loading required package: survival## Loading required package: Formula## Loading required package: ggplot2##
## Attaching package: 'Hmisc'## The following objects are masked from 'package:base':
##
## format.pval, unitsdescribe(rh_C2)## rh_C2
##
## 17 Variables 113 Observations
## --------------------------------------------------------------------------------
## No..De.Empleado
## n missing distinct Info Mean Gmd .05 .10
## 113 0 113 1 75.86 61.43 6.6 12.2
## .25 .50 .75 .90 .95
## 31.0 63.0 127.0 157.8 163.4
##
## lowest : 1 2 3 4 5, highest: 165 166 167 168 169
## --------------------------------------------------------------------------------
## FECHA.DE.NACIMIENTO
## n missing distinct
## 113 0 113
##
## lowest : 01/04/03 01/05/00 01/05/90 01/07/67 02/06/82
## highest: 30/11/68 30/12/92 31/05/92 31/07/90 31/10/67
## --------------------------------------------------------------------------------
## EDAD
## n missing distinct Info Mean Gmd .05 .10
## 113 0 42 0.999 35.74 15.03 19.0 20.0
## .25 .50 .75 .90 .95
## 25.0 33.0 45.0 55.0 57.4
##
## lowest : 0 18 19 20 21, highest: 58 59 60 67 73
## --------------------------------------------------------------------------------
## GENERO
## n missing distinct
## 113 0 2
##
## Value FEMENINO MASCULINO
## Frequency 61 52
## Proportion 0.54 0.46
## --------------------------------------------------------------------------------
## FECHA.DE.ALTA
## n missing distinct
## 113 0 94
##
## lowest : 01/06/22 01/07/10 01/07/11 01/08/22 01/12/17
## highest: 28/08/20 29/11/18 30/01/13 30/06/22 30/07/19
## --------------------------------------------------------------------------------
## PRIMER.MES
## n missing distinct
## 113 0 94
##
## lowest : 01/03/13 01/06/19 01/07/22 01/09/22 02/02/22
## highest: 29/12/18 30/07/22 31/07/10 31/07/11 31/12/17
## --------------------------------------------------------------------------------
## BAJA
## n missing distinct Info Mean Gmd
## 113 0 2 0.305 0.3451 0.6163
##
## Value 0 3
## Frequency 100 13
## Proportion 0.885 0.115
## --------------------------------------------------------------------------------
## PUESTO
## n missing distinct
## 113 0 21
##
## lowest : AYUDANTE DE MANTENIMIENTO AYUDANTE GENERAL CHOFER COSTURERO/A ENFERMERO/A
## highest: RECIBO RESIDENTE SERVICIO AL CLIENTE SOLDADOR SUPERVISOR/A
## --------------------------------------------------------------------------------
## DEPARTAMENTO
## n missing distinct
## 113 0 19
##
## lowest : AY FLEXO CALIDAD CEDIS CELDAS CORTADORAS
## highest: PRODUCCION RETORN ROTATIVA STABILUS TROQUEL VARIOS
## --------------------------------------------------------------------------------
## SALARIO.DIARIO.IMSS
## n missing distinct Info Mean Gmd .05 .10
## 113 0 17 0.848 181.2 22.55 151.6 151.6
## .25 .50 .75 .90 .95
## 176.7 180.7 180.7 180.7 221.5
##
## lowest : 144.45 151.61 151.67 152.86 175.79, highest: 240.75 260.01 279.61 337.05 441.37
##
## Value 144.45 151.61 151.67 152.86 175.79 176.72 180.68 181.68 184.68
## Frequency 3 11 5 1 1 23 59 1 1
## Proportion 0.027 0.097 0.044 0.009 0.009 0.204 0.522 0.009 0.009
##
## Value 185.68 208.65 240.71 240.75 260.01 279.61 337.05 441.37
## Frequency 1 1 1 1 1 1 1 1
## Proportion 0.009 0.009 0.009 0.009 0.009 0.009 0.009 0.009
## --------------------------------------------------------------------------------
## N..CREDITO.INFONAVIT
## n missing distinct Info Mean Gmd
## 113 0 5 0.102 67697774 131776900
##
## lowest : 0 1905321932 1910498716 1912437884 1921589926
## highest: 0 1905321932 1910498716 1912437884 1921589926
##
## Value 0 1905321932 1910498716 1912437884 1921589926
## Frequency 109 1 1 1 1
## Proportion 0.965 0.009 0.009 0.009 0.009
## --------------------------------------------------------------------------------
## LUGAR.DE.NACIMIENTO
## n missing distinct
## 113 0 13
##
## lowest : CHIAPAS CIUDAD DE MEXICO COAHUILA DURANGO GUANAJUATO
## highest: SAN LUIS POTOSI TABASCO TAMAULIPAS VERACRUZ ZACATECAS
## --------------------------------------------------------------------------------
## COLONIA
## n missing distinct
## 113 0 67
##
## lowest : ALAMOS DEL PARQUE ANALCO 2 ANZURES BALCONES DE HUINALA C. H. BLAS CHUMACERO C.T.M
## highest: VILLAS DE HUINALA VILLAS DE SAN CARLOS VISTAS DEL RIO VIVIENDA DIGNA ZONA CENTRO
## --------------------------------------------------------------------------------
## MUNICIPIO
## n missing distinct
## 113 0 9
##
## lowest : APODACA CAÑADA BLANCA GUADALUPE JUAREZ MONTERREY
## highest: MONTERREY PESQUERIA RAMOS ARIZPE SALTILLO SAN NICOLAS DE LOS GARZA
## --------------------------------------------------------------------------------
## ESTADO
## n missing distinct
## 113 0 2
##
## Value COAHUILA NUEVO LEON
## Frequency 9 104
## Proportion 0.08 0.92
## --------------------------------------------------------------------------------
## CODIGO.POSTAL
## n missing distinct Info Mean Gmd .05 .10
## 113 0 43 0.972 63365 6375 25901 64846
## .25 .50 .75 .90 .95
## 66640 66646 66649 67117 67256
##
## lowest : 25016 25088 25115 25290 25900, highest: 67255 67258 67266 67267 67493
##
## Value 25000 25100 25300 25900 64100 64800 65000 66100 66400 66500 66600
## Frequency 1 2 2 4 2 1 1 1 1 1 71
## Proportion 0.009 0.018 0.018 0.035 0.018 0.009 0.009 0.009 0.009 0.009 0.628
##
## Value 66700 67100 67200 67300 67500
## Frequency 10 5 3 7 1
## Proportion 0.088 0.044 0.027 0.062 0.009
##
## For the frequency table, variable is rounded to the nearest 100
## --------------------------------------------------------------------------------
## ESTADO.CIVIL
## n missing distinct
## 113 0 4
##
## Value CASADO/A DIVORCIADO/A SOLTERO/A UNION LIBRE
## Frequency 44 3 46 20
## Proportion 0.389 0.027 0.407 0.177
## --------------------------------------------------------------------------------library(tidyr)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:Hmisc':
##
## src, summarize## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(janitor)##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testlibrary(psych)##
## Attaching package: 'psych'## The following object is masked from 'package:Hmisc':
##
## describe## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha#count(rh_C2, GENERO, sort = TRUE)
#count(rh_C2, PUESTO, sort = TRUE)
#count(rh_C2, DEPARTAMENTO, sort = TRUE)
#count(rh_C2, SALARIO.DIARIO.IMSS, sort = TRUE)
#count(rh_C2, LUGAR.DE.NACIMIENTO, sort = TRUE)
#install.packages("tibble")
tibble(rh_C2)## # A tibble: 113 × 17
## No..De.Em…¹ FECHA…² EDAD GENERO FECHA…³ PRIME…⁴ BAJA PUESTO DEPAR…⁵ SALAR…⁶
## <int> <chr> <int> <chr> <chr> <chr> <int> <chr> <chr> <dbl>
## 1 1 10/09/… 67 MASCU… 01/07/… 31/07/… 0 SUPER… PRODUC… 177.
## 2 2 14/05/… 43 FEMEN… 01/07/… 31/07/… 0 SUPER… PRODUC… 177.
## 3 3 21/11/… 73 MASCU… 22/11/… 22/12/… 0 EXTER… EXTERNO 177.
## 4 4 01/05/… 32 FEMEN… 30/01/… 01/03/… 0 SUPER… PRODUC… 337.
## 5 5 06/09/… 57 FEMEN… 05/05/… 04/06/… 0 SUPER… COSTURA 441.
## 6 6 22/06/… 38 MASCU… 03/07/… 02/08/… 0 SERVI… CEDIS 177.
## 7 7 01/07/… 55 FEMEN… 06/08/… 05/09/… 0 COSTU… COSTURA 260.
## 8 8 10/12/… 26 MASCU… 23/08/… 22/09/… 0 AYUDA… PRODUC… 241.
## 9 9 03/11/… 27 MASCU… 11/01/… 10/02/… 0 AYUDA… CEDIS 177.
## 10 10 18/08/… 37 FEMEN… 20/02/… 22/03/… 0 COSTU… COSTURA 153.
## # … with 103 more rows, 7 more variables: N..CREDITO.INFONAVIT <int>,
## # LUGAR.DE.NACIMIENTO <chr>, COLONIA <chr>, MUNICIPIO <chr>, ESTADO <chr>,
## # CODIGO.POSTAL <int>, ESTADO.CIVIL <chr>, and abbreviated variable names
## # ¹No..De.Empleado, ²FECHA.DE.NACIMIENTO, ³FECHA.DE.ALTA, ⁴PRIMER.MES,
## # ⁵DEPARTAMENTO, ⁶SALARIO.DIARIO.IMSSEn esta primera parte del análisis estadístico descriptivo, vemos que el conteo total de empleados actuales es de 113 y hay un mayor número de mujeres (54%) contra empleados que son hombres (46%).
En cuanto a los puestos, vemos que existe una gran cantidad de ayudantes generales, pues es el puesto que ocupa mayor capital humano, contra aquellos que ocupan menos que van desde servicio al cliente hasta operadores.
Entre los departamentos con mayor cantidad de empleados, vemos que está varios y producción retorn. El departamento de “Varios” fue creado para catalogar a aquellos empleados que en la base de datos no tenían definida un área en concreto.
Vemos que la mayoría de los empleados ganan $180.68 pesos de salario diario por el IMSS y de todos los empleados, se calcula que tienen un promedio de salario diario de $236.62 pesos.
En cuanto al lugar de origen, vemos que la mayoría de los empleados provienen del Estado de Nuevo León (70%) y Veracruz (11%), viendo que el 19% restante de los empleados son provenientes de Zona Centro o estados colidantes de Nuevo León.
Tabla de Media, Moda y Mediana
table_rhC2<-describe(rh_C2)
knitr::kable(table_rhC2)| vars | n | mean | sd | median | trimmed | mad | min | max | range | skew | kurtosis | se | |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| No..De.Empleado | 1 | 113 | 7.585841e+01 | 5.387649e+01 | 63.00 | 7.364835e+01 | 60.7866 | 1.00 | 1.69000e+02 | 1.68000e+02 | 0.3890575 | -1.2725756 | 5.068274e+00 |
| FECHA.DE.NACIMIENTO* | 2 | 113 | 5.700000e+01 | 3.276431e+01 | 57.00 | 5.700000e+01 | 41.5128 | 1.00 | 1.13000e+02 | 1.12000e+02 | 0.0000000 | -1.2319021 | 3.082207e+00 |
| EDAD | 3 | 113 | 3.574336e+01 | 1.328585e+01 | 33.00 | 3.503297e+01 | 14.8260 | 0.00 | 7.30000e+01 | 7.30000e+01 | 0.3871754 | -0.3962064 | 1.249828e+00 |
| GENERO* | 4 | 113 | 1.460177e+00 | 5.006317e-01 | 1.00 | 1.450549e+00 | 0.0000 | 1.00 | 2.00000e+00 | 1.00000e+00 | 0.1576832 | -1.9925348 | 4.709550e-02 |
| FECHA.DE.ALTA* | 5 | 113 | 4.721239e+01 | 2.698593e+01 | 49.00 | 4.728571e+01 | 34.0998 | 1.00 | 9.40000e+01 | 9.30000e+01 | -0.0489405 | -1.1963996 | 2.538622e+00 |
| PRIMER.MES* | 6 | 113 | 4.693805e+01 | 2.678628e+01 | 49.00 | 4.691209e+01 | 34.0998 | 1.00 | 9.40000e+01 | 9.30000e+01 | -0.0301139 | -1.1859741 | 2.519842e+00 |
| BAJA | 7 | 113 | 3.451327e-01 | 9.614898e-01 | 0.00 | 6.593410e-02 | 0.0000 | 0.00 | 3.00000e+00 | 3.00000e+00 | 2.3809866 | 3.7020932 | 9.044940e-02 |
| PUESTO* | 8 | 113 | 5.646018e+00 | 6.260592e+00 | 2.00 | 4.351648e+00 | 0.0000 | 1.00 | 2.10000e+01 | 2.00000e+01 | 1.4958964 | 0.6087962 | 5.889469e-01 |
| DEPARTAMENTO* | 9 | 113 | 1.345133e+01 | 5.882770e+00 | 15.00 | 1.408791e+01 | 5.9304 | 1.00 | 1.90000e+01 | 1.80000e+01 | -0.6540898 | -1.0698793 | 5.534045e-01 |
| SALARIO.DIARIO.IMSS | 10 | 113 | 1.811764e+02 | 3.473107e+01 | 180.68 | 1.767674e+02 | 0.0000 | 144.45 | 4.41370e+02 | 2.96920e+02 | 4.7957216 | 29.5403868 | 3.267225e+00 |
| N..CREDITO.INFONAVIT | 11 | 113 | 6.769777e+07 | 3.549686e+08 | 0.00 | 0.000000e+00 | 0.0000 | 0.00 | 1.92159e+09 | 1.92159e+09 | 4.9620632 | 22.8245730 | 3.339264e+07 |
| LUGAR.DE.NACIMIENTO* | 12 | 113 | 7.327434e+00 | 2.350693e+00 | 7.00 | 7.318681e+00 | 0.0000 | 1.00 | 1.30000e+01 | 1.20000e+01 | 0.1928752 | 1.1227203 | 2.211346e-01 |
| COLONIA* | 13 | 113 | 3.673451e+01 | 1.803272e+01 | 45.00 | 3.737363e+01 | 17.7912 | 1.00 | 6.70000e+01 | 6.60000e+01 | -0.4343432 | -0.9392140 | 1.696375e+00 |
| MUNICIPIO* | 14 | 113 | 2.584071e+00 | 2.385693e+00 | 1.00 | 2.142857e+00 | 0.0000 | 1.00 | 9.00000e+00 | 8.00000e+00 | 1.1891323 | 0.0235117 | 2.244271e-01 |
| ESTADO* | 15 | 113 | 1.920354e+00 | 2.719504e-01 | 2.00 | 2.000000e+00 | 0.0000 | 1.00 | 2.00000e+00 | 1.00000e+00 | -3.0640444 | 7.4545718 | 2.558290e-02 |
| CODIGO.POSTAL | 16 | 113 | 6.336474e+04 | 1.120189e+04 | 66646.00 | 6.662284e+04 | 4.4478 | 25016.00 | 6.74930e+04 | 4.24770e+04 | -3.0551620 | 7.4227076 | 1.053785e+03 |
| ESTADO.CIVIL* | 17 | 113 | 2.371681e+00 | 1.174085e+00 | 3.00 | 2.340659e+00 | 1.4826 | 1.00 | 4.00000e+00 | 3.00000e+00 | -0.0872307 | -1.5861240 | 1.104487e-01 |
Gráficos
Tabla de Frecuencia
#install.packages('epiDisplay')
#library(epiDisplay)
#tab1(rh_C2$GENERO, rh_C2$SALARIO.DIARIO.IMSS, sort.group = "decreasing", cum.percent = TRUE)
Esta tabla de frecuencia representa el valor decimal del salario diario de acuerdo al género, es decir, la cantidad de empleados en valor decimal que reciben cierto salario diario de acuerdo a su género. La gráfica nos muestra que FORM tiene un mayor numero de empleados de genero femenino este está representado por 61 empleadas y del genero masculino 52 eampleados. También podemos obsrvar que el genero femenino tiene tiene un valor de salario mayor a que el genero masculino.
Base de datos: BAJAS de RH
Cuantas variables y registros hay
str(rh_B)## 'data.frame': 78 obs. of 26 variables:
## $ NO.DE.BAJAS : int 5 6 7 8 9 11 12 16 19 20 ...
## $ APELLIDOS : chr "BERNAL FLORES" "SAUCEDO GUZMAN" "MEZA LLANAS" "TORRES LARA" ...
## $ NOMBRE : chr "ERIKA ROSALINDA" "GUADALUPE" "YOANA CRISTINA" "CESAR ANTONIO" ...
## $ FECHA.DE.NACIMIENTO : int 33997 28106 34174 33491 26422 36970 32443 37872 37512 36915 ...
## $ EDAD : int 29 46 29 31 50 21 34 19 20 21 ...
## $ GENERO : chr "FEMENINO" "FEMENINO" "FEMENINO" "MASCULINO" ...
## $ FECHA.DE.ALTA : int 44518 44532 44532 44538 44551 44531 44532 44488 44541 44546 ...
## $ MOTIVO.DE.BAJA : chr "RENUNCIA VOLUNTARIA" "BAJA POR FALTAS" "BAJA POR FALTAS" "BAJA POR FALTAS" ...
## $ DIAS.TRABAJADOS : int 51 37 37 31 18 40 39 86 33 28 ...
## $ BAJA : int 44569 44569 44569 44569 44569 44571 44571 44574 44574 44574 ...
## $ PUESTO : chr "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" ...
## $ DEPARTAMENTO : chr "VARIOS" "VARIOS" "VARIOS" "VARIOS" ...
## $ NO.SEGURO.SOCIAL : chr "43109363747" "43937683647" "43099330201" "43099151714" ...
## $ SALARIO.DIARIO.IMSS : num 152 152 152 152 152 ...
## $ FACTOR.CRED.INFONAVIT: num 0 1320 0 0 0 ...
## $ NO.CREDITO.INFONAVIT : num 0.00 1.92e+09 0.00 0.00 0.00 ...
## $ LUGAR.DE.NACIMIENTO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ CURP : chr "BEFE930128MNLRLR05" "SAGG761212MNLCZD08" "MELY930724MNLZLN01" "TOLC910910HNLRRS09" ...
## $ CALLE : chr "JULIAN VILLAGRAN" "PAPAGAYOS" "RIO AMANONAS" "PALMERA" ...
## $ NUMERO.INTERNO : chr "452" "220" "300" "104" ...
## $ COLONIA : chr "REFORMA" "GOLONDRINAS" "PUEBLO NUEVO" "MIRADOR DEL PARQUE" ...
## $ CODIGO.POSTAL : int 66640 66649 66646 67254 67114 66645 66646 66646 66645 66646 ...
## $ MUNICIPIO : chr "APODACA" "APODACA" "APODACA" "JUAREZ" ...
## $ ESTADO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ ESTADO.CIVIL : chr "SOLTERO/A" "SOLTERO/A" "UNION LIBRE" "UNION LIBRE" ...
## $ TARJETA.CUENTA : chr "BANORTE" "BANORTE" "BANORTE" "BANORTE" ...Se tiene 26 variables y 78 observaciones.
Técnicas de Limpieza
Técnica 1: eliminar NAs
¿Cuántos NA’s tengo en la base de datos?
sum(is.na(rh_B))## [1] 0Borrar todos los registros NA’s de una tabla
rh_B1<-rh_B
rh_B1<-na.omit(rh_B1)
summary(rh_B1)## NO.DE.BAJAS APELLIDOS NOMBRE FECHA.DE.NACIMIENTO
## Min. : 5.00 Length:78 Length:78 Min. :25585
## 1st Qu.: 49.75 Class :character Class :character 1st Qu.:31751
## Median :167.50 Mode :character Mode :character Median :33797
## Mean :139.60 Mean :33611
## 3rd Qu.:212.75 3rd Qu.:36518
## Max. :238.00 Max. :44632
## EDAD GENERO FECHA.DE.ALTA MOTIVO.DE.BAJA
## Min. : 0.00 Length:78 Min. :43961 Length:78
## 1st Qu.:22.25 Class :character 1st Qu.:44566 Class :character
## Median :30.00 Mode :character Median :44726 Mode :character
## Mean :30.50 Mean :44664
## 3rd Qu.:36.00 3rd Qu.:44759
## Max. :52.00 Max. :44790
## DIAS.TRABAJADOS BAJA PUESTO DEPARTAMENTO
## Min. : 0.00 Min. :44569 Length:78 Length:78
## 1st Qu.: 9.00 1st Qu.:44613 Class :character Class :character
## Median : 19.00 Median :44741 Mode :character Mode :character
## Mean : 45.10 Mean :44709
## 3rd Qu.: 39.75 3rd Qu.:44784
## Max. :730.00 Max. :44814
## NO.SEGURO.SOCIAL SALARIO.DIARIO.IMSS FACTOR.CRED.INFONAVIT
## Length:78 Min. :151.6 Min. : 0.0
## Class :character 1st Qu.:180.7 1st Qu.: 0.0
## Mode :character Median :180.7 Median : 0.0
## Mean :174.3 Mean : 130.4
## 3rd Qu.:180.7 3rd Qu.: 0.0
## Max. :183.7 Max. :2795.3
## NO.CREDITO.INFONAVIT LUGAR.DE.NACIMIENTO CURP CALLE
## Min. :0.000e+00 Length:78 Length:78 Length:78
## 1st Qu.:0.000e+00 Class :character Class :character Class :character
## Median :0.000e+00 Mode :character Mode :character Mode :character
## Mean :1.871e+08
## 3rd Qu.:0.000e+00
## Max. :6.919e+09
## NUMERO.INTERNO COLONIA CODIGO.POSTAL MUNICIPIO
## Length:78 Length:78 Min. :25019 Length:78
## Class :character Class :character 1st Qu.:33604 Class :character
## Mode :character Mode :character Median :33604 Mode :character
## Mean :46508
## 3rd Qu.:66645
## Max. :67450
## ESTADO ESTADO.CIVIL TARJETA.CUENTA
## Length:78 Length:78 Length:78
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
## Técnica 2: eliminar columnas
rh_B2<-rh_B1
rh_B2 <- subset(rh_B2, select =-c (APELLIDOS))
rh_B2 <- subset(rh_B2, select =-c (NOMBRE))
rh_B2 <- subset(rh_B2, select =-c (FACTOR.CRED.INFONAVIT))
rh_B2 <- subset(rh_B2, select =-c (CURP))
rh_B2 <- subset(rh_B2, select =-c (CALLE))
rh_B2 <- subset(rh_B2, select =-c (NUMERO.INTERNO))
rh_B2 <- subset(rh_B2, select =-c (TARJETA.CUENTA))
#summary(rh_B2)Identificar variables rhC y rcB
Cuantitativa: Discreta, Continua
Escala de medición:Intervalo, Razón
Cualitativa
Escala de medición: Nominales, Ordinales
variables <- c(
"No..De.Empleado",
"APELLIDOS",
"NOMBRE",
"FECHA.DE.NACIMIENTO",
"EDAD",
"GENERO",
"RFC",
"FECHA.DE.ALTA",
"PRIMER.MES",
"CUARTO.MES",
"BAJA",
"PUESTO",
"DEPARTAMENTO",
"SALARIO.DIARIO.IMSS",
"FACTOR.CRED.INFONAVIT",
"N..CREDITO.INFONAVIT",
"LUGAR.DE.NACIMIENTO",
"CURP",
"CALLE",
"NUMERO.INTERNO",
"COLONIA",
"MUNICIPIO",
"ESTADO",
"CODIGO.POSTAL",
"ESTADO.CIVIL",
"TARJETA.CUENTA"
)
tipos <- c(
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cuantitativo",
"Cuantitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo",
"Cualitativo",
"Cuantitativo",
"Cualitativo",
"Cualitativo"
)
escalas <- c(
"Intervalo",
"Nominal",
"Nominal",
"Intervalo",
"Intervalo",
"Nominal",
"Nominal",
"Razón",
"Razón",
"Razón",
"Razón",
"Ordinal",
"Nominal",
"Razón",
"Razón",
"Nominal",
"Nominal",
"Nominal",
"Nominal",
"Razón",
"Nominal",
"Nominal",
"Nominal",
"Ordinal",
"Nominal",
"Nominal"
)
table_rhB <- data.frame (variables, tipos, escalas)
knitr::kable(table_rhB)| variables | tipos | escalas |
|---|---|---|
| No..De.Empleado | Cuantitativo | Intervalo |
| APELLIDOS | Cualitativo | Nominal |
| NOMBRE | Cualitativo | Nominal |
| FECHA.DE.NACIMIENTO | Cualitativo | Intervalo |
| EDAD | Cuantitativo | Intervalo |
| GENERO | Cualitativo | Nominal |
| RFC | Cualitativo | Nominal |
| FECHA.DE.ALTA | Cuantitativo | Razón |
| PRIMER.MES | Cuantitativo | Razón |
| CUARTO.MES | Cuantitativo | Razón |
| BAJA | Cuantitativo | Razón |
| PUESTO | Cualitativo | Ordinal |
| DEPARTAMENTO | Cualitativo | Nominal |
| SALARIO.DIARIO.IMSS | Cuantitativo | Razón |
| FACTOR.CRED.INFONAVIT | Cuantitativo | Razón |
| N..CREDITO.INFONAVIT | Cualitativo | Nominal |
| LUGAR.DE.NACIMIENTO | Cualitativo | Nominal |
| CURP | Cualitativo | Nominal |
| CALLE | Cualitativo | Nominal |
| NUMERO.INTERNO | Cuantitativo | Razón |
| COLONIA | Cualitativo | Nominal |
| MUNICIPIO | Cualitativo | Nominal |
| ESTADO | Cualitativo | Nominal |
| CODIGO.POSTAL | Cuantitativo | Ordinal |
| ESTADO.CIVIL | Cualitativo | Nominal |
| TARJETA.CUENTA | Cualitativo | Nominal |
Sección 2.1 Bajas
Análisis Exploratorio de las Bases de Datos
Gráficos
Tabla Cruzada 1
table(rh_B2$PUESTO, rh_B2$MOTIVO.DE.BAJA)##
## BAJA POR FALTAS RENUNCIA VOLUNTARIA
## AYUDANTE DE EMBARQUES 0 0
## AYUDANTE GENERAL 50 18
## COSTURERO/A 1 0
## GUARDIA DE SEGURIDAD 0 1
## INSPECTOR DE CALIDAD 1 0
## JEFE DE SEGURIDAD E HIGIENE 0 1
## MONTACARGUISTA 1 1
## RESIDENTE 1 0
## SOLDADOR 1 0
##
## TERMINO DE CONTRATO
## AYUDANTE DE EMBARQUES 1
## AYUDANTE GENERAL 1
## COSTURERO/A 0
## GUARDIA DE SEGURIDAD 0
## INSPECTOR DE CALIDAD 0
## JEFE DE SEGURIDAD E HIGIENE 0
## MONTACARGUISTA 0
## RESIDENTE 0
## SOLDADOR 0En la tabla vemos que se destacan tres razones principales de bajas de empleados, las cuales son: bajas por faltas, renuncia voluntaria o término de contrato. En su mayoría, hubo una baja por faltas del puesto de ayudante general y renuncia voluntaria para el mismo puesto. Al igual que en la base de datos anterior, vemos que el puesto con mayor rotación a nivel histórico es de ayudante general. Esto sugiere que existe un alto número de contrataciones para el puesto debido a una mala gestión administrativa o bajo rendimiento de los empleados.
Tabla Cruzada 2
table(rh_B2$GENERO, rh_B2$MOTIVO.DE.BAJA)##
## BAJA POR FALTAS RENUNCIA VOLUNTARIA TERMINO DE CONTRATO
## FEMENINO 40 12 1
## MASCULINO 15 9 1La tabla cruzada anterior nos muestra la relación entre los motivos de baja contra el género, es decir, las principales razones de baja de acuerdo al género de cada empleado. Vemos que hubo un total de 53 bajas del género femenino, destacando las bajas por faltas (representa un 75% de las bajas femeninas). Para el género masculino, hubo un total de 25 faltas, destacando principalmente las bajas por faltas (representa un 60% de las bajas masculinas).
Gráfica cualitativa 1
# Pie chart: Representación de bajas acorde al estado de residencia
pie(table(rh_B2$ESTADO), col=c("orange","coral1"),
main="Representación de bajas acorde al estado de residencia")
La gráfica anterior nos muestra que hay un mayor número de ex-empleados que viven en el Estado de Nuevo León. Sin embargo, hay un porcentaje que reside en Coahuila. Esto se puede interpretar con que hay un alto nivel de rotación existente debido a la lejanía de residencia de los empleados. También podemos inferir que se reculta más gente del estado de Nuevo Leon y que FORM tiene mayor alcance a eseee nicho.
Gráfica cualitativa 1
# Pie chart: Representación de bajas acorde al género
pie(table(rh_B2$GENERO), col=c("orange","coral1"),
main="Representación de bajas acorde al género")
La anterior gráfica de pastel reafirma lo que mencionamos anteriormente. De acuerdo a las bajas realizadas, la mayoría de los ex-empleados son del género femenino.
Gráfica de dispersión
### Gráfica de dispersión: Número de bajas VS. Días trabajados
plot(x= rh_B2$NO.DE.BAJAS,
y=rh_B2$DIAS.TRABAJADOS)
La gráfica de dispersión nos muestra la intensidad de relación entre la variable de días trabajados y número de bajas. Esto nos dice que hubo un alto número de bajas de empleados que trabajaron menos de 200 días, es decir, la mayoría de los ex-empleados estuvieron en FORM menos de 1 año.
Boxplot
### Boxplot: Correlación en bajas acorde a variables de género y edad
ggplot(rh_B2, aes(GENERO,SALARIO.DIARIO.IMSS,fill=GENERO)) +
geom_bar(stat = "identity") +
scale_fill_brewer(palette = "Set2") + ggtitle("Salario diario por género")
La gráfica anterior nos muestra la correlación entre el género y el salario diario de los empleados. En este, entendemos que el género femenino tiene un salario diario total más alto que los de género masculino.
Insights
Resumiendo todo lo visto anteriormente podemos decir que:
FORM cuenta con un mayor número de empleados de genero Femenino, representando el 54%.
El promedio del Salario Diario por el IMSS es de $236 pesos.
Se tienen tres motivos principales de bajas: faltas, renuncias voluntarias o término de contrato y se tuvieron más bajas de parte del genero femenino.
La mayoría de los ex-empleados estuvieron menos de un año en FORM.
El genero femenio tiene un mayor salario diario total.
2. Delivery Plan
Importar la base de datos
#file.choose()
delivery<-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/DELIVERY PLAN bd_Prueba.csv")
summary(delivery)## ID_Fecha Fecha CLIENTE Pedidos
## Min. : 1.00 Length:228 Length:228 Min. : 0.0
## 1st Qu.: 3.75 Class :character Class :character 1st Qu.: 0.0
## Median : 6.50 Mode :character Mode :character Median : 0.0
## Mean : 6.50 Mean : 1703.1
## 3rd Qu.: 9.25 3rd Qu.: 233.8
## Max. :12.00 Max. :52779.0Sección 1
Limpieza transformación y organización de base de datos.
Observaciones
1.Se hizo limpieza manual de la base de datos para acomodar los clientes como variables y las fechas como registros.
2.Se sustituyeron NAs por cero.
3.Se eliminaron columnas no usadas y que no agreegan valor para el analisis que se busca hacer.
Descargar librerías y paquetes
library(foreign)
library(dplyr)
library(forcats)
library(ggplot2)
library(readr)
library(janitor)
library(naniar)
library(dlookr)##
## Attaching package: 'dlookr'## The following object is masked from 'package:psych':
##
## describe## The following object is masked from 'package:tidyr':
##
## extract## The following object is masked from 'package:Hmisc':
##
## describe## The following object is masked from 'package:base':
##
## transformCuantas variables y registros hay
str(delivery)## 'data.frame': 228 obs. of 4 variables:
## $ ID_Fecha: int 1 1 1 1 1 1 1 1 1 1 ...
## $ Fecha : chr "31/01/22" "31/01/22" "31/01/22" "31/01/22" ...
## $ CLIENTE : chr "STB3" "STB 1" "YF RAMOS" "INOAC POLYTEC" ...
## $ Pedidos : int 481 0 227 0 400 328 393 0 8975 449 ...Contamos con 3 variables y 380 observaciones.
Contar total de pedidos por cliente
deliverySUM = colSums(delivery[4])
as.data.frame(deliverySUM)## deliverySUM
## Pedidos 388317Contamos con 388,317 pedidos
#file.choose()
deliveryCLIENTS<-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/CSV/DELIVERY PLAN bd_entrega2.4.csv")
summary(deliveryCLIENTS)## Fecha STB3 STB.1 YF.RAMOS
## Length:19 Min. : 0.0 Min. : 0.000 Min. : 0
## Class :character 1st Qu.: 13.5 1st Qu.: 0.000 1st Qu.: 54
## Mode :character Median : 200.0 Median : 0.000 Median : 100
## Mean : 297.1 Mean : 2.632 Mean : 211
## 3rd Qu.: 460.5 3rd Qu.: 0.000 3rd Qu.: 230
## Max. :1015.0 Max. :50.000 Max. :1243
## INOAC.POLYTEC MERIDIAN YANFENG.sm YFTO
## Min. : 0.000 Min. : 0 Min. : 0.00 Min. : 138.0
## 1st Qu.: 0.000 1st Qu.: 0 1st Qu.: 0.00 1st Qu.: 358.5
## Median : 0.000 Median : 0 Median : 41.00 Median : 628.0
## Mean : 2.684 Mean : 33 Mean : 95.05 Mean : 869.6
## 3rd Qu.: 0.000 3rd Qu.: 0 3rd Qu.:142.50 3rd Qu.: 871.5
## Max. :40.000 Max. :400 Max. :328.00 Max. :2556.0
## YF.QRO TRMX DENSO SEGROVE
## Min. : 0.000 Min. : 0 Min. : 0.0 Min. : 0.00
## 1st Qu.: 0.000 1st Qu.: 2822 1st Qu.: 150.5 1st Qu.: 0.00
## Median : 0.000 Median : 6240 Median : 372.0 Median : 0.00
## Mean : 2.737 Mean : 5796 Mean :1241.3 Mean : 38.74
## 3rd Qu.: 0.000 3rd Qu.: 8374 3rd Qu.:1083.0 3rd Qu.: 0.00
## Max. :36.000 Max. :11833 Max. :8834.0 Max. :736.00
## HANON ANTOLIN.TOLUCA ANTOLIN.ARTEAGA HELLA
## Min. : 0.00 Min. :0 Min. :0 Min. : 0
## 1st Qu.: 0.00 1st Qu.:0 1st Qu.:0 1st Qu.: 4160
## Median : 0.00 Median :0 Median :0 Median : 8580
## Mean : 21.58 Mean :0 Mean :0 Mean :15013
## 3rd Qu.: 0.00 3rd Qu.:0 3rd Qu.:0 3rd Qu.:21191
## Max. :360.00 Max. :0 Max. :0 Max. :52779
## UFI ISRI TRMX.1 ABC.QUERETARO VARROC
## Min. : 0.00 Min. : 0.0 Min. :0 Min. :0.0000 Min. : 0
## 1st Qu.: 0.00 1st Qu.: 0.0 1st Qu.:0 1st Qu.:0.0000 1st Qu.:2078
## Median : 0.00 Median : 0.0 Median :0 Median :0.0000 Median :3509
## Mean : 45.74 Mean : 157.9 Mean :0 Mean :0.4211 Mean :3555
## 3rd Qu.: 3.50 3rd Qu.: 0.0 3rd Qu.:0 3rd Qu.:0.0000 3rd Qu.:4974
## Max. :492.00 Max. :3000.0 Max. :0 Max. :8.0000 Max. :8810
## Total.pedidos.mes
## Length:19
## Class :character
## Mode :character
##
##
## deliveryCLIENTS = colSums(deliveryCLIENTS[2:21])
as.data.frame(deliveryCLIENTS)## deliveryCLIENTS
## STB3 5644
## STB.1 50
## YF.RAMOS 4009
## INOAC.POLYTEC 51
## MERIDIAN 627
## YANFENG.sm 1806
## YFTO 16522
## YF.QRO 52
## TRMX 110127
## DENSO 23584
## SEGROVE 736
## HANON 410
## ANTOLIN.TOLUCA 0
## ANTOLIN.ARTEAGA 0
## HELLA 285238
## UFI 869
## ISRI 3000
## TRMX.1 0
## ABC.QUERETARO 8
## VARROC 67548barplot.default(deliveryCLIENTS)
Con este plot y la tabla de “DeliveryCLIENTS” podemos ver que hay muchos clientes con muy pocos pedidos, incluso algunos con cero pedidos, esta información puede ser un dato relevante para la toma de decisiones en cuestiones de la limpieza de la base de datos. Existen algunos clientes que han tenido menos de 5,000 pedidos por lo que podría estar más interesante en evaluar aquellos clientes que tienen mayor relevancia e impacto en FORM.
Técnicas de Limpieza
Técnica 1: eliminar NAs
Se decidió realizar está técnica para asegurarnos de que no se tenga falta de datos y en caso de tenerlos evitar que estas eviten tener un analisis asertivo al no agregar valor a la base de datos.
¿Cuantos NA tengo en la base de datos?
sum(is.na(delivery))## [1] 0Cuantos NA tengo por variable?
Sapply: Para contar los NA.
sapply(delivery, function(x) sum(is.na(x)))## ID_Fecha Fecha CLIENTE Pedidos
## 0 0 0 0Se encontró ningún NA
Técnica 2: eliminar filas
Se decidó realizar está técnica para eliminar los clientes que tienen menos de 5,000 pedidos.
Eliminar filas con el nombre de los clientes que se desean eliminar.
#delivery1 <- subset (delivery1, CLIENTE == "STB3") #Para conservar ciertas filas
delivery1<-delivery
delivery1<-delivery1[delivery1$CLIENTE!="STB 1", ]
delivery1<-delivery1[delivery1$CLIENTE!="YF RAMOS", ]
delivery1<-delivery1[delivery1$CLIENTE!="INOAC POLYTEC", ]
delivery1<-delivery1[delivery1$CLIENTE!="MERIDIAN", ]
delivery1<-delivery1[delivery1$CLIENTE!="YANFENG sm", ]
delivery1<-delivery1[delivery1$CLIENTE!="YF QRO", ]
delivery1<-delivery1[delivery1$CLIENTE!="SEGROVE", ]
delivery1<-delivery1[delivery1$CLIENTE!="HANON", ]
delivery1<-delivery1[delivery1$CLIENTE!="ANTOLIN TOLUCA", ]
delivery1<-delivery1[delivery1$CLIENTE!="ANTOLIN ARTEAGA", ]
delivery1<-delivery1[delivery1$CLIENTE!="ABC QUERETARO", ]
delivery1<-delivery1[delivery1$CLIENTE!="UFI", ]
delivery1<-delivery1[delivery1$CLIENTE!="ISRI", ]
summary(delivery1)## ID_Fecha Fecha CLIENTE Pedidos
## Min. : 1.00 Length:72 Length:72 Min. : 0
## 1st Qu.: 3.75 Class :character Class :character 1st Qu.: 99
## Median : 6.50 Mode :character Mode :character Median : 1009
## Mean : 6.50 Mean : 5339
## 3rd Qu.: 9.25 3rd Qu.: 5928
## Max. :12.00 Max. :52779Técnica 3: cambiar nombre de variables.
Se utilizó esta técnica de limpieza para facilitar el uso de la base de datos, que sea más entendible y evitar que se tengan nombres de variables complicados.
delivery1<-delivery1 %>% dplyr::rename(Clientes="CLIENTE")Identificar variables
Cuantitativa: Discreta, Continua
Escala de medición:Intervalo, Razón
Cualitativa
Escala de medición: Nominales, Ordinales
Variable<-c("Fecha","STB3","YFTO", "TRMX", "DENSO","HELLA","VARROC","Total.pedidos.mes")
Type<-c("Cuantitativa (discreta)", "Cualitativa", "Cualitativa", "Cualitativa","Cualitativa","Cualitativa","Cualitativa","Cuantitativa (discreta)")
Measurement<-c("Razón","Nominal","Nominal","Nominal","Nominal","Nominal","Nominal","Razón")
table2<-data_frame(Variable,Type,Measurement)## Warning: `data_frame()` was deprecated in tibble 1.1.0.
## Please use `tibble()` instead.knitr::kable(table2)| Variable | Type | Measurement |
|---|---|---|
| Fecha | Cuantitativa (discreta) | Razón |
| STB3 | Cualitativa | Nominal |
| YFTO | Cualitativa | Nominal |
| TRMX | Cualitativa | Nominal |
| DENSO | Cualitativa | Nominal |
| HELLA | Cualitativa | Nominal |
| VARROC | Cualitativa | Nominal |
| Total.pedidos.mes | Cuantitativa (discreta) | Razón |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Tabla de Media, Moda y Mediana
table3<-describe(delivery1)
knitr::kable(table3)| described_variables | n | na | mean | sd | se_mean | IQR | skewness | kurtosis | p00 | p01 | p05 | p10 | p20 | p25 | p30 | p40 | p50 | p60 | p70 | p75 | p80 | p90 | p95 | p99 | p100 |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ID_Fecha | 72 | 0 | 6.500 | 3.476278 | 0.4096833 | 5.5 | 0.000000 | -1.217513 | 1 | 1 | 1 | 2 | 3.0 | 3.75 | 4.0 | 5 | 6.5 | 8.0 | 9.0 | 9.25 | 10 | 11.0 | 12.0 | 12.00 | 12 |
| Pedidos | 72 | 0 | 5339.167 | 10093.190781 | 1189.4939408 | 5829.5 | 3.128063 | 10.742837 | 0 | 0 | 0 | 0 | 10.8 | 99.00 | 260.6 | 507 | 1009.0 | 2451.6 | 4289.4 | 5928.50 | 8380 | 12577.3 | 27194.4 | 49479.63 | 52779 |
Con este annálisis podemos ver que el promedio de pedidos que se tienen por mes es de 5,300 y se tiene una grande desviación estandar de 10,000 pedidos al mes. Esta diferencia es muy grande, es casi el doble del promedio, por lo que podría ser interesante conocer el porque de esa diferencia y que cliente o en que mes se obtuvo estos pedidos tan grandes que ocasionaron la diferencia.
Gráficos
Gráfica Cualitativa
#install.packages("plyr")
library(plyr)## ------------------------------------------------------------------------------## You have loaded plyr after dplyr - this is likely to cause problems.
## If you need functions from both plyr and dplyr, please load plyr first, then dplyr:
## library(plyr); library(dplyr)## ------------------------------------------------------------------------------##
## Attaching package: 'plyr'## The following objects are masked from 'package:dplyr':
##
## arrange, count, desc, failwith, id, mutate, rename, summarise,
## summarize## The following objects are masked from 'package:Hmisc':
##
## is.discrete, summarizedelivery2<-delivery1
summary(delivery2)## ID_Fecha Fecha Clientes Pedidos
## Min. : 1.00 Length:72 Length:72 Min. : 0
## 1st Qu.: 3.75 Class :character Class :character 1st Qu.: 99
## Median : 6.50 Mode :character Mode :character Median : 1009
## Mean : 6.50 Mean : 5339
## 3rd Qu.: 9.25 3rd Qu.: 5928
## Max. :12.00 Max. :52779delivery2<- aggregate(delivery2$Pedidos, by=list(Clientes=delivery2$Clientes), FUN=sum)
#pie(delivery2$`sum.delivery2$Pedidos`, labels = delivery2$Clientes)
Con esta gráfica podemos darnos cuenta de los clientes que tienen
mayores pedidos y en este caso es HELLA en primer lugar y TRMX en
segundo lugar.
Gráfica Cuantitativa
delivery2<-delivery2 %>% dplyr::rename(Pedidos="x")
summary(delivery2)## Clientes Pedidos
## Length:6 Min. : 4055
## Class :character 1st Qu.: 12340
## Mode :character Median : 25350
## Mean : 64070
## 3rd Qu.: 70408
## Max. :236235delivery2$Clientes<-as.factor(delivery2$Clientes)
ggplot(delivery2, aes(x=Clientes, y=Pedidos, fill=Pedidos))+
geom_bar(stat="identity")+
theme_minimal()+
labs(title="Pedidos por cliente")
Esta gráfica sirve para tener de manera más visual el impacto que tiene cada uno de los clientes en la empresa FORM. Podemos ver que HELLA es el cliente más significativo con casi el triple de pedidos que el siguiente cliente con mayores pedidos, TRMX. De lado derecho se tiene un legend que muestra la tonalidad de los plots para ver que tantos pedidos tiene, por ello HELLAS tiene un color azul claro, representando más de 250,000 pedidos.
Comportamiento de clientes por fecha
summary(delivery1)## ID_Fecha Fecha Clientes Pedidos
## Min. : 1.00 Length:72 Length:72 Min. : 0
## 1st Qu.: 3.75 Class :character Class :character 1st Qu.: 99
## Median : 6.50 Mode :character Mode :character Median : 1009
## Mean : 6.50 Mean : 5339
## 3rd Qu.: 9.25 3rd Qu.: 5928
## Max. :12.00 Max. :52779ggplot(delivery1,aes(x=ID_Fecha, y=Pedidos, group=Clientes,colour=Clientes))+
geom_line()+
ggtitle("Pedidos por cliente")
Con esta gráfica utilizamos el ID Fecha para conocer los pedidos que se tiene por cliente cada mes y vemos un significativo incremento de pedidos en el mes de septiembre y octubre. contamos con un legen que indica cada línea con un color para nombrar la información de cada uno de los clientes.
Gráfica Boxplot
boxplot(delivery1$Pedidos, main= "Pedidos")
delivery3<-delivery1
delivery3$Clientes <-as.factor(delivery3$Clientes)
ggplot(delivery3, aes(x=Clientes, y=Pedidos))+
geom_boxplot(color="blue", fill="purple")
En esta gráfica podemos visualizarcuantos pedidos tiene programados cada cliente y los clientes que sobre salen son HELLA y TRMX, algo muy relevante en esta gráfica es que se muestra la mediana de cada uno, así como también la minima de pedidos, la máxima de pedidos y la dispersión de cada uno de los clientes. Es interesante ver la fuerte dispersión que HELLA tiene, ya que muestra que a parte de tener un grande rango de pedidos que varían de entre 5,000 pedidos a 30,000 pedidos, tienen también una dispersión fuerte en dónde han llegado a realizar más de 50,000 pedidos. Por otro lado TRMX, un cliente que tiene un rango de pedidos entre los 5,000 y los 10,000 pedidos, pero tiene una dispersión que muestra que en algún punto de su historial realizaron cero pedidos, esto nos lleva a preguntarnos, a que se debió el que TRMX no haya realizado ningún pedido en algún mes.
Insights
Para realizar el análisis de la base de datos de “Delivery Plan” fué necesario primero hacer un arreglo de la base de datos de manera manual en el excel. Estó para simplificar el uso de la base de datos y permitir que R pueda analizarla y extraer los datos para generar gráficas. Después aplicamos dos diferentes bases de datos, nos aseguramos de que no haya NAs y eliminamos filas que correspondían a los clientes que tenían menos de 5,000 pedidos. Nos quedamos con una base de datos con los 6 clientes más significativos para FORM. Continuamos identificando las variables en dónde 6 de 8 variables eran cualitativas al ser los clientes de FORM.
Graficamos una gráfica de Pie para identificar de manera visual los mayores clientes, los que vienen siendo HELLA y TRMX. También hicimos un “Barplot” para mostrar la cantidad de pedidos programados que tiene cada cliente, Hella siendo el cliente con mayor pedidos con más de 225,000 y TRMX siguiendo con 80,000. Decidimos también visualizar el comportamiento de los clientes según la fecha y nos dimos cuenta que entre el mes de septiembre y octubre hubo un incremento de pedidos establecidos. Y por último se realizó el “Boxplot” para de ese modo ver de manera precisa la moda de clos pedidos que suele hacer cada uno de los clientes.
3. Delivery Performance
Importar la base de datos
#file.choose()
performance <- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/Performance.csv")
summary(performance)## Target Cliente Vueltas Plan.arrival
## Min. :1 Length:1440 Min. :1.00 Min. : 0.000
## 1st Qu.:1 Class :character 1st Qu.:1.00 1st Qu.: 0.000
## Median :1 Mode :character Median :1.50 Median : 4.000
## Mean :1 Mean :1.75 Mean : 6.625
## 3rd Qu.:1 3rd Qu.:2.25 3rd Qu.:10.750
## Max. :1 Max. :3.00 Max. :20.000
## Real.arrival Real.departure Diference Fecha
## Min. : 0.000 Min. : 0.000 Min. :-14.3500 Length:1440
## 1st Qu.: 0.000 1st Qu.: 0.000 1st Qu.: 0.0000 Class :character
## Median : 0.000 Median : 0.000 Median : 0.0000 Mode :character
## Mean : 3.823 Mean : 4.142 Mean : 0.3155
## 3rd Qu.: 8.000 3rd Qu.: 9.000 3rd Qu.: 0.8000
## Max. :23.500 Max. :24.500 Max. : 20.0000Sección 1
Limpieza transformación y organización de base de datos.
Observaciones
Descargar librerías y paquetes
library(foreign)
library(dplyr) # data manipulation
library(forcats) # to work with categorical variables
library(ggplot2) # data visualization
library(janitor) # data exploration and cleaning
#install.packages("Hmisc")
#library(Hmisc) # several useful functions for data analysis
#install.packages("psych")
#library(psych) # functions for multivariate analysis
#install.packages("naniar")
#library(naniar) # summaries and visualization of missing values NAs
#install.packages("dlookr")
#library(dlookr) # summaries and visualization of missing values NAs
#install.packages("corrplot")
#library(corrplot) # correlation plots
#install.packages("jtools")
#library(jtools) # presentation of regression analysis
#install.packages("lmtest")
#library(lmtest) # diagnostic checks - linear regression analysis
#install.packages("car")
#library(car) # diagnostic checks - linear regression analysis
#install.packages("olsrr")
#library(olsrr) # diagnostic checks - linear regression analysis
#install.packages("kableExtra")
#library(kableExtra) # HTML table attributes
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ tibble 3.1.8 ✔ stringr 1.4.1
## ✔ purrr 0.3.4
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ psych::%+%() masks ggplot2::%+%()
## ✖ psych::alpha() masks ggplot2::alpha()
## ✖ plyr::arrange() masks dplyr::arrange()
## ✖ purrr::compact() masks plyr::compact()
## ✖ plyr::count() masks dplyr::count()
## ✖ dlookr::extract() masks tidyr::extract()
## ✖ plyr::failwith() masks dplyr::failwith()
## ✖ dplyr::filter() masks stats::filter()
## ✖ plyr::id() masks dplyr::id()
## ✖ dplyr::lag() masks stats::lag()
## ✖ plyr::mutate() masks dplyr::mutate()
## ✖ plyr::rename() masks dplyr::rename()
## ✖ dplyr::src() masks Hmisc::src()
## ✖ plyr::summarise() masks dplyr::summarise()
## ✖ plyr::summarize() masks dplyr::summarize(), Hmisc::summarize()Cuantas variables y registros hay
str(performance)## 'data.frame': 1440 obs. of 8 variables:
## $ Target : int 1 1 1 1 1 1 1 1 1 1 ...
## $ Cliente : chr "PRINTEL " "MAHLE" "MAHLE" "MAHLE" ...
## $ Vueltas : int 1 1 2 3 1 1 2 3 1 1 ...
## $ Plan.arrival : int 16 8 9 20 0 0 0 0 16 8 ...
## $ Real.arrival : num 16 8 9 20 0 0 0 0 16 8 ...
## $ Real.departure: num 19.3 8.55 10 21 0 0 0 0 18.1 9 ...
## $ Diference : num 3.3 0.55 1 1 0 0 0 0 2.1 1 ...
## $ Fecha : chr "02/01/22" "02/01/22" "02/01/22" "02/01/22" ...Técnicas de Limpieza
Técnica 1: De caracter a Fecha
performance1<-performance
performance1$Fecha<- as.Date(performance1$Fecha, format= "%d/%m/%y")
summary(performance1)## Target Cliente Vueltas Plan.arrival
## Min. :1 Length:1440 Min. :1.00 Min. : 0.000
## 1st Qu.:1 Class :character 1st Qu.:1.00 1st Qu.: 0.000
## Median :1 Mode :character Median :1.50 Median : 4.000
## Mean :1 Mean :1.75 Mean : 6.625
## 3rd Qu.:1 3rd Qu.:2.25 3rd Qu.:10.750
## Max. :1 Max. :3.00 Max. :20.000
## Real.arrival Real.departure Diference Fecha
## Min. : 0.000 Min. : 0.000 Min. :-14.3500 Min. :2022-01-02
## 1st Qu.: 0.000 1st Qu.: 0.000 1st Qu.: 0.0000 1st Qu.:2022-02-23
## Median : 0.000 Median : 0.000 Median : 0.0000 Median :2022-04-17
## Mean : 3.823 Mean : 4.142 Mean : 0.3155 Mean :2022-04-16
## 3rd Qu.: 8.000 3rd Qu.: 9.000 3rd Qu.: 0.8000 3rd Qu.:2022-06-08
## Max. :23.500 Max. :24.500 Max. : 20.0000 Max. :2022-07-23tibble(performance1)## # A tibble: 1,440 × 8
## Target Cliente Vueltas Plan.arrival Real.arri…¹ Real.…² Difer…³ Fecha
## <int> <chr> <int> <int> <dbl> <dbl> <dbl> <date>
## 1 1 "PRINTEL " 1 16 16 19.3 3.3 2022-01-02
## 2 1 "MAHLE" 1 8 8 8.55 0.55 2022-01-02
## 3 1 "MAHLE" 2 9 9 10 1 2022-01-02
## 4 1 "MAHLE" 3 20 20 21 1 2022-01-02
## 5 1 "MAGNA" 1 0 0 0 0 2022-01-02
## 6 1 "VARROC" 1 0 0 0 0 2022-01-02
## 7 1 "VARROC" 2 0 0 0 0 2022-01-02
## 8 1 "VARROC" 3 0 0 0 0 2022-01-02
## 9 1 "PRINTEL " 1 16 16 18.1 2.1 2022-01-03
## 10 1 "MAHLE" 1 8 8 9 1 2022-01-03
## # … with 1,430 more rows, and abbreviated variable names ¹Real.arrival,
## # ²Real.departure, ³DiferenceTécnica 2: Eliminar NAs y columnas
sum(is.na(performance1))## [1] 0performance2<-performance1
performance2 <- subset(performance2, select =-c (Target))Se elimina la variable “target” ya que no nos muestra una información detallada al darnos datos nulos planteando el número 1 en todos los registros.
Técnica 3: Limpieza por metodo estadístico
performance3<-performance2
boxplot(performance3$Plan.arrival, horizontal=TRUE)
boxplot(performance3$Real.arrival, horizontal=TRUE)
boxplot(performance3$Real.departure, horizontal=TRUE)
boxplot(performance3$Diference, horizontal=TRUE)
Con los Boxplots anteriores analizamos aquellas variables que nos daban informacion relevante y de ese modo decidimos gregar una columna de promedio.
Agregar Columna de Promedio
performance3$Promedio_real_arrival<- mean(performance3$Real.arrival)Técnica 4: De caracter a numérico
performance3$Vueltas<-as.numeric(performance3$Vueltas) ### missing values are converted to NA's
performance3$Plan.arrival<-as.numeric(performance3$Plan.arrival)
performance3$Real.arrival<-as.numeric(performance3$Real.arrival)
performance3$Real.departure<-as.numeric(performance3$Real.departure)
performance3$Diference<-as.numeric(performance3$Diference)
performance3$Promedio_real_arrival<-as.numeric(performance3$Promedio_real_arrival)
performance3<-as.data.frame(performance3)
performance3$Fecha<-as.Date(performance3$Fecha,format="%m/%d/%Y")
performance3$Cliente<-as.factor(performance3$Cliente)
tibble(performance3)## # A tibble: 1,440 × 8
## Cliente Vueltas Plan.arrival Real.arr…¹ Real.…² Difer…³ Fecha Prome…⁴
## <fct> <dbl> <dbl> <dbl> <dbl> <dbl> <date> <dbl>
## 1 "PRINTEL " 1 16 16 19.3 3.3 2022-01-02 3.82
## 2 "MAHLE" 1 8 8 8.55 0.55 2022-01-02 3.82
## 3 "MAHLE" 2 9 9 10 1 2022-01-02 3.82
## 4 "MAHLE" 3 20 20 21 1 2022-01-02 3.82
## 5 "MAGNA" 1 0 0 0 0 2022-01-02 3.82
## 6 "VARROC" 1 0 0 0 0 2022-01-02 3.82
## 7 "VARROC" 2 0 0 0 0 2022-01-02 3.82
## 8 "VARROC" 3 0 0 0 0 2022-01-02 3.82
## 9 "PRINTEL " 1 16 16 18.1 2.1 2022-01-03 3.82
## 10 "MAHLE" 1 8 8 9 1 2022-01-03 3.82
## # … with 1,430 more rows, and abbreviated variable names ¹Real.arrival,
## # ²Real.departure, ³Diference, ⁴Promedio_real_arrivalIdentificar variables
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
variables <- c("`Target`","`Cliente`","`Vueltas`","`Plan.arrival`","`Real.arrival`","`Real.departure`","`Diference`","`Fecha`")
tipos <- c("cuantitativo (discreto) ", "cualitativo ", "cuantitativo (discreto) ", "cuantitativo (continuo) ", "cuantitativo (continuo) ", "cuantitativo (continuo) ", "cuantitativo (continuo) ", "cualitativo ")
escalas <- c("intervalo", "nominal", "razon", "razon", "razon", "razon", "razon", "ordinal")
table.p <- data.frame (variables, tipos, escalas)
knitr::kable(table.p)| variables | tipos | escalas |
|---|---|---|
Target
|
cuantitativo (discreto) | intervalo |
Cliente
|
cualitativo | nominal |
Vueltas
|
cuantitativo (discreto) | razon |
Plan.arrival
|
cuantitativo (continuo) | razon |
Real.arrival
|
cuantitativo (continuo) | razon |
Real.departure
|
cuantitativo (continuo) | razon |
Diference
|
cuantitativo (continuo) | razon |
Fecha
|
cualitativo | ordinal |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Estadísticos Descriptivos
performance4 <- performance3
sd(performance4$Vueltas, na.rm = FALSE)## [1] 0.8294442sd(performance4$Plan.arrival, na.rm = FALSE)## [1] 7.501563sd(performance4$Real.arrival, na.rm = FALSE)## [1] 6.505902sd(performance4$Real.departure, na.rm = FALSE)## [1] 6.948665sd(performance4$Diference, na.rm = FALSE)## [1] 0.9218758Tabla de Media, Moda y Mediana
Variable<-c("Vueltas","P.arrival", "R.arrival", "R.dep", "Dif")
Mediana<-c("1.50 ","4.000","0.000 ","0.000 ","0.0000 ")
Media <- c("1.75","6.625","3.823","4.142","4.142")
Moda <- c("1","0","0","0","0")
Desviación_estandar<-c("0.8294442"," 7.501563","6.505902","6.948665","6.948665")
table1 <- data.frame (Variable, Mediana, Media, Moda, Desviación_estandar)
knitr::kable(table1)| Variable | Mediana | Media | Moda | Desviación_estandar |
|---|---|---|---|---|
| Vueltas | 1.50 | 1.75 | 1 | 0.8294442 |
| P.arrival | 4.000 | 6.625 | 0 | 7.501563 |
| R.arrival | 0.000 | 3.823 | 0 | 6.505902 |
| R.dep | 0.000 | 4.142 | 0 | 6.948665 |
| Dif | 0.0000 | 4.142 | 0 | 6.948665 |
Se ocupo summary para poder obtener la moda, mediana y media de las variables y posteriormente se calcula la desviación estandar con la función sd()
Gráficos
Tabla de Frecuencia
#install.packages('epiDisplay')
library(epiDisplay)## Loading required package: MASS##
## Attaching package: 'MASS'## The following object is masked from 'package:dplyr':
##
## select## Loading required package: nnet##
## Attaching package: 'epiDisplay'## The following objects are masked from 'package:psych':
##
## alpha, cs, lookup## The following object is masked from 'package:ggplot2':
##
## alpha## The following object is masked from 'package:lattice':
##
## dotplottab1(performance4$Diference, sort.group = "decreasing", cum.percent = TRUE) 
## performance4$Diference :
## Frequency Percent Cum. percent
## 0 1014 70.4 70.4
## 1 192 13.3 83.8
## 1.1 20 1.4 85.1
## 1.05 17 1.2 86.3
## 1.2 16 1.1 87.4
## 0.5 14 1.0 88.4
## 1.15 11 0.8 89.2
## 0.9 8 0.6 89.7
## 0.4 8 0.6 90.3
## 1.5 7 0.5 90.8
## 0.8 7 0.5 91.2
## 0.55 7 0.5 91.7
## 2 6 0.4 92.2
## 1.8 6 0.4 92.6
## 1.3 6 0.4 93.0
## 0.3 6 0.4 93.4
## 1.4 5 0.3 93.8
## 1.25 5 0.3 94.1
## 0.95 5 0.3 94.4
## 0.2 5 0.3 94.8
## 1.45 4 0.3 95.1
## 1.35 3 0.2 95.3
## 0.45 3 0.2 95.5
## 0.35 3 0.2 95.7
## 0.1 3 0.2 95.9
## 3.1 2 0.1 96.0
## 2.6 2 0.1 96.2
## 2.38 2 0.1 96.3
## 2.15 2 0.1 96.5
## 1.6 2 0.1 96.6
## 1.03 2 0.1 96.7
## 0.85 2 0.1 96.9
## 0.7 2 0.1 97.0
## 0.6 2 0.1 97.2
## 0.15 2 0.1 97.3
## 4.4 1 0.1 97.4
## 4 1 0.1 97.4
## 3.3 1 0.1 97.5
## 3.05 1 0.1 97.6
## 20 1 0.1 97.6
## 2.85 1 0.1 97.7
## 2.52 1 0.1 97.8
## 2.5 1 0.1 97.8
## 2.4 1 0.1 97.9
## 2.35 1 0.1 98.0
## 2.3 1 0.1 98.1
## 2.27 1 0.1 98.1
## 2.2 1 0.1 98.2
## 2.1 1 0.1 98.3
## 2.05 1 0.1 98.3
## 1.95 1 0.1 98.4
## 1.9 1 0.1 98.5
## 1.88 1 0.1 98.5
## 1.85 1 0.1 98.6
## 1.74 1 0.1 98.7
## 1.73 1 0.1 98.8
## 1.7 1 0.1 98.8
## 1.66 1 0.1 98.9
## 1.65 1 0.1 99.0
## 1.55 1 0.1 99.0
## 1.14 1 0.1 99.1
## 1.13 1 0.1 99.2
## 1.07 1 0.1 99.2
## 1.04 1 0.1 99.3
## 1.01 1 0.1 99.4
## 0.99 1 0.1 99.4
## 0.98 1 0.1 99.5
## 0.75 1 0.1 99.6
## 0.47 1 0.1 99.7
## 0.43 1 0.1 99.7
## 0.34 1 0.1 99.8
## 0.25 1 0.1 99.9
## -14.35 1 0.1 99.9
## -12.15 1 0.1 100.0
## Total 1440 100.0 100.0tab1(performance4$Real.arrival, sort.group = "decreasing", cum.percent = TRUE)
## performance4$Real.arrival :
## Frequency Percent Cum. percent
## 0 1009 70.1 70.1
## 8 100 6.9 77.0
## 20 83 5.8 82.8
## 9 81 5.6 88.4
## 18 11 0.8 89.2
## 9.4 10 0.7 89.9
## 15 9 0.6 90.5
## 18.2 8 0.6 91.0
## 16 7 0.5 91.5
## 9.5 6 0.4 91.9
## 9.2 6 0.4 92.4
## 9.1 6 0.4 92.8
## 10 6 0.4 93.2
## 9.15 5 0.3 93.5
## 15.1 5 0.3 93.9
## 16.2 4 0.3 94.2
## 9.3 3 0.2 94.4
## 15.2 3 0.2 94.6
## 9.45 2 0.1 94.7
## 9.26 2 0.1 94.9
## 9.12 2 0.1 95.0
## 9.08 2 0.1 95.1
## 8.1 2 0.1 95.3
## 8.05 2 0.1 95.4
## 7.35 2 0.1 95.6
## 7.3 2 0.1 95.7
## 6 2 0.1 95.8
## 23.3 2 0.1 96.0
## 20.2 2 0.1 96.1
## 20.1 2 0.1 96.2
## 19.2 2 0.1 96.4
## 18.4 2 0.1 96.5
## 18.3 2 0.1 96.7
## 16.4 2 0.1 96.8
## 15.3 2 0.1 96.9
## 13 2 0.1 97.1
## 9.35 1 0.1 97.2
## 9.25 1 0.1 97.2
## 9.17 1 0.1 97.3
## 9.11 1 0.1 97.4
## 9.05 1 0.1 97.4
## 8.52 1 0.1 97.5
## 8.45 1 0.1 97.6
## 7.45 1 0.1 97.6
## 7.34 1 0.1 97.7
## 23.5 1 0.1 97.8
## 23.2 1 0.1 97.8
## 23.15 1 0.1 97.9
## 23 1 0.1 98.0
## 22.4 1 0.1 98.1
## 22.08 1 0.1 98.1
## 21.15 1 0.1 98.2
## 21.1 1 0.1 98.3
## 21.05 1 0.1 98.3
## 20.4 1 0.1 98.4
## 20.3 1 0.1 98.5
## 20.15 1 0.1 98.5
## 20.05 1 0.1 98.6
## 19.48 1 0.1 98.7
## 19.15 1 0.1 98.8
## 19.1 1 0.1 98.8
## 18.5 1 0.1 98.9
## 18.35 1 0.1 99.0
## 18.15 1 0.1 99.0
## 18.1 1 0.1 99.1
## 18.05 1 0.1 99.2
## 17.3 1 0.1 99.2
## 17 1 0.1 99.3
## 15.45 1 0.1 99.4
## 15.4 1 0.1 99.4
## 15.16 1 0.1 99.5
## 14 1 0.1 99.6
## 13.4 1 0.1 99.7
## 11.37 1 0.1 99.7
## 11 1 0.1 99.8
## 10.42 1 0.1 99.9
## 10.4 1 0.1 99.9
## 10.05 1 0.1 100.0
## Total 1440 100.0 100.0Line Plot
ggplot(performance4,aes(x=Fecha, y=Diference,color=Cliente))+
geom_line()+
labs(x="Fecha",y="Delay in Minutes", color="Legend")+
ggtitle("Delays in Performance by Client")
Con esta gráfica visualizamos que se tienen dos clientes insignificantes, por lo que evita que tengamos una buena visualización de los datos relevantes. Podemos ver que Varroc se mantiene en los ceros y que Magna no se visualiza en la gráfica, por lo que esto nos lleva a tomar la decisión de concentrarnos en los otros dos clientes que de verdad toman una parte importante.
Revisar la presencia de datos faltantes
performance5 <- performance4
performance5<-performance5[-c(300,292),] # Quitar las filas 300 y 292 por que presentan datos negativos y que no sirven para el analisis.
summary(performance5) # no missing values## Cliente Vueltas Plan.arrival Real.arrival
## MAGNA :180 Min. :1.000 Min. : 0.000 Min. : 0.000
## MAHLE :538 1st Qu.:1.000 1st Qu.: 0.000 1st Qu.: 0.000
## PRINTEL :180 Median :1.000 Median : 0.000 Median : 0.000
## VARROC :540 Mean :1.748 Mean : 6.606 Mean : 3.796
## 3rd Qu.:2.000 3rd Qu.: 9.000 3rd Qu.: 8.000
## Max. :3.000 Max. :20.000 Max. :23.500
## Real.departure Diference Fecha Promedio_real_arrival
## Min. : 0.000 Min. : 0.0000 Min. :2022-01-02 Min. :3.823
## 1st Qu.: 0.000 1st Qu.: 0.0000 1st Qu.:2022-02-24 1st Qu.:3.823
## Median : 0.000 Median : 0.0000 Median :2022-04-18 Median :3.823
## Mean : 4.134 Mean : 0.3344 Mean :2022-04-16 Mean :3.823
## 3rd Qu.: 9.000 3rd Qu.: 0.8000 3rd Qu.:2022-06-08 3rd Qu.:3.823
## Max. :24.500 Max. :20.0000 Max. :2022-07-23 Max. :3.823Quitar clientes que tienen valor de 0
performance5<-performance5[performance5$Cliente!="MAGNA",]
performance5<-performance5[performance5$Cliente!="VARROC",]
summary(performance5)## Cliente Vueltas Plan.arrival Real.arrival
## MAGNA : 0 Min. :1.000 Min. : 8.00 Min. : 0.000
## MAHLE :538 1st Qu.:1.000 1st Qu.: 8.25 1st Qu.: 0.000
## PRINTEL :180 Median :1.000 Median : 9.00 Median : 8.000
## VARROC : 0 Mean :1.747 Mean :13.23 Mean : 7.603
## 3rd Qu.:2.000 3rd Qu.:16.00 3rd Qu.:10.000
## Max. :3.000 Max. :20.00 Max. :23.500
## Real.departure Diference Fecha Promedio_real_arrival
## Min. : 0.00 Min. : 0.0000 Min. :2022-01-02 Min. :3.823
## 1st Qu.: 0.00 1st Qu.: 0.0000 1st Qu.:2022-02-24 1st Qu.:3.823
## Median : 9.00 Median : 0.8000 Median :2022-04-18 Median :3.823
## Mean : 8.28 Mean : 0.6697 Mean :2022-04-16 Mean :3.823
## 3rd Qu.:11.50 3rd Qu.: 1.0000 3rd Qu.:2022-06-08 3rd Qu.:3.823
## Max. :24.50 Max. :20.0000 Max. :2022-07-23 Max. :3.823Gráfica de 2 clientes eliminados
ggplot(performance5,aes(x=Fecha, y=Diference,color=Cliente))+
geom_line()+ geom_hline(yintercept=0.8000,linetype="dashed",color="black")+
labs(x="Fecha",y="Diferencia por día", color="Legend")+
ggtitle("Diferencia de entrega por Cliente")
Encontramos gracias a la grafica realizada de la Diferencia de tiempo en la entrega de producto por cliente, que los clientes con mayor Delay son MAHLE Y PRINTEL, al mismo tiempo encontramos que entre estos dos clientes, el que tiene mayor Delay es MAHLE, por lo que sería bueno para la empresa el tener un mayor enfoque, de ambos, pero tambien un poco más en Mahle, para que tenga mejor referencia de este cliente y mayor confianza con la empresa en las entregas.
Insights
Es importante conocer como empresa a tus mismos clientes y el rendimiento que se tiene. En este caso nos enfocamos en dos principales clientes de FORM que tienen datos relevantes sobre este tema, MAHLE y PRINTEL, de este modo podemos ver que entre febrero y marzo se tuvo mayor tardanza en la entrega de los materiales y productos con estos dos clientes, por lo que destaca la oportunidad para form de analizar el porque de estos retrasos.
4. Producción
Importar base de datos
#file.choose()
produccion <- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/CSV/FORM - ProducciónLimpia.csv")
summary(produccion)## CLIENTE ID.FORM PRODUCTO PIEZAS.PROG.
## Length:2569 Length:2569 Length:2569 Length:2569
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## TMO..MIN. HR..FIN ESTACION.ARRANQUE Laminas.procesadas
## Length:2569 Length:2569 Length:2569 Length:2569
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## INICIO.SEP.UP FIN.INICIO.DE.SEP.UP INICIO.de.PROCESO FIN.de.PROCESO
## Length:2569 Length:2569 Length:2569 Length:2569
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## TIEMPO.CALIDAD
## Length:2569
## Class :character
## Mode :characterSección 1
Limpieza transformación y organización de base de datos.
Observaciones
Fue necesario hacer una limpia manual de la base de datos, se seleccionaron las variables conmayor significancia, nos quedamos con los datos unicamente de producción y se aclaró el formato de las columnas de fecha y tiempo.
Descargar librerías y paquetes
#install.packages("forecast")
library(forecast)## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zooCuantas variables y registros hay
str(produccion)## 'data.frame': 2569 obs. of 13 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" "" ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : chr "199" "57" "68" "192" ...
## $ TMO..MIN. : chr "15" "10" "10" "15" ...
## $ HR..FIN : chr "9:15:00 a. m." "9:25:00 a. m." "9:35:00 a. m." "9:50:00 a. m." ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : chr "201" "116" "69" "49" ...
## $ INICIO.SEP.UP : chr "9:00" "9:26" "10:02" "10:12" ...
## $ FIN.INICIO.DE.SEP.UP: chr "9:12" "9:31" "10:09" "10.17" ...
## $ INICIO.de.PROCESO : chr "9:13" "9:32" "10:09" "10:18" ...
## $ FIN.de.PROCESO : chr "9:26" "9:53" "10.12" "10:20" ...
## $ TIEMPO.CALIDAD : chr "1" "1" "1" "1" ...Contamos con 13 variables y 2569 obsrvaciones.
Técnicas de Limpieza
Técnica 1: eliminar columnas
Se decidió eliminar columnas con variables que no agregan valor al análisis de la base de datos.
produccion2 <- produccion
produccion2 <- subset (produccion2, select = -c (ID.FORM))
produccion2 <- subset (produccion2, select = -c (PRODUCTO))
produccion2 <- subset (produccion2, select = -c (HR..FIN))
produccion2 <- subset (produccion2, select = -c (ESTACION.ARRANQUE))
produccion2 <- subset (produccion2, select = -c (INICIO.SEP.UP))
produccion2 <- subset (produccion2, select = -c (FIN.INICIO.DE.SEP.UP))
produccion2 <- subset (produccion2, select = -c (INICIO.de.PROCESO))
produccion2 <- subset (produccion2, select = -c (FIN.de.PROCESO))
summary(produccion2)## CLIENTE PIEZAS.PROG. TMO..MIN. Laminas.procesadas
## Length:2569 Length:2569 Length:2569 Length:2569
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## TIEMPO.CALIDAD
## Length:2569
## Class :character
## Mode :characterTécnica 2: convertir caracter
Convertimos characteres enteros a numéricos.
#install.packages("tibble")
library(tibble)
produccion2$TMO..MIN.<- as.numeric(produccion2$TMO..MIN.)## Warning: NAs introduced by coercionproduccion2$PIEZAS.PROG.<- as.numeric(produccion2$PIEZAS.PROG.)## Warning: NAs introduced by coercionproduccion2$TIEMPO.CALIDAD<- as.numeric(produccion2$TIEMPO.CALIDAD)## Warning: NAs introduced by coercionproduccion2$Laminas.procesadas<- as.numeric(produccion2$Laminas.procesadas)## Warning: NAs introduced by coercionproduccion2$CLIENTE<- as.character(produccion2$CLIENTE)
tibble(produccion2)## # A tibble: 2,569 × 5
## CLIENTE PIEZAS.PROG. TMO..MIN. Laminas.procesadas TIEMPO.CALIDAD
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 VARROC 199 15 201 1
## 2 VARROC 57 10 116 1
## 3 VARROC 68 10 69 1
## 4 DENSO 192 15 49 1
## 5 DENSO 192 15 49 1
## 6 YANFENG 400 30 801 1
## 7 YANFENG 80 15 41 1
## 8 YANFENG 104 15 53 1
## 9 YANFENG 104 15 53 1
## 10 YANFENG 160 20 55 1
## # … with 2,559 more rowsTécnica 3: eliminar NAs
Se decidió realizar está técnica para asegurarnos de que no se tenga falta de datos y en caso de tenerlos evitar que estas eviten tener un analisis asertivo al no agregar valor a la base de datos.
¿Cuantos NA tengo en la base de datos?
sum(is.na(produccion2))## [1] 2161Cuantos NA tengo por variable?
Sapply: Para contar los NA
sapply(produccion2, function(x) sum(is.na(x)))## CLIENTE PIEZAS.PROG. TMO..MIN. Laminas.procesadas
## 0 164 714 661
## TIEMPO.CALIDAD
## 622Observación:Contamos con 2161 NAs, 164 en la variable de piezas programadas, 714 en tiempo mínimo, 661 en Laminas Procesadas y 622 Tiempo de Calidad.
Eliminamos NAs
produccion3<-produccion2
delete.na <- function(df, n=0) {
df[rowSums(is.na(df)) <= n,]
}
#delete.na(produccion3)
produccion3 <- na.omit(produccion3)
summary(produccion3)## CLIENTE PIEZAS.PROG. TMO..MIN. Laminas.procesadas
## Length:1462 Min. : 1.0 Min. : 0.00 Min. : 0.0
## Class :character 1st Qu.: 100.0 1st Qu.: 15.00 1st Qu.: 37.0
## Mode :character Median : 192.0 Median : 20.00 Median : 101.0
## Mean : 172.7 Mean : 22.41 Mean : 134.1
## 3rd Qu.: 200.0 3rd Qu.: 25.00 3rd Qu.: 202.0
## Max. :1200.0 Max. :120.00 Max. :1125.0
## TIEMPO.CALIDAD
## Min. : 0.000
## 1st Qu.: 1.000
## Median : 1.000
## Mean : 1.063
## 3rd Qu.: 1.000
## Max. :22.000sum(is.na(produccion3))## [1] 0Identificar variables
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
Variable<-c("`CLIENTE`","`PIEZAS.PROG.`", "` TMO..MIN.`", "` Laminas.procesadas`", "` TIEMPO.CALIDAD`")
Type<-c("Cualitativa", "Cuantitativa (discreta)","Cuantitativa (discreta)","Cuantitativa (discreta)","Cuantitativa (discreta)")
Measurement<-c("Nominal", "Razón","Razón","Razón","Razón")
table<-data.frame(Variable,Type,Measurement)
knitr::kable(table)| Variable | Type | Measurement |
|---|---|---|
CLIENTE
|
Cualitativa | Nominal |
PIEZAS.PROG.
|
Cuantitativa (discreta) | Razón |
TMO..MIN.
|
Cuantitativa (discreta) | Razón |
Laminas.procesadas
|
Cuantitativa (discreta) | Razón |
TIEMPO.CALIDAD
|
Cuantitativa (discreta) | Razón |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Tabla de Media, Moda y Mediana
median(produccion3$Laminas.procesadas, na.rm = TRUE)## [1] 101mean(produccion3$Laminas.procesadas, na.rm = TRUE)## [1] 134.0705sd(produccion3$Laminas.procesadas, na.rm = FALSE)## [1] 138.7008#mfv(produccion3$Laminas.procesadas)
variable<-c("'Laminas.procesadas")
Mediana<-c("101")
Media <- c("134")
Moda <- c("0")
Desviación_estandar<-c("138")
table1 <- data.frame (variable, Mediana, Media, Moda, Desviación_estandar)
knitr::kable(table1)| variable | Mediana | Media | Moda | Desviación_estandar |
|---|---|---|---|---|
| ’Laminas.procesadas | 101 | 134 | 0 | 138 |
median(produccion3$PIEZAS.PROG., na.rm = TRUE)## [1] 192mean(produccion3$PIEZAS.PROG., na.rm = TRUE)## [1] 172.7332sd(produccion3$PIEZAS.PROG., na.rm = FALSE)## [1] 124.9521#mfv(produccion3$PIEZAS.PROG.)
variable<-c("'PIEZAS.PROG.")
Mediana<-c("192")
Media <- c("172.73")
Moda <- c("200")
Desviación_estandar<-c("124.95")
table2 <- data.frame (variable, Mediana, Media, Moda, Desviación_estandar)
knitr::kable(table2)| variable | Mediana | Media | Moda | Desviación_estandar |
|---|---|---|---|---|
| ’PIEZAS.PROG. | 192 | 172.73 | 200 | 124.95 |
Gráficos
Gráfica Cualitativa
#install.packages("plyr")
library(plyr)
pie(table(produccion3$CLIENTE))
Gráfica De Dispersión
boxplots=subset(produccion3,select=-c(CLIENTE))
boxplot(table (produccion3$CLIENTE), main = "Pedidos de Clientes", xlab = "Clientes", ylab = "Cantidad")
Gráfica Barplot
Recopilando la informacion me tope con estos datos lo cual nos informa acerca de los clientes mas destacados para form y el tiempo minimo de tardanza en el ensamblaje de los productos, en este caso el primer lugar con mas eficiencia por cliente fue stabilus en la primera vuelta.
summary(produccion3)## CLIENTE PIEZAS.PROG. TMO..MIN. Laminas.procesadas
## Length:1462 Min. : 1.0 Min. : 0.00 Min. : 0.0
## Class :character 1st Qu.: 100.0 1st Qu.: 15.00 1st Qu.: 37.0
## Mode :character Median : 192.0 Median : 20.00 Median : 101.0
## Mean : 172.7 Mean : 22.41 Mean : 134.1
## 3rd Qu.: 200.0 3rd Qu.: 25.00 3rd Qu.: 202.0
## Max. :1200.0 Max. :120.00 Max. :1125.0
## TIEMPO.CALIDAD
## Min. : 0.000
## 1st Qu.: 1.000
## Median : 1.000
## Mean : 1.063
## 3rd Qu.: 1.000
## Max. :22.000produccion4 <- produccion3
#produccion4<-produccion4 %>% select(PIEZAS.PROG.,TMO..MIN.,CLIENTE ) %>% group_by(CLIENTE) %>%
#summarise(PIEZAS.PROG.=sum(PIEZAS.PROG.),TMO..MIN.=sum(TMO..MIN.)) %>% arrange(desc(piezas_prog))
produccion4<-produccion4[-c(7,8,9),]
ggplot(produccion4,aes(x=reorder(TMO..MIN.,PIEZAS.PROG.), y=PIEZAS.PROG.,fill=CLIENTE)) +
geom_bar(stat="identity")
En esta tabla se muestra un claro ejemplo de comparacion que entre mas tiempo de calidad se le de al cliente se lograra hacer un tiempo mucho mas minimo eficientizando los procesos y terminandolos mas rapido como fue con los clientes en azul.
Gráfica Barplot
ggplot(produccion4,aes(x=CLIENTE, y=PIEZAS.PROG.,fill=TIEMPO.CALIDAD)) +
geom_bar(stat="identity")
En este gráfico visualizamos la cantidad de piezas programadas que se tiene por cliente y el tiempo de calidad de cada uno. En su mayoría los clientes cuentan con un tiempo de calidad de 0, por lo que podemos inferir que se tiene un buen aprovechamiento del tiemp y una eficiencia en la entrega y producción de las piezas programadas.
Gráfica Dispersión 1
ggplot(produccion4, aes(x=TIEMPO.CALIDAD, y=TMO..MIN., color=CLIENTE)) +
geom_point() + geom_rug()
En esta grafica, se tiene la intencion de ver a los compradores predominantes dentro de FORM durante los tres meses predictivos, esto para poder lograr una atencion especializada y ver mas o menos el tiempo que toman sus productos y generar un tipo de procesos mas fluido.
Gráfica Dispersión 2
ggplot(produccion4, aes(x=CLIENTE, y=Laminas.procesadas, color=TMO..MIN.)) +
geom_point() + geom_rug()
Series de Tiempo
ggplot(produccion4,aes(x=TIEMPO.CALIDAD))+
geom_line(aes(y=PIEZAS.PROG.),color="orange")+
labs(x="Tiempo de Calidad",y="piezas programadas", color="orange")+
ggtitle("Grafica de tasa de rendimiento")
Insights
Con la base de datos de Producción, podemos ver que a los clientes Stabilus 3 y TRMX se les proporciona mayor tiempo de calidad por lo que después provoca tener sus pedidos mñas rapidos y eficientizar los tiempos de entrega. Por otro lado a clientes como Stabilus 1 y Varroc se le dedicó muy poco tiempo de calidad, pero más tiempo para poder entregar los productos. También pudmis observar a través de boxplots que el rango de pedidos vsaria entre los 50 y 200 pedidos teniendo una media de 150 pedidos. Con esta información podemos proponer el implementar KPIs de la cantidad de pedidos que se obtienen y así medir su crecimiento e implementar estrategias de marketing para hacer que ese KPI tengo cierto porcentaje de crecimiento al mes.
5. Merma
Importar la base de datos
#file.choose()
merma <- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/FORM - Merma limpia.csv")
summary(merma)## Fecha Kilos
## Length:42 Min. : 1040
## Class :character 1st Qu.: 3682
## Mode :character Median : 4025
## Mean : 4415
## 3rd Qu.: 4325
## Max. :18900Sección 1
Limpieza transformación y organización de base de datos.
Observaciones
1. En esta base de datos se eliminaron las columanas que no era relevante para el analisis, Se eliminaron los registros de total de merma y la columna de mes ya que no tenían mucha signficancia en el análisis y la información que se busca extraer.
2.Para el caso de variables cuantitativas considerar la posibilidad de reemplazar la presencia de “missing values” con estadísticos descriptivos (por ejemplo, media, mediana, moda).
Descargar librerías y paquetes
#install.packages("dplyr")
#install.packages("merge)
library(dplyr)
#library(merge)Cuantas variables y registros hay
Contamos con 42 registros y 2 variables.
str(merma)## 'data.frame': 42 obs. of 2 variables:
## $ Fecha: chr "11/01/22" "22/01/22" "18/02/22" "24/02/22" ...
## $ Kilos: int 8890 5670 18900 3930 4000 4190 2980 3290 4200 3810 ...Técnicas de Limpieza
Técnica 1: cambiar nombres
Se decidió simplificar los nombres de las variables para simplificar el uso de las mismas.
merma1<- merma
#merma1<-merma %>% select(one_of("Fecha","Kilos"))
colnames(merma1) <-c ("Fecha","Kilos")
summary(merma1)## Fecha Kilos
## Length:42 Min. : 1040
## Class :character 1st Qu.: 3682
## Mode :character Median : 4025
## Mean : 4415
## 3rd Qu.: 4325
## Max. :18900Técnica 2:
Identificar variables
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
Variable<-c("`Fecha`","`IDMes`", "` Mes`", "` Kilos`")
Type<-c("Cuantitativa (continua)", "Cualitativa","Cualitativa","Cuantitativa (discreta)")
Measurement<-c("Razón", "Nominal","Nominal","Razón")
table<-data.frame(Variable,Type,Measurement)
knitr::kable(table)| Variable | Type | Measurement |
|---|---|---|
Fecha
|
Cuantitativa (continua) | Razón |
IDMes
|
Cualitativa | Nominal |
Mes
|
Cualitativa | Nominal |
Kilos
|
Cuantitativa (discreta) | Razón |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Tabla de Media, Moda y Mediana
median(merma1$Kilos, na.rm = TRUE)## [1] 4025mean(merma1$Kilos, na.rm = TRUE)## [1] 4414.905sd(merma1$Kilos, na.rm = FALSE)## [1] 2571.793#mfv(merma1$Kilos)
variable<-c("'Kilos")
Mediana<-c("4025")
Media <- c("4415")
Moda <- c("4190")
Desviación_estandar<-c("2571.793")
table1 <- data.frame (variable, Mediana, Media, Moda, Desviación_estandar)
knitr::kable(table1)| variable | Mediana | Media | Moda | Desviación_estandar |
|---|---|---|---|---|
| ’Kilos | 4025 | 4415 | 4190 | 2571.793 |
Gráficos
Time Series Plot
merma1$Fecha<-as.Date(merma1$Fecha,format="%d/%m/%y")
#install.packages("ggplot2")
library(ggplot2)
summary(merma1)## Fecha Kilos
## Min. :2022-01-11 Min. : 1040
## 1st Qu.:2022-04-05 1st Qu.: 3682
## Median :2022-06-11 Median : 4025
## Mean :2022-06-04 Mean : 4415
## 3rd Qu.:2022-08-10 3rd Qu.: 4325
## Max. :2022-09-21 Max. :18900ggplot(merma1,aes(x=Fecha))+
geom_line(aes(y=Kilos),color="blue")+
labs(x="Fecha",y="Kilo", color="Legend")+
ggtitle("Kilos de merma por mes")
Gráfica cuantitativa
#file.choose()
merma2 <- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/CSV/FORM - Merma.csv")
summary(merma2)## Fecha IDMes Mes Kilos
## Length:60 Min. :1.00 Length:60 Length:60
## Class :character 1st Qu.:3.00 Class :character Class :character
## Mode :character Median :5.00 Mode :character Mode :character
## Mean :5.24
## 3rd Qu.:8.00
## Max. :9.00
## NA's :10#table(merma2$Mes, merma2$Kilos)
barplot(table(merma2$Kilos, merma2$IDMes), col="purple", main = "Cantidad de Kilos de merma por mes", xlab = "ID Mes", ylab = "Kilos" )
Insights
Una reflexión que se toma sobre esta actividad es que solo contamos con dos variables relevantes las cual nos puede decir algo, en este caso solo se utilizo la de fecha y la de los kilos de merma.
En la base de datos de Merma, analizamos como cambian los kilos que se generan por mes, y podemos ver que en Junio es donde mayor merma se genera, esto puede ser debido a que en junio tienen mayor producción, es por ello que deben de contemplar realizar un programa que midan las cantidades de pedidos que se predicen por mes y de ese modo, unicamente pedir los materiales que se requieren y podrían llegar a contratar a empleados extra para agilizar el proceso de materiales y conocer la falla en su logistica de producción por la cual se genera mucha merma.
Un dato impactante es que la mayoría de las veces la empresa tiene una merma constante, esta varia pero casi todos los meses cuentan con al rededor de 5 toneladas de merma, de acuerdo con las fechas que nos dieron en esta base de datos se analizo que de enero a marzo existió una gran cantidad de merma que llego al rededor de 17 toneladas de merma, por lo tanto se debe de analizar en la empresa que fue lo que sucedió en este lapso de tiempo, puedo ser que un cliente cancelara algún pedido, que haya generado una gran cantidad de merma.
6. Scrap
Importar base de datos
#file.choose()
scrap <- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/FORM - Scrap Limpia .csv")
summary(scrap)## Referencia Fecha Hora Producto
## Length:250 Length:250 Length:250 Length:250
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Cantidad Unidad.de.medida Ubicación.de.origen Ubicación.de.desecho
## Min. : 0.000 Length:250 Length:250 Length:250
## 1st Qu.: 1.000 Class :character Class :character Class :character
## Median : 2.000 Mode :character Mode :character Mode :character
## Mean : 6.696
## 3rd Qu.: 7.000
## Max. :96.000
## Estado
## Length:250
## Class :character
## Mode :character
##
##
## Sección 1
Limpieza transformación y organización de base de datos.
Observaciones
Se hizo limpieza manual de la base de datos para separar fecha y hora en diferentes columnas y se eliminaron columnas que no tienen mucha significancia en el análisis y la información que se busca extraer y entender, se eliminan Referencia, Producto, Unidad.de.medida , Ubicación.de.desecho, Estado.
Descargar librerías y paquetes
#install.packages("dplyr")
#install.packages("mirage")
#install.packages("dplyr")
library(dplyr)
#library(mirage)Cuantas variables y registros hay
str(scrap)## 'data.frame': 250 obs. of 9 variables:
## $ Referencia : chr "SP/08731" "SP/08730" "SP/08729" "SP/08728" ...
## $ Fecha : chr "31/08/22" "31/08/22" "31/08/22" "31/08/22" ...
## $ Hora : chr "14:55:40" "14:49:25" "13:49:29" "9:30:07" ...
## $ Producto : chr "[BACKFRAME 60% CUELLO ARMADO] 18805. 60% Backframe. Cuello Armado." "[N61506747 CAJA] N61506747. Kit. Caja." "[N61506729 SEPARADOR] N61506729. Kit. Separador." "[341332 DIVISOR - U611 & U625] 341332. U611. U625. Divisor Troquelado." ...
## $ Cantidad : num 2 1 1 31 1 1 1 9 2 1 ...
## $ Unidad.de.medida : chr "Unidad(es)" "Unidad(es)" "Unidad(es)" "Unidad(es)" ...
## $ Ubicación.de.origen : chr "SAB/Calidad/Entrega de PT" "SAB/Calidad/Entrega de PT" "SAB/Calidad/Entrega de PT" "SAB/Pre-Production" ...
## $ Ubicación.de.desecho: chr "Virtual Locations/Scrapped" "Virtual Locations/Scrapped" "Virtual Locations/Scrapped" "Virtual Locations/Scrapped" ...
## $ Estado : chr "Hecho" "Hecho" "Hecho" "Hecho" ...Técnicas de Limpieza
Técnica 1: eliminar NAs
¿Cuantos NA tengo en la base de datos?
sum(is.na(scrap))## [1] 0Cuantos NA tengo por variable?
Sapply: Para contar los NA
sapply(scrap, function(x) sum(is.na(x)))## Referencia Fecha Hora
## 0 0 0
## Producto Cantidad Unidad.de.medida
## 0 0 0
## Ubicación.de.origen Ubicación.de.desecho Estado
## 0 0 0Técnica 2: eliminar columnas
Se decidó realizar está técnica para deshacernos de información que no es muy relevante para el análisis de nuestra base de datos.
scrap2 <- scrap
scrap2 <- subset (scrap2, select = -c (Hora))
scrap2 <- subset (scrap2, select = -c (Producto))
scrap2 <- subset (scrap2, select = -c (Ubicación.de.desecho))
scrap2 <- subset (scrap2, select = -c (Unidad.de.medida ))
scrap2 <- subset (scrap2, select = -c (Referencia ))
scrap2 <- subset (scrap2, select = -c (Estado ))
summary(scrap2)## Fecha Cantidad Ubicación.de.origen
## Length:250 Min. : 0.000 Length:250
## Class :character 1st Qu.: 1.000 Class :character
## Mode :character Median : 2.000 Mode :character
## Mean : 6.696
## 3rd Qu.: 7.000
## Max. :96.000Técnica 3: Cambiar nombres
Cambiar los nombres de las columnas / variables a nombres más cortos y específicos. Por ejemplo, municipio → mpio, salario mínimo diario → salario_min.
#seleccionar columnas / variables.
#scrap2<-scrap %>% select(one_of('Fecha','Cantidad','Ubicación.de.origen'))
#Renombrar las columnas /variables seleccionadas.
colnames(scrap2) <-c ('Fecha','Cant.','Origen')
summary(scrap2)## Fecha Cant. Origen
## Length:250 Min. : 0.000 Length:250
## Class :character 1st Qu.: 1.000 Class :character
## Mode :character Median : 2.000 Mode :character
## Mean : 6.696
## 3rd Qu.: 7.000
## Max. :96.000Identificar variables
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
Variable<-c("`Fecha`","`Cantidad`", "` Ubicación.de.origen`")
Type<-c("Cuantitativa (continua)", "Cuantitativa (discreta)","Cualitativa")
Measurement<-c("Razón","Razón","Nominal")
table<-data.frame(Variable,Type,Measurement)
knitr::kable(table)| Variable | Type | Measurement |
|---|---|---|
Fecha
|
Cuantitativa (continua) | Razón |
Cantidad
|
Cuantitativa (discreta) | Razón |
Ubicación.de.origen
|
Cualitativa | Nominal |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Análisis Estadístico Descriptivo
summary(scrap2)## Fecha Cant. Origen
## Length:250 Min. : 0.000 Length:250
## Class :character 1st Qu.: 1.000 Class :character
## Mode :character Median : 2.000 Mode :character
## Mean : 6.696
## 3rd Qu.: 7.000
## Max. :96.000Tabla de Media, Moda y Mediana
sd(scrap2$Cant., na.rm= TRUE) ## [1] 11.84885Variable<-c("Cant.")
Mediana<-c("2.00")
Media <- c("6.696")
Moda <- c("1") #EXCEL
Desviación_estandar<-c("11.84885")
table1 <- data.frame (Variable, Mediana, Media, Moda, Desviación_estandar)
knitr::kable(table1)| Variable | Mediana | Media | Moda | Desviación_estandar |
|---|---|---|---|---|
| Cant. | 2.00 | 6.696 | 1 | 11.84885 |
Gráficos
“Time series plots” (line plot)
Muestran la dispersión de variables selecionadas.
#install.packages("ggplot2")
#install.packages("barplot")
library(ggplot2)
summary(scrap2)## Fecha Cant. Origen
## Length:250 Min. : 0.000 Length:250
## Class :character 1st Qu.: 1.000 Class :character
## Mode :character Median : 2.000 Mode :character
## Mean : 6.696
## 3rd Qu.: 7.000
## Max. :96.000ggplot(scrap2,aes(x=Cant.))+
geom_line(aes(y=Origen),color="Red")+
labs(x="Cant",y="Origen", color="Legend")+
ggtitle("Mayores catidades de Scrap por origen")
Tabla de Frecuencia
#install.packages('epiDisplay')
library(epiDisplay)
tab1(scrap2$Origen, sort.group = "decreasing", cum.percent = TRUE) 
## scrap2$Origen :
## Frequency Percent Cum. percent
## SAB/Pre-Production 179 71.6 71.6
## SAB/Calidad/Entrega de PT 58 23.2 94.8
## SAB/Post-Production 13 5.2 100.0
## Total 250 100.0 100.0Gráfica cualitativa
#install.packages("plyr")
library(plyr)
pie(table(scrap2$Origen))
Gráfica cuantitativa
#table(scrap2$Cantidad,scrap2$Fecha)
barplot(table(scrap2$Cant.,scrap2$Origen), col="yellow", main = "Kilos de Scrap según su origen", xlab = "Origen", ylab = "Kilos" )
Gráficos de Dispersión
boxplots=subset(scrap2,select=-c(Origen))
boxplot(table (scrap2$Origen), main = "Ubicación de Origen", xlab = "Origen", ylab = "Cantidad")
Insights
En esta actividad de la limpia y organización de la base de datos de Scrap. Nos dimos cuentas que la base de datos contaba con distintas variables que no eran tan relevantes para analizar la bd scrap. Por lo tanto decidiomos eliminarlas para contar con menos variables y asi poder realizar un mejor analisis.
Podemos darnos cuenta con la base de datos de Scrap que existe mucho scrap en la etapa de PRE-PRODUCCION. Para ello se necesita realizar una logisitca de proceso para eificente en donde si mida la cantidad exacta que se requiere de material para cada pedido y al igual que tener mejor medidas de recortes y suajes para tener el mayor provecho de los materiales.
En este analisis nos dimos cuenta que los datos estaban orgnaizados es decir no contaban con missing values por lo tanto es algo bueno para el analisis, de todos modos es importante conciderarlos si es relevante para el analisis, en este caso no se hubieran eliminado si no que se hubieran remplazado por la mediana dependiendte de la variable que estuvieramos analisando.
Analisando estas variables se confirma que en el area de pre-producción,es donde se genera la mayoria del scrap en su mayoria se genera casi el 85% de scrap, que generan dentro de la empresa, por lo tanto es alago alarmante por lo tanto se tienen que tomar decisiones importantes para poder realizar cambios en esta area para reducir la cantidad de scrap.
7. Base de Datos Externa
Importar base de datos
Companies <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd1 csv1.csv")
summary(Companies)## Geography Category Data.Type Unit
## Length:89 Length:89 Length:89 Length:89
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Current.Constant X2016 X2017 X2018
## Length:89 Min. : 0 Min. : 0 Min. : 0
## Class :character 1st Qu.: 421 1st Qu.: 432 1st Qu.: 527
## Mode :character Median : 4383 Median : 4804 Median : 5063
## Mean : 939400 Mean : 993634 Mean : 1193476
## 3rd Qu.: 37794 3rd Qu.: 38307 3rd Qu.: 40769
## Max. :25902010 Max. :27472550 Max. :35218716
## X2019 X2020 X2021
## Min. : 0 Min. : 0 Min. : 0
## 1st Qu.: 529 1st Qu.: 548 1st Qu.: 607
## Median : 4849 Median : 5020 Median : 5477
## Mean : 1376491 Mean : 1554963 Mean : 1904399
## 3rd Qu.: 43779 3rd Qu.: 44564 3rd Qu.: 51280
## Max. :39310235 Max. :41193660 Max. :63857942Instalar librerías y paquetes
library(psych)
library(lubridate)##
## Attaching package: 'lubridate'## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, unionlibrary(ggplot2)
library(GGally)## Registered S3 method overwritten by 'GGally':
## method from
## +.gg ggplot2library(TSstudio)
library(forecast)Sección 1
Limpieza transformación y organización de base de datos. ### Cuantas variables y registros hay
str(Companies)## 'data.frame': 89 obs. of 11 variables:
## $ Geography : chr "Azerbaijan" "Bangladesh" "Cambodia" "China" ...
## $ Category : chr "Corrugated Paper, Paperboard and Containers" "Corrugated Paper, Paperboard and Containers" "Corrugated Paper, Paperboard and Containers" "Corrugated Paper, Paperboard and Containers" ...
## $ Data.Type : chr "Production (turnover) MSP" "Production (turnover) MSP" "Production (turnover) MSP" "Production (turnover) MSP" ...
## $ Unit : chr "AZN million" "BDT million" "KHR million" "CNY million" ...
## $ Current.Constant: chr "Current Prices" "Current Prices" "Current Prices" "Current Prices" ...
## $ X2016 : num 40.6 115106.8 247100 309386.9 212.1 ...
## $ X2017 : num 44.6 135423.7 257700 301286.2 212.7 ...
## $ X2018 : num 47.3 156788.3 299500 317612.9 217.5 ...
## $ X2019 : num 52.2 180445.4 314000 310925.3 216.8 ...
## $ X2020 : num 51.5 198883.5 281100 312534.7 196.7 ...
## $ X2021 : num 66.1 222755.3 285994.4 344612.2 191.4 ...describe(Companies)## # A tibble: 6 × 26
## describ…¹ n na mean sd se_mean IQR skewn…² kurto…³ p00 p01
## <chr> <int> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 X2016 89 0 9.39e5 4.18e6 443039. 37374. 5.19 27.1 0 20.7
## 2 X2017 89 0 9.94e5 4.40e6 466639. 37875. 5.12 26.3 0 20.7
## 3 X2018 89 0 1.19e6 5.40e6 572440. 40242. 5.28 28.3 0 23.1
## 4 X2019 89 0 1.38e6 6.29e6 667194. 43250. 5.19 26.7 0 24.0
## 5 X2020 89 0 1.55e6 7.16e6 759409. 44016. 5.08 24.9 0 20.1
## 6 X2021 89 0 1.90e6 9.14e6 968737. 50673. 5.53 31.3 0 23.8
## # … with 15 more variables: p05 <dbl>, p10 <dbl>, p20 <dbl>, p25 <dbl>,
## # p30 <dbl>, p40 <dbl>, p50 <dbl>, p60 <dbl>, p70 <dbl>, p75 <dbl>,
## # p80 <dbl>, p90 <dbl>, p95 <dbl>, p99 <dbl>, p100 <dbl>, and abbreviated
## # variable names ¹described_variables, ²skewness, ³kurtosisTécnicas de Limpieza
La primer tecnica de limpieza que utilizamos fue, eliminar columnas debido a que contabamos con datos los cuales no eran relevantes para el análisis.La segunda herramienta de limpieza que utilizamos para la visulización de los datos fue implementar una nueva columna como el total de la Producción de las variables que se producen por país.
Técnica 1: Remover Valores Irrelevantes
Eliminar columnas
bd1 <- Companies
bd1<-subset(bd1,select=-c(Category,Data.Type,Current.Constant))
str(bd1)## 'data.frame': 89 obs. of 8 variables:
## $ Geography: chr "Azerbaijan" "Bangladesh" "Cambodia" "China" ...
## $ Unit : chr "AZN million" "BDT million" "KHR million" "CNY million" ...
## $ X2016 : num 40.6 115106.8 247100 309386.9 212.1 ...
## $ X2017 : num 44.6 135423.7 257700 301286.2 212.7 ...
## $ X2018 : num 47.3 156788.3 299500 317612.9 217.5 ...
## $ X2019 : num 52.2 180445.4 314000 310925.3 216.8 ...
## $ X2020 : num 51.5 198883.5 281100 312534.7 196.7 ...
## $ X2021 : num 66.1 222755.3 285994.4 344612.2 191.4 ...Agregar Columnas
bd1$Total_Produccion<- bd1$X2016+bd1$X2017+bd1$X2018+bd1$X2019+bd1$X2020+bd1$X2021
bd1$Promedio_X2021<- mean(bd1$X2021)
summary(bd1)## Geography Unit X2016 X2017
## Length:89 Length:89 Min. : 0 Min. : 0
## Class :character Class :character 1st Qu.: 421 1st Qu.: 432
## Mode :character Mode :character Median : 4383 Median : 4804
## Mean : 939400 Mean : 993634
## 3rd Qu.: 37794 3rd Qu.: 38307
## Max. :25902010 Max. :27472550
## X2018 X2019 X2020 X2021
## Min. : 0 Min. : 0 Min. : 0 Min. : 0
## 1st Qu.: 527 1st Qu.: 529 1st Qu.: 548 1st Qu.: 607
## Median : 5063 Median : 4849 Median : 5020 Median : 5477
## Mean : 1193476 Mean : 1376491 Mean : 1554963 Mean : 1904399
## 3rd Qu.: 40769 3rd Qu.: 43779 3rd Qu.: 44564 3rd Qu.: 51280
## Max. :35218716 Max. :39310235 Max. :41193660 Max. :63857942
## Total_Produccion Promedio_X2021
## Min. : 0 Min. :1904399
## 1st Qu.: 3166 1st Qu.:1904399
## Median : 30333 Median :1904399
## Mean : 7962363 Mean :1904399
## 3rd Qu.: 254492 3rd Qu.:1904399
## Max. :204523302 Max. :1904399str(bd1)## 'data.frame': 89 obs. of 10 variables:
## $ Geography : chr "Azerbaijan" "Bangladesh" "Cambodia" "China" ...
## $ Unit : chr "AZN million" "BDT million" "KHR million" "CNY million" ...
## $ X2016 : num 40.6 115106.8 247100 309386.9 212.1 ...
## $ X2017 : num 44.6 135423.7 257700 301286.2 212.7 ...
## $ X2018 : num 47.3 156788.3 299500 317612.9 217.5 ...
## $ X2019 : num 52.2 180445.4 314000 310925.3 216.8 ...
## $ X2020 : num 51.5 198883.5 281100 312534.7 196.7 ...
## $ X2021 : num 66.1 222755.3 285994.4 344612.2 191.4 ...
## $ Total_Produccion: num 302 1009403 1685394 1896358 1247 ...
## $ Promedio_X2021 : num 1904399 1904399 1904399 1904399 1904399 ...¿Cuántos NA’s tengo en la base de datos?
sum(is.na(bd1))## [1] 0Nota: Se eliminan Category, Data.Type y Current.Constant, ya que no nos sirven, debido a que es el mismo dato para todos los registros y es algo que no nos aporta alguna información.
Identificar variables
Cuantitativa: Discreta, Continua Escala de medición:Intervalo, Razón Cualitativa Escala de medición: Nominales, Ordinales
Variable<-c("Geography","Category","Data.Type", "Unit","Current Constant","Years")
Type<-c("Cualitativa", "Cualitativa", "Cualitativa", "Cualitativa", "Cualitativa", "Cuantitativa (Continua)")
table<-data.frame(Variable,Type)
knitr::kable(table)| Variable | Type |
|---|---|
| Geography | Cualitativa |
| Category | Cualitativa |
| Data.Type | Cualitativa |
| Unit | Cualitativa |
| Current Constant | Cualitativa |
| Years | Cuantitativa (Continua) |
Sección 2.1
Análisis Exploratorio de las Bases de Datos
Análisis Estadístico Descriptivo
describe(bd1)## # A tibble: 8 × 26
## descr…¹ n na mean sd se_mean IQR skewn…² kurto…³ p00 p01
## <chr> <int> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 X2016 89 0 9.39e5 4.18e6 4.43e5 3.74e4 5.19 27.1 0 2.07e1
## 2 X2017 89 0 9.94e5 4.40e6 4.67e5 3.79e4 5.12 26.3 0 2.07e1
## 3 X2018 89 0 1.19e6 5.40e6 5.72e5 4.02e4 5.28 28.3 0 2.31e1
## 4 X2019 89 0 1.38e6 6.29e6 6.67e5 4.33e4 5.19 26.7 0 2.40e1
## 5 X2020 89 0 1.55e6 7.16e6 7.59e5 4.40e4 5.08 24.9 0 2.01e1
## 6 X2021 89 0 1.90e6 9.14e6 9.69e5 5.07e4 5.53 31.3 0 2.38e1
## 7 Total_… 89 0 7.96e6 3.60e7 3.82e6 2.51e5 5.03 24.4 0 1.51e2
## 8 Promed… 89 0 1.90e6 0 0 0 NaN NaN 1.90e6 1.90e6
## # … with 15 more variables: p05 <dbl>, p10 <dbl>, p20 <dbl>, p25 <dbl>,
## # p30 <dbl>, p40 <dbl>, p50 <dbl>, p60 <dbl>, p70 <dbl>, p75 <dbl>,
## # p80 <dbl>, p90 <dbl>, p95 <dbl>, p99 <dbl>, p100 <dbl>, and abbreviated
## # variable names ¹described_variables, ²skewness, ³kurtosisEn el análisis descriptivo se muestran los valores promedio del total de producciones de 2016 a 2021.
Tabla de Media, Moda y Mediana
Realizamos una tabla donde viene clasificado cada variable y agregamos una columna con la escala de medición para cada variable.
Variable<-c("Geography","Category","Data.Type", "Unit","Current Constant","Years")
Type<-c("Cualitativa", "Cualitativa", "Cualitativa", "Cualitativa", "Cualitativa", "Cuantitativa (Continua)")
Escala_de_Medición <- c("Países", "Producto", "Departamento","Tipo de Moneda", "Precio actual", "Ganancia (Razon)")
table<-data.frame(Variable,Type,Escala_de_Medición)
knitr::kable(table)| Variable | Type | Escala_de_Medición |
|---|---|---|
| Geography | Cualitativa | Países |
| Category | Cualitativa | Producto |
| Data.Type | Cualitativa | Departamento |
| Unit | Cualitativa | Tipo de Moneda |
| Current Constant | Cualitativa | Precio actual |
| Years | Cuantitativa (Continua) | Ganancia (Razon) |
Tabla de Frecuencia
bd2 <- table(bd1$Unit)
bd2 <- prop.table(bd2)
bd2##
## AED million AOA million ARS million AUD million AZN million BDT million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## BGN million BRL million BYR million CAD million CHF million CLP million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## CNY million COP million CRC million CUC million CZK million DKK million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## DOP million DZD million EGP million ETB million EUR million GBP million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.20224719 0.01123596
## GEL million GHS million HKD million HRK million HuF million IDR million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## ILS million INR million IQD million IRR million ISK million JPY million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## KES million KHR million KRW million KWD million KZT million LKR million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## MAD million MXN million MYR million NGN million NOK million NZD million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## PAB million PEN million PHP million PKR million PLN million QAR million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## RON million RUB million SAR million SEK million SGD million THB million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596 0.01123596
## TND million TRY million TWD million UAH million USD million UYU million
## 0.01123596 0.01123596 0.01123596 0.01123596 0.03370787 0.01123596
## UZS million VND million XAF million ZAR million
## 0.01123596 0.01123596 0.01123596 0.01123596Con esta tabla podemos visualizar la frecuencia que se tiene para cada unidad de dinero, lo que viene siendo la diferenciación entre paises.
Tabla Cruzada
table(bd1$Unit, bd1$Promedio_X2021)##
## 1904399.38539326
## AED million 1
## AOA million 1
## ARS million 1
## AUD million 1
## AZN million 1
## BDT million 1
## BGN million 1
## BRL million 1
## BYR million 1
## CAD million 1
## CHF million 1
## CLP million 1
## CNY million 1
## COP million 1
## CRC million 1
## CUC million 1
## CZK million 1
## DKK million 1
## DOP million 1
## DZD million 1
## EGP million 1
## ETB million 1
## EUR million 18
## GBP million 1
## GEL million 1
## GHS million 1
## HKD million 1
## HRK million 1
## HuF million 1
## IDR million 1
## ILS million 1
## INR million 1
## IQD million 1
## IRR million 1
## ISK million 1
## JPY million 1
## KES million 1
## KHR million 1
## KRW million 1
## KWD million 1
## KZT million 1
## LKR million 1
## MAD million 1
## MXN million 1
## MYR million 1
## NGN million 1
## NOK million 1
## NZD million 1
## PAB million 1
## PEN million 1
## PHP million 1
## PKR million 1
## PLN million 1
## QAR million 1
## RON million 1
## RUB million 1
## SAR million 1
## SEK million 1
## SGD million 1
## THB million 1
## TND million 1
## TRY million 1
## TWD million 1
## UAH million 1
## USD million 3
## UYU million 1
## UZS million 1
## VND million 1
## XAF million 1
## ZAR million 1La tabla nos muestra la cantidad promedio en millones producida en 2021 por cada unidad monetaria. En este caso, vemos que en 2021 se produjo en promedio más de 1MM de “currencies” (no se puede definir una unidad monetaria específica debido a que estamos ponderando distintas monedas internacionales). Conforme se analiza la tabla, vemos que el euro generó 18 veces el promedio de producción de cartón estimado para 2021, es decir, es la moneda internacional que más produjo cartón a nivel internacional en 2021. La siguiente moneda con mayor capacidad de producción fue USD millions.
Cualitativa
barplot(bd2, xlab='Tipo de Moneda',
ylab='Frecuencia Relativa', las=1)
La gráfica nos muestra que de acuerdo a la frecuencia relativa de producción, Indonesia es la unidad monetaria que más cartón ha entregado.
Cuantitativa con Total_Produccion
bd3 <- bd1
aggregate(x=bd3$Total_Produccion, by=list(bd3$Geography),FUN=sum)## Group.1 sum.bd3$Total_Produccion
## 1 Algeria 26366.2
## 2 Angola 4172.7
## 3 Argentina 757754.2
## 4 Australia 21642.9
## 5 Austria 10233.5
## 6 Azerbaijan 302.3
## 7 Bangladesh 1009403.0
## 8 Belarus 2931.2
## 9 Belgium 6339.5
## 10 Brazil 129369.8
## 11 Bulgaria 3166.2
## 12 Cambodia 1685394.4
## 13 Cameroon 197101.1
## 14 Canada 78979.4
## 15 Chile 6391369.9
## 16 China 1896358.2
## 17 Colombia 15542263.1
## 18 Costa Rica 967034.3
## 19 Croatia 8719.9
## 20 Cuba 619.6
## 21 Cyprus 171.5
## 22 Czech Republic 178808.7
## 23 Denmark 32238.2
## 24 Dominican Republic 37293.6
## 25 Ecuador 949.5
## 26 Egypt 96033.6
## 27 Estonia 387.5
## 28 Ethiopia 5442.2
## 29 Finland 2612.9
## 30 France 33450.4
## 31 Georgia 194.3
## 32 Germany 77218.5
## 33 Ghana 673.7
## 34 Greece 2573.7
## 35 Hong Kong, China 1247.2
## 36 Hungary 1504747.7
## 37 Iceland 5561.8
## 38 India 2264525.5
## 39 Indonesia 204523301.8
## 40 Iran 186021771.8
## 41 Iraq 11680.2
## 42 Ireland 1873.4
## 43 Israel 22710.5
## 44 Italy 50972.2
## 45 Japan 15807772.3
## 46 Kazakhstan 203941.1
## 47 Kenya 112343.7
## 48 Kuwait 251.3
## 49 Latvia 463.0
## 50 Lithuania 1775.1
## 51 Luxembourg 0.0
## 52 Malaysia 23655.6
## 53 Mexico 738215.0
## 54 Morocco 16625.1
## 55 Netherlands 13921.1
## 56 New Zealand 7644.6
## 57 Nigeria 206027.0
## 58 Norway 11525.8
## 59 Pakistan 628812.7
## 60 Panama 221.3
## 61 Peru 5083.5
## 62 Philippines 302208.8
## 63 Poland 118115.9
## 64 Portugal 5366.3
## 65 Puerto Rico 537.2
## 66 Qatar 189.5
## 67 Romania 16388.7
## 68 Russia 1590911.6
## 69 Saudi Arabia 36787.1
## 70 Singapore 3636.7
## 71 Slovakia 1317.9
## 72 Slovenia 1137.3
## 73 South Africa 277898.6
## 74 South Korea 59825405.8
## 75 Spain 31015.4
## 76 Sri Lanka 254492.0
## 77 Sweden 60578.6
## 78 Switzerland 5331.3
## 79 Taiwan 615169.6
## 80 Thailand 201398.4
## 81 Tunisia 2715.6
## 82 Turkey 195406.5
## 83 Ukraine 128095.2
## 84 United Arab Emirates 12957.3
## 85 United Kingdom 30332.9
## 86 Uruguay 83173.7
## 87 USA 323594.0
## 88 Uzbekistan 5103054.3
## 89 Vietnam 198028864.1En la tabla anterior se muestra el total de producción generado por cada país. Haciendo una ponderación de los 5 países que mayor producción de cartón tienen (haciendo conteo histórico de 2016 a 2021), vemos que se destacan Irán, Vietnam, Corea del Sur, Japón e Indonesia.
hist(log(bd1$Total_Produccion), main = "Histograma de Producción Total", xlab="Producción Total",
ylab="Frecuencia", col="blue1")
En la gráfica anterior se simboliza la distribución de la muestra respecto a la producción total y la frecuencia de ésta. De acuerdo a la frecuencia total, vemos que se tiene una mayor producción por frecuencia entre 10 y 15, es decir, la producción total es más alta y tiene una frecuencia mayor a 15 que se muestra como el más elevado en el histograma.
Gráfica de Dispersión
Relación Geography con Producción Total
ggplot(bd1, aes(x=Total_Produccion, y=Geography)) +
geom_point(shape=19, size=3) + labs(title = "Relación entre los Países y la Producción Total",caption ="Passport_ProducciónCarton",x="Producción_Total", y="Geography") + theme_classic()
En la gráfica anterior se muestra la relación entre los países y la producción total. Se ve que hay una dispersión mayor para los países en el centro de la gráfica. Esto significa que hay más irregularidad en la producción total que han generado.
boxplot=subset(bd1,select = -c(Total_Produccion,Geography))
boxplot(bd1$Total_Produccion, main= "Total de producción")
En la gráfica anterior vemos el total de producción de acuerdo a la geografía. Al igual que la gráfica anterior, hay una correlación mayor acorde al total de producción.
Vol<-ts(boxplot,start=c(2016,1),frequency=12)
ts_plot(Vol,
title = "Desempeño de la Industria Automotriz: Producción de cartón global de 2016 a 2021",
Ytitle = "Unidades en miles",
Xtitle = "Años",
slider = TRUE)En esta gráfica se ve el desempeño de la industria automotriz de 2016 a 2021. En general, se muestra que el total de producción de cartón a nivel global fue mayor en 2021 contra otros años.
Explicación Técnicas de Limpieza
Las Técnicas de Limpieza utilizadas me ayudaron a ser capaz de tener un mayor entendimiento de la base de datos, estructurar los datos que son significativos y realemente conocer aquella información que toman un papael importante en el análisis que se busca realizar a la base de datos. Al aplicar técnias de limpieza te aseguras de tener en orden todos los datos, evitar errores que después puedan provocar malos entendidos en el análisis y que la información que se extraiga no vaya a ser asertada. También permite ser más eficaz y tener mayor credibilidad en el análisis que se vaya a realizar.
Sección 2.2
Predicción:
Del Desempeño de la Industria Automotriz
Importar base de datos
bd5 <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd2 csv2.csv")
summary(bd5)## Geography Unit Año Produccion
## Length:534 Length:534 Min. :2016 Min. : 0
## Class :character Class :character 1st Qu.:2017 1st Qu.: 501
## Mode :character Mode :character Median :2018 Median : 4826
## Mean :2018 Mean : 1327061
## 3rd Qu.:2020 3rd Qu.: 43907
## Max. :2021 Max. :63857942sum(is.na(bd5))## [1] 0bd5$Total_Produccion<- bd1$X2016+bd1$X2017+bd1$X2018+bd1$X2019+bd1$X2020+bd1$X2021
summary(bd5)## Geography Unit Año Produccion
## Length:534 Length:534 Min. :2016 Min. : 0
## Class :character Class :character 1st Qu.:2017 1st Qu.: 501
## Mode :character Mode :character Median :2018 Median : 4826
## Mean :2018 Mean : 1327061
## 3rd Qu.:2020 3rd Qu.: 43907
## Max. :2021 Max. :63857942
## Total_Produccion
## Min. : 0
## 1st Qu.: 3166
## Median : 30333
## Mean : 7962363
## 3rd Qu.: 254492
## Max. :204523302str(bd5)## 'data.frame': 534 obs. of 5 variables:
## $ Geography : chr "Azerbaijan" "Bangladesh" "Cambodia" "China" ...
## $ Unit : chr "AZN million" "BDT million" "KHR million" "CNY million" ...
## $ Año : int 2016 2016 2016 2016 2016 2016 2016 2016 2016 2016 ...
## $ Produccion : num 40.6 115106.8 247100 309386.9 212.1 ...
## $ Total_Produccion: num 302 1009403 1685394 1896358 1247 ...sum(is.na(bd5))## [1] 0Modelos de regresión lineal múltiple
Producción de cartón en 2022 a nivel global
industriaA <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/Industria Auto.csv")
bd6 <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd3 csv3.csv")
bd6 <- bd6[-c(1),]
summary(bd6)## Año USA MEX
## Min. :2017 Min. :51672 Min. :112231
## 1st Qu.:2018 1st Qu.:54006 1st Qu.:120638
## Median :2019 Median :54651 Median :128471
## Mean :2019 Mean :54949 Mean :126954
## 3rd Qu.:2020 3rd Qu.:55387 3rd Qu.:129871
## Max. :2021 Max. :59031 Max. :143561summary(industriaA)## year trimestre id_estado estado
## Min. :2014 Min. :1.000 Min. : 1.00 Length:690
## 1st Qu.:2016 1st Qu.:1.000 1st Qu.:10.00 Class :character
## Median :2018 Median :2.000 Median :17.00 Mode :character
## Mean :2018 Mean :2.399 Mean :17.37
## 3rd Qu.:2020 3rd Qu.:3.000 3rd Qu.:26.00
## Max. :2022 Max. :4.000 Max. :32.00
## idnueva ventas_autopartes_anual eci
## Length:690 Min. :4.382e+03 Min. :-0.9374
## Class :character 1st Qu.:2.256e+07 1st Qu.:-0.4630
## Mode :character Median :2.316e+08 Median : 0.7088
## Mean :3.307e+08 Mean : 0.4391
## 3rd Qu.:5.759e+08 3rd Qu.: 0.9138
## Max. :1.467e+09 Max. : 1.7810
## poblacion_ocupada_ensambladora_year exportaciones_anual iedanual_porestado
## Length:690 Length:690 Length:690
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
## str(industriaA)## 'data.frame': 690 obs. of 10 variables:
## $ year : int 2014 2014 2014 2014 2014 2014 2014 2014 2014 2014 ...
## $ trimestre : int 1 1 1 1 1 1 1 1 1 1 ...
## $ id_estado : int 1 2 5 8 9 10 11 13 14 15 ...
## $ estado : chr "Aguascalientes" "Baja California" "Coahuila de Zaragoza" "Chihuahua" ...
## $ idnueva : chr "Agu20141" "Baj20141" "Coa20141" "Chi20141" ...
## $ ventas_autopartes_anual : int 297808938 180968923 638892837 415306918 424386804 2395458 599464057 490518 73197944 161883028 ...
## $ eci : num 0.856 1.268 0.914 1.148 0.914 ...
## $ poblacion_ocupada_ensambladora_year: chr "5523" "41376" "19522" "93703" ...
## $ exportaciones_anual : chr "8466008000" "35002851000" "34838926000" "1460627000" ...
## $ iedanual_porestado : chr "1008408044" "1102570984" "1567453720" "1462699524" ...regresion1 <- lm(ventas_autopartes_anual ~ estado +exportaciones_anual + poblacion_ocupada_ensambladora_year ,data = industriaA)
summary(regresion1)##
## Call:
## lm(formula = ventas_autopartes_anual ~ estado + exportaciones_anual +
## poblacion_ocupada_ensambladora_year, data = industriaA)
##
## Residuals:
## Min 1Q Median 3Q Max
## -506069374 -1448463 0 2162402 296273810
##
## Coefficients: (3 not defined because of singularities)
## Estimate Std. Error t value
## (Intercept) 316032420 79025905 3.999
## estadoBaja California 82523284 111759507 0.738
## estadoCampeche -316015278 111759507 -2.828
## estadoChihuahua 398034214 111759507 3.562
## estadoCiudad de Mexico 571759097 111759507 5.116
## estadoCoahuila de Zaragoza 1151233158 111759507 10.301
## estadoColima -315905304 111759507 -2.827
## estadoDurango -251105163 111759507 -2.247
## estadoEstado de Mexico -38335193 111759507 -0.343
## estadoGuanajuato 623474494 111759507 5.579
## estadoHidalgo -309386913 111759507 -2.768
## estadoJalisco -99121659 111759507 -0.887
## estadoMorelos -282142730 111759507 -2.525
## estadoNuevo Leon 491777471 111759507 4.400
## estadoPuebla 585598166 111759507 5.240
## estadoQueretaro 741305945 111759507 6.633
## estadoQuintana Roo -315991404 96786572 -3.265
## estadoSan Luis Potosi 124368409 111759507 1.113
## estadoSonora -227591089 111759507 -2.036
## estadoTamaulipas 303676078 111759507 2.717
## estadoTlaxcala -279845202 111759507 -2.504
## estadoVeracruz de Ignacio de la Llave -298360634 111759507 -2.670
## estadoYucatan -315911612 111759507 -2.827
## estadoZacatecas -293692225 111759507 -2.628
## exportaciones_anual10141642000 -633342919 91251256 -6.941
## exportaciones_anual10314836000 -243122117 91251256 -2.664
## exportaciones_anual10398672000 -83306231 96786572 -0.861
## exportaciones_anual10400467000 -214097642 91251256 -2.346
## exportaciones_anual10478612000 -227071679 91251256 -2.488
## exportaciones_anual10594592000 -660445310 91251256 -7.238
## exportaciones_anual10701591000 -184046450 96786572 -1.902
## exportaciones_anual11146761000 -328066976 96786572 -3.390
## exportaciones_anual1116042000 -50913 91251256 -0.001
## exportaciones_anual1119625000 16310 91251256 0.000
## exportaciones_anual11227331000 -195000075 91251256 -2.137
## exportaciones_anual11449692000 -52031743 91251256 -0.570
## exportaciones_anual1165750000 -155619675 91251256 -1.705
## exportaciones_anual11738889000 -320498675 91251256 -3.512
## exportaciones_anual11794073000 80649592 91251256 0.884
## exportaciones_anual12035000 -28652 96786572 0.000
## exportaciones_anual12044484000 -42701116 96786572 -0.441
## exportaciones_anual1238308000 -2755770 96786572 -0.028
## exportaciones_anual1262654000 37474 91251256 0.000
## exportaciones_anual1278536000 -29700606 91251256 -0.325
## exportaciones_anual12868798000 -152191028 91251256 -1.668
## exportaciones_anual1301171000 -5888596 91251256 -0.065
## exportaciones_anual1307252000 -28159308 91251256 -0.309
## exportaciones_anual1310801000 -24999653 91251256 -0.274
## exportaciones_anual1318941000 -4141097 91251256 -0.045
## exportaciones_anual1323153000 -5226323 91251256 -0.057
## exportaciones_anual13360587000 -213744406 91251256 -2.342
## exportaciones_anual13514349000 -461981584 91251256 -5.063
## exportaciones_anual13664629000 -141254716 91251256 -1.548
## exportaciones_anual1379964000 -23869307 91251256 -0.262
## exportaciones_anual14009625000 -74475970 91251256 -0.816
## exportaciones_anual1428633000 -3663704 96786572 -0.038
## exportaciones_anual1440918000 -16649460 91251256 -0.182
## exportaciones_anual1448674000 -9154406 91251256 -0.100
## exportaciones_anual14512000 -14416 96786572 0.000
## exportaciones_anual1460627000 -202662429 91251256 -2.221
## exportaciones_anual1460865000 -8043655 91251256 -0.088
## exportaciones_anual1470940000 -47686 91251256 -0.001
## exportaciones_anual15019152000 -613314608 91251256 -6.721
## exportaciones_anual15120233000 34228936 96786572 0.354
## exportaciones_anual15294350000 -165928588 91251256 -1.818
## exportaciones_anual15531676000 -107724661 91251256 -1.181
## exportaciones_anual15611884000 75774919 91251256 0.830
## exportaciones_anual16121000 -30176 96786572 0.000
## exportaciones_anual1654784000 -63167299 91251256 -0.692
## exportaciones_anual16642906000 -34997843 96786572 -0.362
## exportaciones_anual1672357000 -62208412 91251256 -0.682
## exportaciones_anual16837910000 -507759556 91251256 -5.564
## exportaciones_anual16895883000 115296593 91251256 1.264
## exportaciones_anual17204369000 -247634512 91251256 -2.714
## exportaciones_anual1721651000 -5466936 91251256 -0.060
## exportaciones_anual1726504000 -5852596 91251256 -0.064
## exportaciones_anual17332223000 -94707222 91251256 -1.038
## exportaciones_anual17443597000 102705938 91251256 1.126
## exportaciones_anual1752495000 -62743887 91251256 -0.688
## exportaciones_anual17544423000 135514903 91251256 1.485
## exportaciones_anual17547974000 -447164471 91251256 -4.900
## exportaciones_anual17735407000 104259566 91251256 1.143
## exportaciones_anual17877862000 10618852 91251256 0.116
## exportaciones_anual1813156000 -214253693 96786572 -2.214
## exportaciones_anual18601992000 -87747401 91251256 -0.962
## exportaciones_anual1861966000 -62600427 91251256 -0.686
## exportaciones_anual18687648000 -24706585 91251256 -0.271
## exportaciones_anual18737712000 -123808645 91251256 -1.357
## exportaciones_anual18985000 -5479 72140452 0.000
## exportaciones_anual191993000 NA NA NA
## exportaciones_anual19737684000 -78238788 91251256 -0.857
## exportaciones_anual19840531000 197594823 91251256 2.165
## exportaciones_anual19863200000 229643101 91251256 2.517
## exportaciones_anual20010001000 -29475421 91251256 -0.323
## exportaciones_anual20026441000 -147417980 96786572 -1.523
## exportaciones_anual20093245000 -52714510 91251256 -0.578
## exportaciones_anual20335098000 -59363602 91251256 -0.651
## exportaciones_anual20787831000 -176885438 91251256 -1.938
## exportaciones_anual21133618000 -11919096 91251256 -0.131
## exportaciones_anual2127000000 -53259174 91251256 -0.584
## exportaciones_anual2128076000 -135947447 88353648 -1.539
## exportaciones_anual21392726000 -85136044 91251256 -0.933
## exportaciones_anual21659640000 -27746581 91251256 -0.304
## exportaciones_anual22099835000 -140806200 91251256 -1.543
## exportaciones_anual2242354000 -4851805 91251256 -0.053
## exportaciones_anual22472408000 -97592972 91251256 -1.069
## exportaciones_anual22985164000 -19566138 96786572 -0.202
## exportaciones_anual2299343000 -5280661 91251256 -0.058
## exportaciones_anual2301925000 NA NA NA
## exportaciones_anual2302851000 -344468140 91251256 -3.775
## exportaciones_anual23360290000 -87808473 91251256 -0.962
## exportaciones_anual2376795000 -5540326 96786572 -0.057
## exportaciones_anual24048744000 -301202855 91251256 -3.301
## exportaciones_anual2452302000 -460231437 91251256 -5.044
## exportaciones_anual24926226000 -19992365 91251256 -0.219
## exportaciones_anual25065798000 -146940238 91251256 -1.610
## exportaciones_anual25504680000 -101969366 91251256 -1.117
## exportaciones_anual25507316000 -2426972 91251256 -0.027
## exportaciones_anual26300102000 -42846992 91251256 -0.470
## exportaciones_anual2630544000 -289995068 91251256 -3.178
## exportaciones_anual2632148000 -14585583 91251256 -0.160
## exportaciones_anual2667126000 -25511848 91251256 -0.280
## exportaciones_anual26736210000 -68439434 91251256 -0.750
## exportaciones_anual2684823000 -17118638 91251256 -0.188
## exportaciones_anual2705297000 -475872294 91251256 -5.215
## exportaciones_anual27314741000 108407180 91251256 1.188
## exportaciones_anual2737230000 -31938434 91251256 -0.350
## exportaciones_anual27397995000 -40140750 91251256 -0.440
## exportaciones_anual2760694000 -13930385 96786572 -0.144
## exportaciones_anual2793509000 7728884 91251256 0.085
## exportaciones_anual2873522000 1653824 91251256 0.018
## exportaciones_anual2880494000 -28125618 96786572 -0.291
## exportaciones_anual29130161000 79348605 91251256 0.870
## exportaciones_anual2946392000 2850874 91251256 0.031
## exportaciones_anual3026698000 1579766 91251256 0.017
## exportaciones_anual30529987000 -153881209 96786572 -1.590
## exportaciones_anual3086705000 -14291744 91251256 -0.157
## exportaciones_anual3086747000 -3612817 91251256 -0.040
## exportaciones_anual3141633000 2244200 91251256 0.025
## exportaciones_anual31513013000 -213302878 91251256 -2.338
## exportaciones_anual3157991000 8403584 96786572 0.087
## exportaciones_anual32177305000 -199208826 91251256 -2.183
## exportaciones_anual3325166000 4332750 91251256 0.047
## exportaciones_anual3402758000 -31045251 91251256 -0.340
## exportaciones_anual34511011000 -281714187 91251256 -3.087
## exportaciones_anual34522156000 -122777424 91251256 -1.345
## exportaciones_anual34590332000 -51405465 96786572 -0.531
## exportaciones_anual34838926000 -652547881 91251256 -7.151
## exportaciones_anual3490783000 -27486235 91251256 -0.301
## exportaciones_anual35002851000 -189871772 91251256 -2.081
## exportaciones_anual35997280000 -171707454 91251256 -1.882
## exportaciones_anual36004725000 -180452978 91251256 -1.978
## exportaciones_anual36251770000 -564945445 91251256 -6.191
## exportaciones_anual36315716000 -184526706 91251256 -2.022
## exportaciones_anual3657768000 2656603 91251256 0.029
## exportaciones_anual37699563000 -521630672 91251256 -5.716
## exportaciones_anual3791586000 -27851391 91251256 -0.305
## exportaciones_anual38441996000 -166179330 91251256 -1.821
## exportaciones_anual38572482000 -358805171 96786572 -3.707
## exportaciones_anual38950677000 -472455089 91251256 -5.178
## exportaciones_anual39615279000 -273384682 91251256 -2.996
## exportaciones_anual39857053000 -188893113 91251256 -2.070
## exportaciones_anual39896454000 -179369916 91251256 -1.966
## exportaciones_anual40659059000 -134947537 91251256 -1.479
## exportaciones_anual41034808000 -428473899 91251256 -4.696
## exportaciones_anual42396951000 -96879896 91251256 -1.062
## exportaciones_anual4339856000 -13715539 91251256 -0.150
## exportaciones_anual44961569000 -644854760 91251256 -7.067
## exportaciones_anual47659461000 -389638362 91251256 -4.270
## exportaciones_anual4862567000 -6250697 96786572 -0.065
## exportaciones_anual52231000 -10472 79025905 0.000
## exportaciones_anual522839000 738252 111759507 0.007
## exportaciones_anual5352788000 -9101610 88353648 -0.103
## exportaciones_anual5362863000 -12135351 88353648 -0.137
## exportaciones_anual582973000 -81666 96786572 -0.001
## exportaciones_anual587504000 -173779186 91251256 -1.904
## exportaciones_anual606131000 -166997519 91251256 -1.830
## exportaciones_anual6367193000 -10360227 88353648 -0.117
## exportaciones_anual6697248000 -8465610 88353648 -0.096
## exportaciones_anual716061000 -18237 96786572 0.000
## exportaciones_anual722027000 -7889813 111759507 -0.071
## exportaciones_anual726530000 -175201218 96786572 -1.810
## exportaciones_anual729883000 -274984075 91251256 -3.013
## exportaciones_anual735262000 246346 96786572 0.003
## exportaciones_anual7830019000 53331418 91251256 0.584
## exportaciones_anual7870962000 60706600 91251256 0.665
## exportaciones_anual790859000 -15435643 111759507 -0.138
## exportaciones_anual80907000 -21941 68438442 0.000
## exportaciones_anual820169000 -135474164 91251256 -1.485
## exportaciones_anual8466008000 -12575744 91251256 -0.138
## exportaciones_anual8476833000 -224960819 91251256 -2.465
## exportaciones_anual8495444000 55657928 91251256 0.610
## exportaciones_anual8534000 -6324 72140452 0.000
## exportaciones_anual871638000 -105063931 91251256 -1.151
## exportaciones_anual8829410000 -40562505 96786572 -0.419
## exportaciones_anual9147776000 -258898283 91251256 -2.837
## exportaciones_anual9372970000 -640224591 91251256 -7.016
## exportaciones_anual9505026000 -229554589 91251256 -2.516
## exportaciones_anual9650719000 65416021 91251256 0.717
## exportaciones_anual9806397000 -212125633 91251256 -2.325
## poblacion_ocupada_ensambladora_year1004 -460559 91251256 -0.005
## poblacion_ocupada_ensambladora_year1017 -88043944 91251256 -0.965
## poblacion_ocupada_ensambladora_year10714 35863369 91251256 0.393
## poblacion_ocupada_ensambladora_year1075 -35206 91251256 0.000
## poblacion_ocupada_ensambladora_year10767 3518043 91251256 0.039
## poblacion_ocupada_ensambladora_year11050 -118555603 111759507 -1.061
## poblacion_ocupada_ensambladora_year11361 -54924139 91251256 -0.602
## poblacion_ocupada_ensambladora_year11806 4344197 91251256 0.048
## poblacion_ocupada_ensambladora_year12073 -3121268 96786572 -0.032
## poblacion_ocupada_ensambladora_year12094 -64875837 91251256 -0.711
## poblacion_ocupada_ensambladora_year12217 6288286 91251256 0.069
## poblacion_ocupada_ensambladora_year124585 -36854211 91251256 -0.404
## poblacion_ocupada_ensambladora_year1247 347242 111759507 0.003
## poblacion_ocupada_ensambladora_year12650 -1079792 91251256 -0.012
## poblacion_ocupada_ensambladora_year12836 -8672226 91251256 -0.095
## poblacion_ocupada_ensambladora_year13072 -16160578 96786572 -0.167
## poblacion_ocupada_ensambladora_year13538 -26780130 111759507 -0.240
## poblacion_ocupada_ensambladora_year13866 -40099449 91251256 -0.439
## poblacion_ocupada_ensambladora_year13927 -1153337 91251256 -0.013
## poblacion_ocupada_ensambladora_year13995 -302686 91251256 -0.003
## poblacion_ocupada_ensambladora_year14221 -85427604 91251256 -0.936
## poblacion_ocupada_ensambladora_year144 18849 91251256 0.000
## poblacion_ocupada_ensambladora_year15136 68628 91251256 0.001
## poblacion_ocupada_ensambladora_year15762 -41948849 91251256 -0.460
## poblacion_ocupada_ensambladora_year15901 -56960344 91251256 -0.624
## poblacion_ocupada_ensambladora_year1601 -71923505 91251256 -0.788
## poblacion_ocupada_ensambladora_year1629 -83095837 111759507 -0.744
## poblacion_ocupada_ensambladora_year16844 3457658 96786572 0.036
## poblacion_ocupada_ensambladora_year1751 50233479 91251256 0.550
## poblacion_ocupada_ensambladora_year17726 -19904172 91251256 -0.218
## poblacion_ocupada_ensambladora_year1776 -95219290 91251256 -1.043
## poblacion_ocupada_ensambladora_year17790 1084572 111759507 0.010
## poblacion_ocupada_ensambladora_year17806 -125382498 91251256 -1.374
## poblacion_ocupada_ensambladora_year17876 -42916198 91251256 -0.470
## poblacion_ocupada_ensambladora_year18197 -6777176 91251256 -0.074
## poblacion_ocupada_ensambladora_year1827 -2927497 91251256 -0.032
## poblacion_ocupada_ensambladora_year18338 -809771 91251256 -0.009
## poblacion_ocupada_ensambladora_year186 9165298 91251256 0.100
## poblacion_ocupada_ensambladora_year1890 -56676 96786572 -0.001
## poblacion_ocupada_ensambladora_year19056 -676860 91251256 -0.007
## poblacion_ocupada_ensambladora_year19219 311407 91251256 0.003
## poblacion_ocupada_ensambladora_year19286 -16058828 91251256 -0.176
## poblacion_ocupada_ensambladora_year1945 12467581 91251256 0.137
## poblacion_ocupada_ensambladora_year19522 -175824860 91251256 -1.927
## poblacion_ocupada_ensambladora_year20047 2203070 91251256 0.024
## poblacion_ocupada_ensambladora_year217 -142230 91251256 -0.002
## poblacion_ocupada_ensambladora_year22383 5551012 96786572 0.057
## poblacion_ocupada_ensambladora_year2252 -243013 111759507 -0.002
## poblacion_ocupada_ensambladora_year2275 -718489 91251256 -0.008
## poblacion_ocupada_ensambladora_year22783 -17304874 91251256 -0.190
## poblacion_ocupada_ensambladora_year23106 -52789396 91251256 -0.579
## poblacion_ocupada_ensambladora_year23160 -124029766 91251256 -1.359
## poblacion_ocupada_ensambladora_year23209 -13521731 91251256 -0.148
## poblacion_ocupada_ensambladora_year23991 -586001 111759507 -0.005
## poblacion_ocupada_ensambladora_year25113 -55792481 111759507 -0.499
## poblacion_ocupada_ensambladora_year25660 -20874860 91251256 -0.229
## poblacion_ocupada_ensambladora_year25840 -3586940 96786572 -0.037
## poblacion_ocupada_ensambladora_year26248 9162092 91251256 0.100
## poblacion_ocupada_ensambladora_year2695 -13312374 91251256 -0.146
## poblacion_ocupada_ensambladora_year26950 -82012426 91251256 -0.899
## poblacion_ocupada_ensambladora_year27190 -31434153 91251256 -0.344
## poblacion_ocupada_ensambladora_year2720 -897442 91251256 -0.010
## poblacion_ocupada_ensambladora_year27286 19980870 91251256 0.219
## poblacion_ocupada_ensambladora_year27319 -8580815 91251256 -0.094
## poblacion_ocupada_ensambladora_year281 -179512 96786572 -0.002
## poblacion_ocupada_ensambladora_year28299 -57488134 91251256 -0.630
## poblacion_ocupada_ensambladora_year28505 20100158 91251256 0.220
## poblacion_ocupada_ensambladora_year28631 13816454 91251256 0.151
## poblacion_ocupada_ensambladora_year29188 -167555153 111759507 -1.499
## poblacion_ocupada_ensambladora_year29560 45453217 91251256 0.498
## poblacion_ocupada_ensambladora_year29817 -25979462 111759507 -0.232
## poblacion_ocupada_ensambladora_year29949 -114226180 96786572 -1.180
## poblacion_ocupada_ensambladora_year3006 225081 91251256 0.002
## poblacion_ocupada_ensambladora_year30939 -25825311 91251256 -0.283
## poblacion_ocupada_ensambladora_year31 -3217378 111759507 -0.029
## poblacion_ocupada_ensambladora_year31326 -106568309 91251256 -1.168
## poblacion_ocupada_ensambladora_year31593 -104642318 91251256 -1.147
## poblacion_ocupada_ensambladora_year3167 -1798870 91251256 -0.020
## poblacion_ocupada_ensambladora_year31902 -121670560 91251256 -1.333
## poblacion_ocupada_ensambladora_year32058 -33656603 96786572 -0.348
## poblacion_ocupada_ensambladora_year32214 15554329 91251256 0.170
## poblacion_ocupada_ensambladora_year32397 37768179 91251256 0.414
## poblacion_ocupada_ensambladora_year32737 -53610402 91251256 -0.588
## poblacion_ocupada_ensambladora_year33776 215286084 91251256 2.359
## poblacion_ocupada_ensambladora_year34166 -94222870 111759507 -0.843
## poblacion_ocupada_ensambladora_year34184 -20954762 96786572 -0.217
## poblacion_ocupada_ensambladora_year3467 -904444 91251256 -0.010
## poblacion_ocupada_ensambladora_year35667 -69484094 91251256 -0.761
## poblacion_ocupada_ensambladora_year35925 5486149 96786572 0.057
## poblacion_ocupada_ensambladora_year36108 151827074 91251256 1.664
## poblacion_ocupada_ensambladora_year3639 NA NA NA
## poblacion_ocupada_ensambladora_year36416 -61548729 111759507 -0.551
## poblacion_ocupada_ensambladora_year3658 -43946892 91251256 -0.482
## poblacion_ocupada_ensambladora_year367 9654679 91251256 0.106
## poblacion_ocupada_ensambladora_year37632 38184829 91251256 0.418
## poblacion_ocupada_ensambladora_year37833 75736097 91251256 0.830
## poblacion_ocupada_ensambladora_year3798 -6966401 91251256 -0.076
## poblacion_ocupada_ensambladora_year38 -4404019 96786572 -0.046
## poblacion_ocupada_ensambladora_year38917 -117612533 91251256 -1.289
## poblacion_ocupada_ensambladora_year3903 -2301816 91251256 -0.025
## poblacion_ocupada_ensambladora_year4011 -17089163 91251256 -0.187
## poblacion_ocupada_ensambladora_year4036 -18221227 91251256 -0.200
## poblacion_ocupada_ensambladora_year40376 77445857 96786572 0.800
## poblacion_ocupada_ensambladora_year40801 -29163382 91251256 -0.320
## poblacion_ocupada_ensambladora_year41376 -27715009 91251256 -0.304
## poblacion_ocupada_ensambladora_year4155 -8749699 91251256 -0.096
## poblacion_ocupada_ensambladora_year4164 -108398680 91251256 -1.188
## poblacion_ocupada_ensambladora_year42428 -7362946 91251256 -0.081
## poblacion_ocupada_ensambladora_year447 75389 96786572 0.001
## poblacion_ocupada_ensambladora_year45674 -68623977 91251256 -0.752
## poblacion_ocupada_ensambladora_year45735 -6458650 91251256 -0.071
## poblacion_ocupada_ensambladora_year4615 293862359 111759507 2.629
## poblacion_ocupada_ensambladora_year46197 -46607356 91251256 -0.511
## poblacion_ocupada_ensambladora_year4650 -10890470 91251256 -0.119
## poblacion_ocupada_ensambladora_year47540 -16067982 91251256 -0.176
## poblacion_ocupada_ensambladora_year48229 31896093 91251256 0.350
## poblacion_ocupada_ensambladora_year48921 -91225168 91251256 -1.000
## poblacion_ocupada_ensambladora_year49658 -34749319 111759507 -0.311
## poblacion_ocupada_ensambladora_year5022 -3932948 111759507 -0.035
## poblacion_ocupada_ensambladora_year50292 -9813744 91251256 -0.108
## poblacion_ocupada_ensambladora_year5078 -3216880 91251256 -0.035
## poblacion_ocupada_ensambladora_year5096 -101087692 91251256 -1.108
## poblacion_ocupada_ensambladora_year50998 -20268445 111759507 -0.181
## poblacion_ocupada_ensambladora_year513 -274024 91251256 -0.003
## poblacion_ocupada_ensambladora_year52 -643859 111759507 -0.006
## poblacion_ocupada_ensambladora_year528 -2590548 91251256 -0.028
## poblacion_ocupada_ensambladora_year52931 -25848730 91251256 -0.283
## poblacion_ocupada_ensambladora_year542 -347818 91251256 -0.004
## poblacion_ocupada_ensambladora_year5455 -45699225 91251256 -0.501
## poblacion_ocupada_ensambladora_year5523 -5647738 91251256 -0.062
## poblacion_ocupada_ensambladora_year5628 52901970 91251256 0.580
## poblacion_ocupada_ensambladora_year589 1159688 91251256 0.013
## poblacion_ocupada_ensambladora_year59620 -48338233 96786572 -0.499
## poblacion_ocupada_ensambladora_year6014 2633896 91251256 0.029
## poblacion_ocupada_ensambladora_year604 -19689796 91251256 -0.216
## poblacion_ocupada_ensambladora_year6077 -21888684 91251256 -0.240
## poblacion_ocupada_ensambladora_year6144 -79169552 91251256 -0.868
## poblacion_ocupada_ensambladora_year6165 -1511708 96786572 -0.016
## poblacion_ocupada_ensambladora_year645 121634327 96786572 1.257
## poblacion_ocupada_ensambladora_year65410 -23297724 91251256 -0.255
## poblacion_ocupada_ensambladora_year658 -1402906 96786572 -0.014
## poblacion_ocupada_ensambladora_year6783 -22234167 91251256 -0.244
## poblacion_ocupada_ensambladora_year7005 67293287 91251256 0.737
## poblacion_ocupada_ensambladora_year7010 1938695 91251256 0.021
## poblacion_ocupada_ensambladora_year7161 8678999 91251256 0.095
## poblacion_ocupada_ensambladora_year7357 1422081 91251256 0.016
## poblacion_ocupada_ensambladora_year74914 -59645793 91251256 -0.654
## poblacion_ocupada_ensambladora_year7497 -4275771 91251256 -0.047
## poblacion_ocupada_ensambladora_year7538 -18424627 111759507 -0.165
## poblacion_ocupada_ensambladora_year76042 -114231092 111759507 -1.022
## poblacion_ocupada_ensambladora_year7608 29441648 96786572 0.304
## poblacion_ocupada_ensambladora_year76195 82961075 91251256 0.909
## poblacion_ocupada_ensambladora_year7631 -12884346 111759507 -0.115
## poblacion_ocupada_ensambladora_year7694 -48819924 91251256 -0.535
## poblacion_ocupada_ensambladora_year7695 -69773414 91251256 -0.765
## poblacion_ocupada_ensambladora_year7697 8339266 91251256 0.091
## poblacion_ocupada_ensambladora_year7710 -43854614 91251256 -0.481
## poblacion_ocupada_ensambladora_year781 -12619850 91251256 -0.138
## poblacion_ocupada_ensambladora_year786 -23329874 91251256 -0.256
## poblacion_ocupada_ensambladora_year7889 7014715 91251256 0.077
## poblacion_ocupada_ensambladora_year8134 -65589088 91251256 -0.719
## poblacion_ocupada_ensambladora_year82050 -23110586 96786572 -0.239
## poblacion_ocupada_ensambladora_year83186 -19096394 91251256 -0.209
## poblacion_ocupada_ensambladora_year8415 -27008420 91251256 -0.296
## poblacion_ocupada_ensambladora_year84649 -55353682 91251256 -0.607
## poblacion_ocupada_ensambladora_year8538 -8057359 91251256 -0.088
## poblacion_ocupada_ensambladora_year8589 39108540 96786572 0.404
## poblacion_ocupada_ensambladora_year8763 135729108 91251256 1.487
## poblacion_ocupada_ensambladora_year915 -688053 91251256 -0.008
## poblacion_ocupada_ensambladora_year9218 -5708698 96786572 -0.059
## poblacion_ocupada_ensambladora_year9264 -32598664 91251256 -0.357
## poblacion_ocupada_ensambladora_year93703 -96097287 91251256 -1.053
## poblacion_ocupada_ensambladora_year9692 -24590049 91251256 -0.269
## poblacion_ocupada_ensambladora_year9849 -92408345 91251256 -1.013
## poblacion_ocupada_ensambladora_year990 -189413 91251256 -0.002
## Pr(>|t|)
## (Intercept) 7.91e-05 ***
## estadoBaja California 0.460816
## estadoCampeche 0.004987 **
## estadoChihuahua 0.000425 ***
## estadoCiudad de Mexico 5.41e-07 ***
## estadoCoahuila de Zaragoza < 2e-16 ***
## estadoColima 0.005002 **
## estadoDurango 0.025336 *
## estadoEstado de Mexico 0.731814
## estadoGuanajuato 5.19e-08 ***
## estadoHidalgo 0.005965 **
## estadoJalisco 0.375793
## estadoMorelos 0.012071 *
## estadoNuevo Leon 1.48e-05 ***
## estadoPuebla 2.93e-07 ***
## estadoQueretaro 1.41e-10 ***
## estadoQuintana Roo 0.001215 **
## estadoSan Luis Potosi 0.266626
## estadoSonora 0.042535 *
## estadoTamaulipas 0.006944 **
## estadoTlaxcala 0.012781 *
## estadoVeracruz de Ignacio de la Llave 0.007983 **
## estadoYucatan 0.005001 **
## estadoZacatecas 0.009008 **
## exportaciones_anual10141642000 2.20e-11 ***
## exportaciones_anual10314836000 0.008108 **
## exportaciones_anual10398672000 0.390040
## exportaciones_anual10400467000 0.019577 *
## exportaciones_anual10478612000 0.013343 *
## exportaciones_anual10594592000 3.45e-12 ***
## exportaciones_anual10701591000 0.058131 .
## exportaciones_anual11146761000 0.000788 ***
## exportaciones_anual1116042000 0.999555
## exportaciones_anual1119625000 0.999858
## exportaciones_anual11227331000 0.033364 *
## exportaciones_anual11449692000 0.568943
## exportaciones_anual1165750000 0.089097 .
## exportaciones_anual11738889000 0.000509 ***
## exportaciones_anual11794073000 0.377462
## exportaciones_anual12035000 0.999764
## exportaciones_anual12044484000 0.659376
## exportaciones_anual1238308000 0.977303
## exportaciones_anual1262654000 0.999673
## exportaciones_anual1278536000 0.745031
## exportaciones_anual12868798000 0.096335 .
## exportaciones_anual1301171000 0.948587
## exportaciones_anual1307252000 0.757835
## exportaciones_anual1310801000 0.784289
## exportaciones_anual1318941000 0.963832
## exportaciones_anual1323153000 0.954363
## exportaciones_anual13360587000 0.019778 *
## exportaciones_anual13514349000 7.01e-07 ***
## exportaciones_anual13664629000 0.122623
## exportaciones_anual1379964000 0.793816
## exportaciones_anual14009625000 0.415017
## exportaciones_anual1428633000 0.969828
## exportaciones_anual1440918000 0.855340
## exportaciones_anual1448674000 0.920153
## exportaciones_anual14512000 0.999881
## exportaciones_anual1460627000 0.027060 *
## exportaciones_anual1460865000 0.929814
## exportaciones_anual1470940000 0.999583
## exportaciones_anual15019152000 8.35e-11 ***
## exportaciones_anual15120233000 0.723833
## exportaciones_anual15294350000 0.069948 .
## exportaciones_anual15531676000 0.238673
## exportaciones_anual15611884000 0.406936
## exportaciones_anual16121000 0.999751
## exportaciones_anual1654784000 0.489295
## exportaciones_anual16642906000 0.717893
## exportaciones_anual1672357000 0.495908
## exportaciones_anual16837910000 5.59e-08 ***
## exportaciones_anual16895883000 0.207333
## exportaciones_anual17204369000 0.007015 **
## exportaciones_anual1721651000 0.952264
## exportaciones_anual1726504000 0.948901
## exportaciones_anual17332223000 0.300118
## exportaciones_anual17443597000 0.261214
## exportaciones_anual1752495000 0.492209
## exportaciones_anual17544423000 0.138515
## exportaciones_anual17547974000 1.53e-06 ***
## exportaciones_anual17735407000 0.254083
## exportaciones_anual17877862000 0.907433
## exportaciones_anual1813156000 0.027561 *
## exportaciones_anual18601992000 0.336980
## exportaciones_anual1861966000 0.493199
## exportaciones_anual18687648000 0.786756
## exportaciones_anual18737712000 0.175811
## exportaciones_anual18985000 0.999939
## exportaciones_anual191993000 NA
## exportaciones_anual19737684000 0.391870
## exportaciones_anual19840531000 0.031101 *
## exportaciones_anual19863200000 0.012341 *
## exportaciones_anual20010001000 0.746897
## exportaciones_anual20026441000 0.128721
## exportaciones_anual20093245000 0.563885
## exportaciones_anual20335098000 0.515806
## exportaciones_anual20787831000 0.053454 .
## exportaciones_anual21133618000 0.896160
## exportaciones_anual2127000000 0.559867
## exportaciones_anual2128076000 0.124878
## exportaciones_anual21392726000 0.351536
## exportaciones_anual21659640000 0.761275
## exportaciones_anual22099835000 0.123811
## exportaciones_anual2242354000 0.957630
## exportaciones_anual22472408000 0.285657
## exportaciones_anual22985164000 0.839923
## exportaciones_anual2299343000 0.953889
## exportaciones_anual2301925000 NA
## exportaciones_anual2302851000 0.000191 ***
## exportaciones_anual23360290000 0.336644
## exportaciones_anual2376795000 0.954388
## exportaciones_anual24048744000 0.001074 **
## exportaciones_anual2452302000 7.69e-07 ***
## exportaciones_anual24926226000 0.826719
## exportaciones_anual25065798000 0.108328
## exportaciones_anual25504680000 0.264642
## exportaciones_anual25507316000 0.978798
## exportaciones_anual26300102000 0.638999
## exportaciones_anual2630544000 0.001629 **
## exportaciones_anual2632148000 0.873109
## exportaciones_anual2667126000 0.779983
## exportaciones_anual26736210000 0.453803
## exportaciones_anual2684823000 0.851311
## exportaciones_anual2705297000 3.32e-07 ***
## exportaciones_anual27314741000 0.235717
## exportaciones_anual2737230000 0.726566
## exportaciones_anual27397995000 0.660314
## exportaciones_anual2760694000 0.885648
## exportaciones_anual2793509000 0.932554
## exportaciones_anual2873522000 0.985551
## exportaciones_anual2880494000 0.771551
## exportaciones_anual29130161000 0.385196
## exportaciones_anual2946392000 0.975096
## exportaciones_anual3026698000 0.986198
## exportaciones_anual30529987000 0.112850
## exportaciones_anual3086705000 0.875644
## exportaciones_anual3086747000 0.968443
## exportaciones_anual3141633000 0.980395
## exportaciones_anual31513013000 0.020031 *
## exportaciones_anual3157991000 0.930865
## exportaciones_anual32177305000 0.029761 *
## exportaciones_anual3325166000 0.962159
## exportaciones_anual3402758000 0.733918
## exportaciones_anual34511011000 0.002198 **
## exportaciones_anual34522156000 0.179426
## exportaciones_anual34590332000 0.595705
## exportaciones_anual34838926000 5.95e-12 ***
## exportaciones_anual3490783000 0.763448
## exportaciones_anual35002851000 0.038256 *
## exportaciones_anual35997280000 0.060790 .
## exportaciones_anual36004725000 0.048844 *
## exportaciones_anual36251770000 1.84e-09 ***
## exportaciones_anual36315716000 0.043994 *
## exportaciones_anual3657768000 0.976793
## exportaciones_anual37699563000 2.51e-08 ***
## exportaciones_anual3791586000 0.760401
## exportaciones_anual38441996000 0.069528 .
## exportaciones_anual38572482000 0.000247 ***
## exportaciones_anual38950677000 4.00e-07 ***
## exportaciones_anual39615279000 0.002951 **
## exportaciones_anual39857053000 0.039256 *
## exportaciones_anual39896454000 0.050207 .
## exportaciones_anual40659059000 0.140168
## exportaciones_anual41034808000 3.96e-06 ***
## exportaciones_anual42396951000 0.289185
## exportaciones_anual4339856000 0.880619
## exportaciones_anual44961569000 1.01e-11 ***
## exportaciones_anual47659461000 2.58e-05 ***
## exportaciones_anual4862567000 0.948547
## exportaciones_anual52231000 0.999894
## exportaciones_anual522839000 0.994734
## exportaciones_anual5352788000 0.918017
## exportaciones_anual5362863000 0.890841
## exportaciones_anual582973000 0.999327
## exportaciones_anual587504000 0.057760 .
## exportaciones_anual606131000 0.068173 .
## exportaciones_anual6367193000 0.906729
## exportaciones_anual6697248000 0.923728
## exportaciones_anual716061000 0.999850
## exportaciones_anual722027000 0.943763
## exportaciones_anual726530000 0.071212 .
## exportaciones_anual729883000 0.002790 **
## exportaciones_anual735262000 0.997971
## exportaciones_anual7830019000 0.559335
## exportaciones_anual7870962000 0.506361
## exportaciones_anual790859000 0.890237
## exportaciones_anual80907000 0.999744
## exportaciones_anual820169000 0.138633
## exportaciones_anual8466008000 0.890474
## exportaciones_anual8476833000 0.014218 *
## exportaciones_anual8495444000 0.542336
## exportaciones_anual8534000 0.999930
## exportaciones_anual871638000 0.250445
## exportaciones_anual8829410000 0.675432
## exportaciones_anual9147776000 0.004843 **
## exportaciones_anual9372970000 1.38e-11 ***
## exportaciones_anual9505026000 0.012374 *
## exportaciones_anual9650719000 0.473976
## exportaciones_anual9806397000 0.020721 *
## poblacion_ocupada_ensambladora_year1004 0.995976
## poblacion_ocupada_ensambladora_year1017 0.335352
## poblacion_ocupada_ensambladora_year10714 0.694570
## poblacion_ocupada_ensambladora_year1075 0.999692
## poblacion_ocupada_ensambladora_year10767 0.969271
## poblacion_ocupada_ensambladora_year11050 0.289581
## poblacion_ocupada_ensambladora_year11361 0.547670
## poblacion_ocupada_ensambladora_year11806 0.962059
## poblacion_ocupada_ensambladora_year12073 0.974294
## poblacion_ocupada_ensambladora_year12094 0.477631
## poblacion_ocupada_ensambladora_year12217 0.945103
## poblacion_ocupada_ensambladora_year124585 0.686575
## poblacion_ocupada_ensambladora_year1247 0.997523
## poblacion_ocupada_ensambladora_year12650 0.990566
## poblacion_ocupada_ensambladora_year12836 0.924345
## poblacion_ocupada_ensambladora_year13072 0.867499
## poblacion_ocupada_ensambladora_year13538 0.810777
## poblacion_ocupada_ensambladora_year13866 0.660641
## poblacion_ocupada_ensambladora_year13927 0.989924
## poblacion_ocupada_ensambladora_year13995 0.997355
## poblacion_ocupada_ensambladora_year14221 0.349891
## poblacion_ocupada_ensambladora_year144 0.999835
## poblacion_ocupada_ensambladora_year15136 0.999400
## poblacion_ocupada_ensambladora_year15762 0.646041
## poblacion_ocupada_ensambladora_year15901 0.532934
## poblacion_ocupada_ensambladora_year1601 0.431172
## poblacion_ocupada_ensambladora_year1629 0.457714
## poblacion_ocupada_ensambladora_year16844 0.971524
## poblacion_ocupada_ensambladora_year1751 0.582365
## poblacion_ocupada_ensambladora_year17726 0.827472
## poblacion_ocupada_ensambladora_year1776 0.297516
## poblacion_ocupada_ensambladora_year17790 0.992263
## poblacion_ocupada_ensambladora_year17806 0.170398
## poblacion_ocupada_ensambladora_year17876 0.638457
## poblacion_ocupada_ensambladora_year18197 0.940843
## poblacion_ocupada_ensambladora_year1827 0.974427
## poblacion_ocupada_ensambladora_year18338 0.992925
## poblacion_ocupada_ensambladora_year186 0.920058
## poblacion_ocupada_ensambladora_year1890 0.999533
## poblacion_ocupada_ensambladora_year19056 0.994086
## poblacion_ocupada_ensambladora_year19219 0.997279
## poblacion_ocupada_ensambladora_year19286 0.860418
## poblacion_ocupada_ensambladora_year1945 0.891410
## poblacion_ocupada_ensambladora_year19522 0.054893 .
## poblacion_ocupada_ensambladora_year20047 0.980754
## poblacion_ocupada_ensambladora_year217 0.998757
## poblacion_ocupada_ensambladora_year22383 0.954300
## poblacion_ocupada_ensambladora_year2252 0.998266
## poblacion_ocupada_ensambladora_year2275 0.993723
## poblacion_ocupada_ensambladora_year22783 0.849712
## poblacion_ocupada_ensambladora_year23106 0.563332
## poblacion_ocupada_ensambladora_year23160 0.175043
## poblacion_ocupada_ensambladora_year23209 0.882294
## poblacion_ocupada_ensambladora_year23991 0.995820
## poblacion_ocupada_ensambladora_year25113 0.617970
## poblacion_ocupada_ensambladora_year25660 0.819201
## poblacion_ocupada_ensambladora_year25840 0.970460
## poblacion_ocupada_ensambladora_year26248 0.920086
## poblacion_ocupada_ensambladora_year2695 0.884103
## poblacion_ocupada_ensambladora_year26950 0.369464
## poblacion_ocupada_ensambladora_year27190 0.730714
## poblacion_ocupada_ensambladora_year2720 0.992159
## poblacion_ocupada_ensambladora_year27286 0.826817
## poblacion_ocupada_ensambladora_year27319 0.925141
## poblacion_ocupada_ensambladora_year281 0.998521
## poblacion_ocupada_ensambladora_year28299 0.529148
## poblacion_ocupada_ensambladora_year28505 0.825800
## poblacion_ocupada_ensambladora_year28631 0.879747
## poblacion_ocupada_ensambladora_year29188 0.134802
## poblacion_ocupada_ensambladora_year29560 0.618750
## poblacion_ocupada_ensambladora_year29817 0.816331
## poblacion_ocupada_ensambladora_year29949 0.238808
## poblacion_ocupada_ensambladora_year3006 0.998033
## poblacion_ocupada_ensambladora_year30939 0.777351
## poblacion_ocupada_ensambladora_year31 0.977051
## poblacion_ocupada_ensambladora_year31326 0.243740
## poblacion_ocupada_ensambladora_year31593 0.252347
## poblacion_ocupada_ensambladora_year3167 0.984284
## poblacion_ocupada_ensambladora_year31902 0.183369
## poblacion_ocupada_ensambladora_year32058 0.728265
## poblacion_ocupada_ensambladora_year32214 0.864760
## poblacion_ocupada_ensambladora_year32397 0.679232
## poblacion_ocupada_ensambladora_year32737 0.557283
## poblacion_ocupada_ensambladora_year33776 0.018915 *
## poblacion_ocupada_ensambladora_year34166 0.399814
## poblacion_ocupada_ensambladora_year34184 0.828733
## poblacion_ocupada_ensambladora_year3467 0.992098
## poblacion_ocupada_ensambladora_year35667 0.446947
## poblacion_ocupada_ensambladora_year35925 0.954833
## poblacion_ocupada_ensambladora_year36108 0.097130 .
## poblacion_ocupada_ensambladora_year3639 NA
## poblacion_ocupada_ensambladora_year36416 0.582209
## poblacion_ocupada_ensambladora_year3658 0.630419
## poblacion_ocupada_ensambladora_year367 0.915805
## poblacion_ocupada_ensambladora_year37632 0.675895
## poblacion_ocupada_ensambladora_year37833 0.407177
## poblacion_ocupada_ensambladora_year3798 0.939194
## poblacion_ocupada_ensambladora_year38 0.963735
## poblacion_ocupada_ensambladora_year38917 0.198374
## poblacion_ocupada_ensambladora_year3903 0.979891
## poblacion_ocupada_ensambladora_year4011 0.851564
## poblacion_ocupada_ensambladora_year4036 0.841857
## poblacion_ocupada_ensambladora_year40376 0.424209
## poblacion_ocupada_ensambladora_year40801 0.749486
## poblacion_ocupada_ensambladora_year41376 0.761538
## poblacion_ocupada_ensambladora_year4155 0.923672
## poblacion_ocupada_ensambladora_year4164 0.235754
## poblacion_ocupada_ensambladora_year42428 0.935740
## poblacion_ocupada_ensambladora_year447 0.999379
## poblacion_ocupada_ensambladora_year45674 0.452587
## poblacion_ocupada_ensambladora_year45735 0.943618
## poblacion_ocupada_ensambladora_year4615 0.008969 **
## poblacion_ocupada_ensambladora_year46197 0.609875
## poblacion_ocupada_ensambladora_year4650 0.905077
## poblacion_ocupada_ensambladora_year47540 0.860339
## poblacion_ocupada_ensambladora_year48229 0.726914
## poblacion_ocupada_ensambladora_year48921 0.318209
## poblacion_ocupada_ensambladora_year49658 0.756058
## poblacion_ocupada_ensambladora_year5022 0.971949
## poblacion_ocupada_ensambladora_year50292 0.914423
## poblacion_ocupada_ensambladora_year5078 0.971900
## poblacion_ocupada_ensambladora_year5096 0.268788
## poblacion_ocupada_ensambladora_year50998 0.856202
## poblacion_ocupada_ensambladora_year513 0.997606
## poblacion_ocupada_ensambladora_year52 0.995407
## poblacion_ocupada_ensambladora_year528 0.977370
## poblacion_ocupada_ensambladora_year52931 0.777154
## poblacion_ocupada_ensambladora_year542 0.996961
## poblacion_ocupada_ensambladora_year5455 0.616854
## poblacion_ocupada_ensambladora_year5523 0.950688
## poblacion_ocupada_ensambladora_year5628 0.562501
## poblacion_ocupada_ensambladora_year589 0.989868
## poblacion_ocupada_ensambladora_year59620 0.617821
## poblacion_ocupada_ensambladora_year6014 0.976991
## poblacion_ocupada_ensambladora_year604 0.829301
## poblacion_ocupada_ensambladora_year6077 0.810583
## poblacion_ocupada_ensambladora_year6144 0.386268
## poblacion_ocupada_ensambladora_year6165 0.987548
## poblacion_ocupada_ensambladora_year645 0.209775
## poblacion_ocupada_ensambladora_year65410 0.798646
## poblacion_ocupada_ensambladora_year658 0.988444
## poblacion_ocupada_ensambladora_year6783 0.807652
## poblacion_ocupada_ensambladora_year7005 0.461392
## poblacion_ocupada_ensambladora_year7010 0.983063
## poblacion_ocupada_ensambladora_year7161 0.924287
## poblacion_ocupada_ensambladora_year7357 0.987576
## poblacion_ocupada_ensambladora_year74914 0.513814
## poblacion_ocupada_ensambladora_year7497 0.962657
## poblacion_ocupada_ensambladora_year7538 0.869159
## poblacion_ocupada_ensambladora_year76042 0.307503
## poblacion_ocupada_ensambladora_year7608 0.761181
## poblacion_ocupada_ensambladora_year76195 0.363960
## poblacion_ocupada_ensambladora_year7631 0.908291
## poblacion_ocupada_ensambladora_year7694 0.593020
## poblacion_ocupada_ensambladora_year7695 0.445059
## poblacion_ocupada_ensambladora_year7697 0.927242
## poblacion_ocupada_ensambladora_year7710 0.631137
## poblacion_ocupada_ensambladora_year781 0.890093
## poblacion_ocupada_ensambladora_year786 0.798374
## poblacion_ocupada_ensambladora_year7889 0.938773
## poblacion_ocupada_ensambladora_year8134 0.472808
## poblacion_ocupada_ensambladora_year82050 0.811431
## poblacion_ocupada_ensambladora_year83186 0.834369
## poblacion_ocupada_ensambladora_year8415 0.767440
## poblacion_ocupada_ensambladora_year84649 0.544544
## poblacion_ocupada_ensambladora_year8538 0.929695
## poblacion_ocupada_ensambladora_year8589 0.686433
## poblacion_ocupada_ensambladora_year8763 0.137894
## poblacion_ocupada_ensambladora_year915 0.993989
## poblacion_ocupada_ensambladora_year9218 0.953003
## poblacion_ocupada_ensambladora_year9264 0.721149
## poblacion_ocupada_ensambladora_year93703 0.293092
## poblacion_ocupada_ensambladora_year9692 0.787738
## poblacion_ocupada_ensambladora_year9849 0.311983
## poblacion_ocupada_ensambladora_year990 0.998345
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 79030000 on 318 degrees of freedom
## Multiple R-squared: 0.9716, Adjusted R-squared: 0.9384
## F-statistic: 29.28 on 371 and 318 DF, p-value: < 2.2e-16regresion2 <- lm(Total_Produccion ~ Año + Produccion, data=bd5)
summary(regresion2)##
## Call:
## lm(formula = Total_Produccion ~ Año + Produccion, data = bd5)
##
## Residuals:
## Min 1Q Median 3Q Max
## -156662104 -2346480 -288323 745268 98830383
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.083e+09 5.845e+08 3.563 0.000400 ***
## Año -1.031e+06 2.896e+05 -3.561 0.000402 ***
## Produccion 5.394e+00 7.845e-02 68.757 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 11410000 on 531 degrees of freedom
## Multiple R-squared: 0.899, Adjusted R-squared: 0.8986
## F-statistic: 2364 on 2 and 531 DF, p-value: < 2.2e-16bd5 <- data.frame(Año=2022, Produccion= 170000000)
predict(regresion2,bd5)## 1
## 914196926Para la primera regresion definimos la variable de “Ventas de autopartes anuales” como la variable dependiente, seleccionamos exportaciones anuales, la poblacion ocupada y los estados como independientes y podemos observar que, estados es una variable significativa, principalmete en estados específicos como Chihuahua, Ciudad de Mexico, Zaragoza, Guanajuato, Nuevo León, Puebla y Queretaro, con esto podemos inferir que dichos estados tienen una mayor fuerza en la industria automotriz.
En la regresion 2, de acuerdo a los datos estimados, se ve que las variables de año y producción son igualmente significativas para la variable dependiente. En el caso de año, este tiene un impacto negativo sobre la otra y la producción tiene una estimación positiva. El modelo anterior nos muestra cuánto se estima que se producirá a nivel global en la industria del cartón para 2022. De acuerdo a una producción total aproximada de 170 millones de cartón en 2021, se espera que en 2022 se produzcan 914,196,926. En este caso, el prónostico fue realizado al crear un nuevo ‘data frame’ y al implementar la función de ‘lm’, usada para crear análisis regresivos y predictivos.
Modelos de regresión lineal múltiple: Producción de cartón en 2022 para Estados Unidos y México
Importar base de datos (2)
bd6 <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd3 csv3.csv")
summary(bd6)## Año USA MEX
## Min. :2016 Min. :48847 Min. :103443
## 1st Qu.:2017 1st Qu.:52256 1st Qu.:114333
## Median :2018 Median :54328 Median :124555
## Mean :2018 Mean :53932 Mean :123036
## 3rd Qu.:2020 3rd Qu.:55203 3rd Qu.:129521
## Max. :2021 Max. :59031 Max. :143561sum(is.na(bd6))## [1] 0summary(bd6)## Año USA MEX
## Min. :2016 Min. :48847 Min. :103443
## 1st Qu.:2017 1st Qu.:52256 1st Qu.:114333
## Median :2018 Median :54328 Median :124555
## Mean :2018 Mean :53932 Mean :123036
## 3rd Qu.:2020 3rd Qu.:55203 3rd Qu.:129521
## Max. :2021 Max. :59031 Max. :143561str(bd6)## 'data.frame': 6 obs. of 3 variables:
## $ Año: int 2016 2017 2018 2019 2020 2021
## $ USA: num 48847 51672 54006 55387 54651 ...
## $ MEX: num 103443 112231 120638 128471 129871 ...Modelo de regresión múltiple: Producción de cartón en 2022: México
regresion3 <- lm(MEX ~ USA + Año, data=bd6)
summary(regresion3)##
## Call:
## lm(formula = MEX ~ USA + Año, data = bd6)
##
## Residuals:
## 1 2 3 4 5 6
## 574.6 -373.0 -664.0 478.2 -345.3 329.5
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.614e+06 1.010e+06 -7.540 0.00484 **
## USA 2.109e+00 2.749e-01 7.674 0.00460 **
## Año 3.777e+03 5.072e+02 7.446 0.00501 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 675 on 3 degrees of freedom
## Multiple R-squared: 0.9986, Adjusted R-squared: 0.9977
## F-statistic: 1100 on 2 and 3 DF, p-value: 5.023e-05regresion3 <- lm(MEX ~ Año, data=bd6)
summary(regresion3)##
## Call:
## lm(formula = MEX ~ Año, data = bd6)
##
## Residuals:
## 1 2 3 4 5 6
## -925.5 395.3 1336.2 1701.6 -4365.0 1857.6
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.495e+07 1.281e+06 -11.67 0.000308 ***
## Año 7.467e+03 6.347e+02 11.77 0.000299 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2655 on 4 degrees of freedom
## Multiple R-squared: 0.9719, Adjusted R-squared: 0.9649
## F-statistic: 138.4 on 1 and 4 DF, p-value: 0.0002986bd6 <- data.frame(Año=2022, Produccion= 740000)
predict(regresion3,bd6)## 1
## 149170.3ggplot(bd6, aes(x=Año, y=Produccion))+
geom_point() +
geom_line(aes(y=Produccion), color="red", linetype="dashed") +
geom_line(aes(y=Produccion), color="red", linetype="dashed") +
geom_smooth(method=lm, formula=y~x, se=TRUE, level=0.95, col='blue', fill='pink2') +
theme_light()## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
La predicción anterior nos arroja que hay un impacto positivo y significativo entre la variable Año y la variable dependiente. Esto significa que hay una predicción positiva de crecimiento acorde al año. De acuerdo a la producción total generada por México de 2016 a 2021 (740 M), el modelo pronóstico estima que en 2022 producirá 149,170.3. En la gráfica previa se muestra el punto de predicción. Si analizamos la producción de 2021 contra el pronóstico de 2022, se estima que la producción mexicana disminuirá. Podemos suponer que esto se debe a la deficiencia en la cadena de suministro global, así como factores económicos globales.
Modelos de regresión lineal múltiple: Producción de cartón en 2022 para Estados Unidos y México
Importar base de datos (3)
bd6 <-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd3 csv3.csv")
summary(bd6)## Año USA MEX
## Min. :2016 Min. :48847 Min. :103443
## 1st Qu.:2017 1st Qu.:52256 1st Qu.:114333
## Median :2018 Median :54328 Median :124555
## Mean :2018 Mean :53932 Mean :123036
## 3rd Qu.:2020 3rd Qu.:55203 3rd Qu.:129521
## Max. :2021 Max. :59031 Max. :143561sum(is.na(bd6))## [1] 0summary(bd6)## Año USA MEX
## Min. :2016 Min. :48847 Min. :103443
## 1st Qu.:2017 1st Qu.:52256 1st Qu.:114333
## Median :2018 Median :54328 Median :124555
## Mean :2018 Mean :53932 Mean :123036
## 3rd Qu.:2020 3rd Qu.:55203 3rd Qu.:129521
## Max. :2021 Max. :59031 Max. :143561str(bd6)## 'data.frame': 6 obs. of 3 variables:
## $ Año: int 2016 2017 2018 2019 2020 2021
## $ USA: num 48847 51672 54006 55387 54651 ...
## $ MEX: num 103443 112231 120638 128471 129871 ...Modelos de regresión lineal múltiple: Producción de cartón en 2022: Estados Unidos
regresion2 <- lm(USA ~ MEX + Año, data=bd6)
summary(regresion2)##
## Call:
## lm(formula = USA ~ MEX + Año, data = bd6)
##
## Residuals:
## 1 2 3 4 5 6
## -293.67 185.92 345.50 -187.61 63.41 -113.54
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.266e+06 8.915e+05 3.663 0.0352 *
## MEX 4.511e-01 5.878e-02 7.674 0.0046 **
## Año -1.619e+03 4.452e+02 -3.636 0.0358 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 312.1 on 3 degrees of freedom
## Multiple R-squared: 0.9951, Adjusted R-squared: 0.9918
## F-statistic: 304.3 on 2 and 3 DF, p-value: 0.0003435regresion2 <- lm(USA ~ Año, data=bd6)
summary(regresion2)##
## Call:
## lm(formula = USA ~ Año, data = bd6)
##
## Residuals:
## 1 2 3 4 5 6
## -711.2 364.2 948.3 580.0 -1905.7 724.4
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3477589.1 592456.5 -5.870 0.00421 **
## Año 1749.6 293.5 5.961 0.00398 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1228 on 4 degrees of freedom
## Multiple R-squared: 0.8988, Adjusted R-squared: 0.8735
## F-statistic: 35.53 on 1 and 4 DF, p-value: 0.003977bd6 <- data.frame(Año=2022, Produccion= 320000)
predict(regresion2,bd6)## 1
## 60055.85Para la predicción de Estados Unidos, vemos que habrá un incremento en la producción de cartón contra 2021. Sin embargo, al analizar la producción total de México contra la producción total de Estados Unidos, vemos que la mexicana es mucho mayor. Podemos suponer que esto se debe debido a la mano de obra económica del mercado mexicano.
De acuerdo a la predicción anterior, se ve un incremento positivo para la variable México con la variable dependiente, a diferencia del año que muestra un impacto menor y negativo, pero igualmente significativo.
Pronóstico:
Del Desempeño de la Industria Automotriz y la Empresa FORM
Instalar paquetes
#install.packages("forecast")
library(forecast)Industria Automotriz
Pronosticar el desempeño de la industria automotriz (EUA y MEX) para los 3 periodos de tiempo.
#file.choose()
externo<- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/externa_bd3 csv3.csv")Crear serie de tiempo
produccion_mexico<- c(externo$MEX)
produccion_usa<- c(externo$USA)produccionm<-ts(data=produccion_mexico, start=c(2016,1), frequency=1)
produccionu<-ts(data=produccion_usa, start=c(2016,1), frequency=1)
produccionm## Time Series:
## Start = 2016
## End = 2021
## Frequency = 1
## [1] 103442.8 112230.6 120638.5 128470.9 129871.3 143560.9produccionu## Time Series:
## Start = 2016
## End = 2021
## Frequency = 1
## [1] 48847.2 51672.2 54005.8 55387.1 54651.0 59030.7modelom<- auto.arima(produccionm, D=1)
modelou<- auto.arima(produccionu, D=1)
modelom## Series: produccionm
## ARIMA(0,1,0) with drift
##
## Coefficients:
## drift
## 8023.620
## s.e. 1752.032
##
## sigma^2 = 19186921: log likelihood = -48.46
## AIC=100.92 AICc=106.92 BIC=100.14modelou## Series: produccionu
## ARIMA(0,1,0)
##
## sigma^2 = 7012061: log likelihood = -46.5
## AIC=95 AICc=96.34 BIC=94.61pronosticom <- forecast(modelom, level=c(95), h=4)
pronosticom## Point Forecast Lo 95 Hi 95
## 2022 151584.5 142999.3 160169.7
## 2023 159608.1 147466.8 171749.5
## 2024 167631.8 152761.7 182501.8
## 2025 175655.4 158485.0 192825.8plot(pronosticom)
pronosticou <- forecast(modelou, level=c(95), h=4)
pronosticou## Point Forecast Lo 95 Hi 95
## 2022 59030.7 53840.66 64220.74
## 2023 59030.7 51690.87 66370.53
## 2024 59030.7 50041.28 68020.12
## 2025 59030.7 48650.61 69410.79plot(pronosticou)
Producción de FORM
Pronosticar el desempeño de produccion de Form para los proximos 3 periodos de tiempo.
#file.choose()
formproduccion<- read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/Form_produccionbaselimpia.csv")Crear serie de tiempo
produccionform<- c(formproduccion$laminas_procesadas)produccionf<-ts(data=produccionform, start=c(2022,7), end=c(2025, 12), frequency=12)
produccionf## Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
## 2022 3 2 2 1 1 3
## 2023 2 5 5 10 5 1 5 7 12 4 7 1
## 2024 15 9 9 9 10 18 22 22 9 45 22 11
## 2025 22 11 11 21 11 11 11 6 11 11 11 11modelof<- auto.arima(produccionf, D=1)
modelof## Series: produccionf
## ARIMA(2,1,0)(1,1,0)[12]
##
## Coefficients:
## ar1 ar2 sar1
## -0.7093 -0.3922 -0.6559
## s.e. 0.1707 0.1731 0.1338
##
## sigma^2 = 79.45: log likelihood = -106.7
## AIC=221.39 AICc=223.06 BIC=226.86pronosticof <- forecast(modelof, level=c(95), h=3)
pronosticof## Point Forecast Lo 95 Hi 95
## Jan 2026 16.15982 -1.310707 33.63035
## Feb 2026 10.94925 -7.244608 29.14312
## Mar 2026 12.23183 -7.267676 31.73133plot(pronosticof)
Describe los resultados
Realizamos una serie de tiempo tanto para la base de la industria automotriz como para la base de producción de FORM, este es enfocado a las laminas procesadas cada mes y en la industria es por año. Para poder realizar este Analisis de Resultado realizamos una grafica y un modelo de Predicción por medio de la función auto.arima. Gracias a esta función, le especificamos desde que Fecha empezará a obtener datos de la base de Datos y también colocamos la frecuencia, que se refiere a cómo se comporta, en cuestión a si se va a calcular por mes o por año. Así mismo, obtuvimos para la industria tanto en México como en EU, que son los países en los que se enfoca más FORM y obtengan mejor oportunidad de crecimiento. Al realizar este modelo calculamos para los próximos 3 periodos, en este caso para el 2025 y obtuvimos los siguientes resultados:
Industria Automotriz en México:
Partiendo de un margen del 95%, queriendo decir, que este modelo es más preciso por lo que al ver la grafica obtenemos que tendrá un incremento constante en los próximos 3 años, partiendo del 2022.
Este crecimiento de la industria automotriz en México se estima un crecimiento del 16% para 2025, lo que beneficia a FORM para continuar produciendo en el mercado Mexicano.
Industria Automotriz en Estados Unidos:
Para 2022 el pronostico es de 59 mil, que este se puede mantener constante en los próximos 3 años hasta 2025.
Se obtiene un escenario optimista con la precisión del 95%, lo que quiere decir que para finales del 2025, puede estar igual en 59 mil o aumentar hasta los 69 mil. Esto indicaría que va en aumento año con año y terminaría el 2025 con un aumento del casi 20%. Lo que indicaría algo bueno para FORM, dandole oportunidad a aumentar su cartera de clientes dentro del mercado Estadounidense y teniendo un buen impacto de la industria para los próximos periodos.
Empresa FORM:
Se hizo el pronostico por mes y dando un periodo hasta el 2026, partiendo del 2022 con 3 en cuanto a producción de laminas procesadas, se estima que este tenga un aumento constante, ademas de que entre el 2024 y 2025 tenga un punto de pique más alto, que posteriormente volverá a estabilizarse pero que se mantendrá constante entre los 10 a 20 en producción.
Se pronostica que para el 2026 se tenga un 33 en producción del área de laminas procesadas, teniendo una precisión del 95% en un escenario optimista. Así mismo este se puede mantener constante en 10 o aumentar como se comentó anteriormente y este crecimiento a términos del 2026 tomando el escenario optimista, sería de poco mas del 90% lo que sería un gran aumento para FORM. También si fuera sin el 95% para inicios del 2026 serían 16 en producción con el 60% de aumento, lo que seguiría siendo algo importante para FORM.
Sección 3
Metodología de K-Means Clustering
Definiciones
1. K - means Clustering Contribuyen a la identificación de clusters, ya que K-means lo que hace es agrupar, quiere decir que esta función o algoritmo divide los datos u observaciones obtenidas en grupos con características similares. De esta manera es que se puede analizar con éxito cada Cluster, obteniendo información importante de cada variable y la similitudes entre ellas, lo que hace que sea más comprensible, ya que hace que los datos o información que no se puede procesar en información procesable. Un claro ejemplo de cómo funciona es teniendo grupos que comparten los mismos temas, imágenes con el mismo objeto o persona, etc.
2. Unsupervised Learning
Cuando se utiliza la función K-means se enfoca en agrupar datos no supervisados, esto quiere decir que K-means es un algoritmo no supervisado. En otras palabras lo que quiere decir Aprendizaje no supervisado, es referente al tipo de algoritmo o técnica que se utiliza y es importante, ya que gracias a que se define de esta manera las técnicas y algoritmos, podemos implementarlo de manera correcta en el análisis de Datos. Esto quiere decir que este termino nos da a entender que esa base de datos se ocupará el algoritmo de agrupamiento no supervisado, ya que la base cuenta con datos de entrada sin respuestas etiquetadas, es por eso la importancia para poder identificarlo.
3. Distancia Euclidiana / Eucliedeance Distance Principalmente la distancia euclidiana es cuando se encuentra un espacio vectorial, que es igual o inferior a la variable que estamos analizando. Cuando se identifican clusters encontramos a los centroides, En la parte donde se utiliza la distancia euclidiana es cuando los centroides ya no se repiten y encuentran una posición y no cambian, por lo que se hace la relación con puntos al rededor del centroides, cada punto es una variable por lo tanto la distancia que existe entre variables es la distancia euclidiana. La cual nos ayuda a descubrir la similitud entre las variables que estamos analizando.
Cluster 1
Importar Paquetes
Limpieza de datos y transformacion
Importar Base de Datos
file.choose()
Explorar datos
rh1<-rh
rh1 <- subset (rh1, select = -c (NO.DE.BAJAS))
rh1 <- subset (rh1, select = -c (APELLIDOS))
rh1 <- subset (rh1, select = -c (NOMBRE))
rh1 <- subset (rh1, select = -c (FECHA.DE.NACIMIENTO ))
rh1 <- subset (rh1, select = -c (FECHA.DE.ALTA ))
rh1 <- subset (rh1, select = -c (MOTIVO.DE.BAJA ))
rh1 <- subset (rh1, select = -c (NO.CREDITO.INFONAVIT ))
rh1 <- subset (rh1, select = -c (BAJA ))
rh1 <- subset (rh1, select = -c (DEPARTAMENTO ))
rh1 <- subset (rh1, select = -c (NO.SEGURO.SOCIAL ))
rh1 <- subset (rh1, select = -c (FACTOR.CRED.INFONAVIT ))
rh1 <- subset (rh1, select = -c (LUGAR.DE.NACIMIENTO ))
rh1 <- subset (rh1, select = -c (CURP ))
rh1 <- subset (rh1, select = -c (CALLE ))
rh1 <- subset (rh1, select = -c (NUMERO.INTERNO ))
rh1 <- subset (rh1, select = -c (COLONIA ))
rh1 <- subset (rh1, select = -c (CODIGO.POSTAL ))
rh1 <- subset (rh1, select = -c (MUNICIPIO ))
rh1 <- subset (rh1, select = -c (ESTADO ))
rh1 <- subset (rh1, select = -c (ESTADO.CIVIL ))
rh1 <- subset (rh1, select = -c (TARJETA.CUENTA ))
rh1 <- subset (rh1, select = -c (PUESTO))
#rh1<-rh %>% select(EDAD,DIAS.TRABAJADOS,SALARIO.DIARIO.IMSS, GENERO)
summary(rh1)## EDAD GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## Min. : 0.00 Length:78 Min. : 0.00 Min. :151.6
## 1st Qu.:22.25 Class :character 1st Qu.: 9.00 1st Qu.:180.7
## Median :30.00 Mode :character Median : 19.00 Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7Normalizar los datos
rh1_norm<-scale(rh1[3:4]) Numero Optimo de Clusters
fviz_nbclust(rh1_norm, kmeans, method="wss")+ # wss method considers total within sum of square
geom_vline(xintercept=4, linetype=2)+ # optimal number of clusters is computed with the default method = "euclidean"
labs(subtitle = "Elbow method") 
Visualizar la info de clusters
rh1_cluster<-kmeans(rh1_norm,4)
rh1_cluster## K-means clustering with 4 clusters of sizes 1, 17, 8, 52
##
## Cluster means:
## DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## 1 7.5323951 0.5246350
## 2 0.2712304 -1.8780410
## 3 0.6353722 0.4428101
## 4 -0.3312748 0.5357612
##
## Clustering vector:
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
## 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 4 4 3 2 4 2 2 2 2
## 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
## 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 3 4 4 3 3 3 1
## 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
## 4 4 3 4 4 4 4 4 4 4 4 4 4 4 4 3 3 4 4 4 4 4 4 4 4 4
##
## Within cluster sum of squares by cluster:
## [1] 0.000000 6.019937 3.270968 1.055662
## (between_SS / total_SS = 93.3 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"Muestra que utilicemos 4 clusters para analizar y visualizar la información.
Visualizar Resultados
fviz_cluster(rh1_cluster,data=rh1_norm)
El primer cluster analiza la relación entre el salario diario IMSS y los días trabajados de los empleados que ya fueron dados de baja. En este caso, vemos que hay un impacto alto entre aquellos empleados que trabajaron de 2 a 8 días, pero tuvieron un salario diario bajo, mucho menor a 0 en la gráfica. Los otros dos resultados, se muestra que trabajaron menos días, pero al igual que el primer cluster explicado, tuvieron un salario muy bajo. Con estos tres, hay una correlación alta, significativa y negativa. Para el grupo de arriba, vemos que estos trabajaron un promedio de 2-3 días y tuvieron un salario diario muy alto. Podemos inferir que este grupo pertenece al área administrativa, que como vimos en análisis anteriores, son el grupo con un salario mucho más alto al resto.
rh2<-rh1
rh2$Clusters<-rh1_cluster$cluster
summary(rh2)## EDAD GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## Min. : 0.00 Length:78 Min. : 0.00 Min. :151.6
## 1st Qu.:22.25 Class :character 1st Qu.: 9.00 1st Qu.:180.7
## Median :30.00 Mode :character Median : 19.00 Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## Clusters
## Min. :1.000
## 1st Qu.:3.000
## Median :4.000
## Mean :3.423
## 3rd Qu.:4.000
## Max. :4.000Crear un dataset
library(dplyr)
rh3<-rh2 %>% group_by(Clusters) %>% summarize (SALARIO.DIARIO.IMSS=max(SALARIO.DIARIO.IMSS),DIAS.TRABAJADOS=mean(DIAS.TRABAJADOS)) %>% dplyr:: arrange(desc(SALARIO.DIARIO.IMSS))
summary(rh3)## SALARIO.DIARIO.IMSS DIAS.TRABAJADOS
## Min. :183.7 Min. :45.1
## 1st Qu.:183.7 1st Qu.:45.1
## Median :183.7 Median :45.1
## Mean :183.7 Mean :45.1
## 3rd Qu.:183.7 3rd Qu.:45.1
## Max. :183.7 Max. :45.1Agrupar clusters por nombre
rh2$Cluster_Names<-factor(rh2$Clusters,levels = c(1,2,3,4),
labels=c("Bajo", "Promedio ", "Arriba del prom", "Alto"))
summary(rh2)## EDAD GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## Min. : 0.00 Length:78 Min. : 0.00 Min. :151.6
## 1st Qu.:22.25 Class :character 1st Qu.: 9.00 1st Qu.:180.7
## Median :30.00 Mode :character Median : 19.00 Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## Clusters Cluster_Names
## Min. :1.000 Bajo : 1
## 1st Qu.:3.000 Promedio :17
## Median :4.000 Arriba del prom: 8
## Mean :3.423 Alto :52
## 3rd Qu.:4.000
## Max. :4.000Muchos días trabajados y poco salario
Agrupar y dar resumen por nombres
rh4 <- rh2%>% group_by(Cluster_Names, GENERO) %>% dplyr::summarize(DIAS.TRABAJADOS=max(DIAS.TRABAJADOS),
SALARIO.DIARIO.IMSS =mean(SALARIO.DIARIO.IMSS),
Count=n())## `summarise()` has grouped output by 'Cluster_Names'. You can override using the
## `.groups` argument.Dar formato de tabla para enseñar la informacion de los clusters.
clusters<-as.data.frame(rh4)
clusters## Cluster_Names GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS Count
## 1 Bajo MASCULINO 730 180.6800 1
## 2 Promedio FEMENINO 161 151.6100 10
## 3 Promedio MASCULINO 169 151.6100 7
## 4 Arriba del prom FEMENINO 251 180.0200 6
## 5 Arriba del prom MASCULINO 88 178.7000 2
## 6 Alto FEMENINO 53 180.8151 37
## 7 Alto MASCULINO 33 180.8133 15Graficar el no. de datos observados por nombre de clusterslets
summary(rh4)## Cluster_Names GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## Bajo :1 Length:7 Min. : 33.0 Min. :151.6
## Promedio :2 Class :character 1st Qu.: 70.5 1st Qu.:165.2
## Arriba del prom:2 Mode :character Median :161.0 Median :180.0
## Alto :2 Mean :212.1 Mean :172.0
## 3rd Qu.:210.0 3rd Qu.:180.7
## Max. :730.0 Max. :180.8
## Count
## Min. : 1.00
## 1st Qu.: 4.00
## Median : 7.00
## Mean :11.14
## 3rd Qu.:12.50
## Max. :37.00ggplot(rh4,aes(x=reorder(Cluster_Names,Count),y=Count,fill=Cluster_Names)) +
geom_bar(stat="identity")
De acuerdo a la clasificación de clusters, la gráfica anterior nos muestra el impacto y conteo de cada cluster dependiendo del grupo de baja analizado, es decir, vemos la relación entre días trabajados y salario diario, clasificando el conteo acorde a la cantidad de bajas obtenidas. En este caso, en la gráfica se muestra que aquellos que trabajaron más de 600 días y menos de 1900 días, obtuvieron un salario promedio de $500 pesos diario. Entra en la categoría de ‘bajo’, ya que sólo una persona obtuvo esta descripción. El promedio de las personas dadas de baja trabajaron más de 1900 días y obtuvieron un salario diario de $170 pesos. En la barra de ‘alto’ vemos a aquellos ex-empleados que trabajaron 421 días y tuvieron un salario diario de $150 pesos. Por último, vemos a aquellos ‘arriba del promedio’ y son aquellos que tabajaron un promedio de 455 días y tuvieron un salario diario de $180 pesos. Este último grupo es el que tuvo mayor conteo de personas, es decir, la mayoría de las bajas estuvieron laborando más de un año en FORM y tenían un salario diario de $180 pesos.
Ver Rangos
Rango de “Días trabajados” por nombre
ggplot(rh4, aes(x=Cluster_Names,y=DIAS.TRABAJADOS,fill= Cluster_Names,label=round(DIAS.TRABAJADOS,digits=2))) +
geom_col() +
geom_text()
La gráfica anterior nos presenta la cantidad de días trabajados de acuerdo a la clasificación explicada anteriormente de ‘bajo’, ‘promedio’, ‘arriba del promedio’ y ‘alto’. Con esto en mente, vemos que el promedio de los empleados juntaron un total de 1966 días trabajados, siguiéndole el grupo de ‘bajo’, los que laboraron un promedio de 628 días, luego ‘arriba del promedio’ que laboró 455 días y finalmente ‘alto’, que únicamente laboró 421 días. En todos los grupos, vemos que los empleados trabajaron por más de 1 año en FORM y ganaban un salario diario mayor a $150 pesos.
Rango de Salario Diario
ggplot(rh4,aes(x=Cluster_Names,y=SALARIO.DIARIO.IMSS,fill= Cluster_Names,label=round(SALARIO.DIARIO.IMSS,digits=2))) +
geom_col() +
geom_text()
La gráfica anterior nos presenta la relación entre el salario diario IMSS y la clasificación explicada anteriormente de ‘bajo’, ‘promedio’, ‘arriba del promedio’ y ‘alto’. Con esto en mente, vemos que el segmento ‘bajo’ es el que tenía un salario más alto que la mayoría. El promedio ganaba un salario diario de $170,79 pesos, ‘arriba del promedio’ ganaba $180,54 pesos y el segmento ‘alto’ gabana un promedio de $151,61 pesos de salario diario. Esto denota una variabilidad alta y podemos suponer que esto se debía de acuerdo a las responsabilidades y puestos analizados.
Dispersion de Dias Trabajados
ggplot(rh2, aes(x=Cluster_Names, y=DIAS.TRABAJADOS, fill=Cluster_Names)) +
geom_boxplot()+
ggtitle("Dispersion of 'Días trabajados' by Clusters Names")
La gráfica anterior explica la dispersión de días trabajados de acuerdo a la clasificación explicada anteriormente de ‘bajo’, ‘promedio’, ‘arriba del promedio’ y ‘alto’. Con esto en mente, vemos que el grupo con mayor dispersión es ‘promedio’, pues hay una variabilidad más significativa en los datos de la cantidad de días trabajados, destacando la media de días trabajados, es decir, 1000 días. En el caso de ‘bajo’, hay una dispersión baja y poco variable. Para ‘arriba del promedio’, vemos que los puntos atípicos se salen del boxplot específico, lo cual quitarlos nos puede dar mayor claridad y visibilidad de la información. Para ‘alto’ se muestra una dispersión menor a ‘promedio’ y al igual que ‘arriba del promedio’, tiene aparición de puntos atípicos.
Dispersion de Salario diario
ggplot(rh2, aes(x=Cluster_Names, y=SALARIO.DIARIO.IMSS, fill=Cluster_Names)) +
geom_boxplot()+
ggtitle("Dispersion of 'Salario_Diario' by Clusters Names")
La gráfica anterior explica la dispersión de salario diario de acuerdo a la clasificación explicada anteriormente de ‘bajo’, ‘promedio’, ‘arriba del promedio’ y ‘alto’. ‘Bajo’ muestra un salario diario de $500 pesos, ‘promedio’ muestra un salario de $180 pesos aprox y puntos atípicos que podrían insinuar un salario menor, ‘arriba del promedio’ también muestra puntos atípicos. Sin embargo, todos se mantienen al igual que el dato anterior entre $170 y $180 pesos de salario diario, Finalmente, ‘alto’ muestra un salario diario abajo del promedio de aprox. $140 pesos.
Cluster 2
Importar Base de Datos
file.choose()
rhCluster2<-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/HR_Bajas 2.csv")
summary(rhCluster2)## NO.DE.BAJAS APELLIDOS NOMBRE FECHA.DE.NACIMIENTO
## Min. : 5.00 Length:78 Length:78 Min. :25585
## 1st Qu.: 49.75 Class :character Class :character 1st Qu.:31751
## Median :167.50 Mode :character Mode :character Median :33797
## Mean :139.60 Mean :33611
## 3rd Qu.:212.75 3rd Qu.:36518
## Max. :238.00 Max. :44632
## EDAD GENERO FECHA.DE.ALTA MOTIVO.DE.BAJA
## Min. : 0.00 Length:78 Min. :43961 Length:78
## 1st Qu.:22.25 Class :character 1st Qu.:44566 Class :character
## Median :30.00 Mode :character Median :44726 Mode :character
## Mean :30.50 Mean :44664
## 3rd Qu.:36.00 3rd Qu.:44759
## Max. :52.00 Max. :44790
## DIAS.TRABAJADOS BAJA PUESTO DEPARTAMENTO
## Min. : 0.00 Min. :44569 Length:78 Length:78
## 1st Qu.: 9.00 1st Qu.:44613 Class :character Class :character
## Median : 19.00 Median :44741 Mode :character Mode :character
## Mean : 45.10 Mean :44709
## 3rd Qu.: 39.75 3rd Qu.:44784
## Max. :730.00 Max. :44814
## NO.SEGURO.SOCIAL SALARIO.DIARIO.IMSS FACTOR.CRED.INFONAVIT
## Length:78 Min. :151.6 Min. : 0.0
## Class :character 1st Qu.:180.7 1st Qu.: 0.0
## Mode :character Median :180.7 Median : 0.0
## Mean :174.3 Mean : 130.4
## 3rd Qu.:180.7 3rd Qu.: 0.0
## Max. :183.7 Max. :2795.3
## NO.CREDITO.INFONAVIT LUGAR.DE.NACIMIENTO CURP CALLE
## Min. :0.000e+00 Length:78 Length:78 Length:78
## 1st Qu.:0.000e+00 Class :character Class :character Class :character
## Median :0.000e+00 Mode :character Mode :character Mode :character
## Mean :1.871e+08
## 3rd Qu.:0.000e+00
## Max. :6.919e+09
## NUMERO.INTERNO COLONIA CODIGO.POSTAL MUNICIPIO
## Length:78 Length:78 Min. :25019 Length:78
## Class :character Class :character 1st Qu.:33604 Class :character
## Mode :character Mode :character Median :33604 Mode :character
## Mean :46508
## 3rd Qu.:66645
## Max. :67450
## ESTADO ESTADO.CIVIL TARJETA.CUENTA
## Length:78 Length:78 Length:78
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
## str(rhCluster2)## 'data.frame': 78 obs. of 26 variables:
## $ NO.DE.BAJAS : int 5 6 7 8 9 11 12 16 19 20 ...
## $ APELLIDOS : chr "BERNAL FLORES" "SAUCEDO GUZMAN" "MEZA LLANAS" "TORRES LARA" ...
## $ NOMBRE : chr "ERIKA ROSALINDA" "GUADALUPE" "YOANA CRISTINA" "CESAR ANTONIO" ...
## $ FECHA.DE.NACIMIENTO : int 33997 28106 34174 33491 26422 36970 32443 37872 37512 36915 ...
## $ EDAD : int 29 46 29 31 50 21 34 19 20 21 ...
## $ GENERO : chr "FEMENINO" "FEMENINO" "FEMENINO" "MASCULINO" ...
## $ FECHA.DE.ALTA : int 44518 44532 44532 44538 44551 44531 44532 44488 44541 44546 ...
## $ MOTIVO.DE.BAJA : chr "RENUNCIA VOLUNTARIA" "BAJA POR FALTAS" "BAJA POR FALTAS" "BAJA POR FALTAS" ...
## $ DIAS.TRABAJADOS : int 51 37 37 31 18 40 39 86 33 28 ...
## $ BAJA : int 44569 44569 44569 44569 44569 44571 44571 44574 44574 44574 ...
## $ PUESTO : chr "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" ...
## $ DEPARTAMENTO : chr "VARIOS" "VARIOS" "VARIOS" "VARIOS" ...
## $ NO.SEGURO.SOCIAL : chr "43109363747" "43937683647" "43099330201" "43099151714" ...
## $ SALARIO.DIARIO.IMSS : num 152 152 152 152 152 ...
## $ FACTOR.CRED.INFONAVIT: num 0 1320 0 0 0 ...
## $ NO.CREDITO.INFONAVIT : num 0.00 1.92e+09 0.00 0.00 0.00 ...
## $ LUGAR.DE.NACIMIENTO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ CURP : chr "BEFE930128MNLRLR05" "SAGG761212MNLCZD08" "MELY930724MNLZLN01" "TOLC910910HNLRRS09" ...
## $ CALLE : chr "JULIAN VILLAGRAN" "PAPAGAYOS" "RIO AMANONAS" "PALMERA" ...
## $ NUMERO.INTERNO : chr "452" "220" "300" "104" ...
## $ COLONIA : chr "REFORMA" "GOLONDRINAS" "PUEBLO NUEVO" "MIRADOR DEL PARQUE" ...
## $ CODIGO.POSTAL : int 66640 66649 66646 67254 67114 66645 66646 66646 66645 66646 ...
## $ MUNICIPIO : chr "APODACA" "APODACA" "APODACA" "JUAREZ" ...
## $ ESTADO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ ESTADO.CIVIL : chr "SOLTERO/A" "SOLTERO/A" "UNION LIBRE" "UNION LIBRE" ...
## $ TARJETA.CUENTA : chr "BANORTE" "BANORTE" "BANORTE" "BANORTE" ...Explorar KMeans en edad por años
humanos5<-rhCluster2
humanos5 <- subset (humanos5, select = -c (NO.DE.BAJAS))
humanos5 <- subset (humanos5, select = -c (APELLIDOS))
humanos5 <- subset (humanos5, select = -c (NOMBRE))
humanos5 <- subset (humanos5, select = -c (FECHA.DE.NACIMIENTO ))
humanos5 <- subset (humanos5, select = -c (GENERO ))
humanos5 <- subset (humanos5, select = -c (FECHA.DE.ALTA ))
humanos5 <- subset (humanos5, select = -c (MOTIVO.DE.BAJA ))
humanos5 <- subset (humanos5, select = -c (NO.CREDITO.INFONAVIT ))
humanos5 <- subset (humanos5, select = -c (BAJA ))
#humanos5 <- subset (humanos5, select = -c (MOTIVO.DE.BAJA ))
humanos5 <- subset (humanos5, select = -c (DEPARTAMENTO ))
humanos5 <- subset (humanos5, select = -c (NO.SEGURO.SOCIAL ))
humanos5 <- subset (humanos5, select = -c (FACTOR.CRED.INFONAVIT ))
humanos5 <- subset (humanos5, select = -c (LUGAR.DE.NACIMIENTO ))
humanos5 <- subset (humanos5, select = -c (CURP ))
humanos5 <- subset (humanos5, select = -c (CALLE ))
humanos5 <- subset (humanos5, select = -c (NUMERO.INTERNO ))
humanos5 <- subset (humanos5, select = -c (COLONIA ))
humanos5 <- subset (humanos5, select = -c (CODIGO.POSTAL ))
humanos5 <- subset (humanos5, select = -c (MUNICIPIO ))
humanos5 <- subset (humanos5, select = -c (ESTADO ))
humanos5 <- subset (humanos5, select = -c (TARJETA.CUENTA ))
#humanos5<-rhCluster2 %>% select(EDAD,DIAS.TRABAJADOS,SALARIO.DIARIO.IMSS)
summary(humanos5)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL
## Length:78
## Class :character
## Mode :character
##
##
## Normalizar los datos
rhCluster_norm<-scale(humanos5[1:2]) Sacar numero de clusters
fviz_nbclust() helps to determine and visualize the optimal number of clusters
fviz_nbclust(rhCluster_norm, kmeans, method="wss")+ # wss method considers total within sum of square
geom_vline(xintercept=4, linetype=2)+ # optimal number of clusters is computed with the default method = "euclidean"
labs(subtitle = "Elbow method")
Ver datos de los clusters
rh_cluster2<-kmeans(rh1_norm,4)
rh_cluster2## K-means clustering with 4 clusters of sizes 1, 17, 8, 52
##
## Cluster means:
## DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## 1 7.5323951 0.5246350
## 2 0.2712304 -1.8780410
## 3 0.6353722 0.4428101
## 4 -0.3312748 0.5357612
##
## Clustering vector:
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
## 2 2 2 2 2 2 2 2 2 2 2 2 4 4 4 4 4 4 4 3 2 4 2 2 2 2
## 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
## 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 3 4 4 3 3 3 1
## 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
## 4 4 3 4 4 4 4 4 4 4 4 4 4 4 4 3 3 4 4 4 4 4 4 4 4 4
##
## Within cluster sum of squares by cluster:
## [1] 0.000000 6.019937 3.270968 1.055662
## (between_SS / total_SS = 93.3 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"Visualizar clustering
fviz_cluster(rh_cluster2,data=rhCluster_norm)
La gráfica anterior muestra 4 clusters que analizan la relación entre edad y días trabajados. El cluster verde muestra que un alto número de personas tabajaba más días que el promedio y tenía una edad similar al promedio. El punto naranja muestra que pocos usuarios trabajaban más días que el promedio y al igual que el punto anterior, tenían una edad promedio. En el caso del punto azul y el morado, ambos muestran que un mayor grupo de personas laboraba ‘2 días’, pero tenía mayor variabilidad en la edad.
Agregar la info al data set original
humanos6<-humanos5
humanos6$Clusters<-rh_cluster2$cluster
summary(humanos6)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL Clusters
## Length:78 Min. :1.000
## Class :character 1st Qu.:3.000
## Mode :character Median :4.000
## Mean :3.423
## 3rd Qu.:4.000
## Max. :4.000Crear Dataset
lets create a dataset so we can identify some characteristics of “Edad” by cluster
humanos7<-humanos6 %>% group_by(Clusters, ESTADO.CIVIL) %>% summarise(EDAD=max(EDAD),DIAS.TRABAJADOS=mean(DIAS.TRABAJADOS)) %>% dplyr::arrange(desc(EDAD))
summary(humanos7)## EDAD DIAS.TRABAJADOS
## Min. :52 Min. :45.1
## 1st Qu.:52 1st Qu.:45.1
## Median :52 Median :45.1
## Mean :52 Mean :45.1
## 3rd Qu.:52 3rd Qu.:45.1
## Max. :52 Max. :45.1Agrupar clusters por nombre
humanos6$Cluster_Names<-factor(humanos6$Clusters,levels = c(1,2,3,4),
labels=c("Joven", "Avanzado ", " Adulto", "Jubilado"))
summary(humanos6)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL Clusters Cluster_Names
## Length:78 Min. :1.000 Joven : 1
## Class :character 1st Qu.:3.000 Avanzado :17
## Mode :character Median :4.000 Adulto : 8
## Mean :3.423 Jubilado :52
## 3rd Qu.:4.000
## Max. :4.000Entre más joven más días trabajados
Agrupar por clusters y resumir columnas
humanos8 <- humanos6 %>% group_by(Cluster_Names, ESTADO.CIVIL) %>% dplyr:: summarize(EDAD=max(EDAD),
DIAS.TRABAJADOS =mean(DIAS.TRABAJADOS),
Count=n())## `summarise()` has grouped output by 'Cluster_Names'. You can override using the
## `.groups` argument.Convertir a tabla
clusters2<-as.data.frame(humanos8)
clusters2## Cluster_Names ESTADO.CIVIL EDAD DIAS.TRABAJADOS Count
## 1 Joven DIVORCIADO/A 32 730.00000 1
## 2 Avanzado CASADO/A 28 155.00000 2
## 3 Avanzado SOLTERO/A 50 76.44444 9
## 4 Avanzado UNION LIBRE 35 31.33333 6
## 5 Adulto CASADO/A 45 142.00000 3
## 6 Adulto DIVORCIADO/A 33 87.00000 1
## 7 Adulto SOLTERO/A 27 67.00000 2
## 8 Adulto UNION LIBRE 32 88.00000 2
## 9 Jubilado CASADO/A 51 16.33333 18
## 10 Jubilado SOLTERO/A 52 15.35000 20
## 11 Jubilado UNION LIBRE 47 12.71429 14Visualizar graficos
Ver los dias trabajados en general junto con la edad
ggplot(humanos8,aes(x=reorder(Cluster_Names,Count),y=Count,fill=Cluster_Names)) +
geom_bar(stat="identity")
La gráfica anterior nos muestra la cantidad de días trabajados de acuerdo a la edad de los empleados. En este caso, vemos que el grupo de edad ‘joven’ tenían aprox. 31 años y representa un bajo porcentaje de los empleados. Para ‘avanzado’ son los empleados que tienen arriba de 32 años y laboraron la mayor cantidad de días (1067). Para ‘jubilado’, son las personas con un aprox. de 50 años y que laboraron durante 102 días. Finalmente, para el grupo de ‘adulto’ (el más elevado), son aquellos que laboraron un promedio de 44 días y tienen la edad de 52 años.
Dias trabajados por nombre de clusters
ggplot(humanos8, aes(x=Cluster_Names,y=DIAS.TRABAJADOS,fill= Cluster_Names,label=round(DIAS.TRABAJADOS,digits=2))) +
geom_col() +
geom_text()
La gráfica anterior nos muestra la cantidad de días trabajados de acuerdo a los días trabajados. En este caso, esto nos muestra que el grupo con mayor bajas fueron del segmento ‘adulto’ y es el que laboró en promedio un menor número de días contra ‘avanzado’ que es el segundo grupo más bajo y laboró el mayor número de días en promedio.
Edad por nombre de clusters
ggplot(humanos8,aes(x=Cluster_Names,y=EDAD,fill= Cluster_Names,label=round(EDAD,digits=2))) +
geom_col() +
geom_text()
La gráfica anterior nos muestra la edad promedio de cada uno de los grupos. Como explicamos anteriormente, se muestra que ‘adulto’ es el de empleados con mayor edad y ‘joven’ es el de personas de menor edad.
Dias trabajados por nombre de clusters
ggplot(humanos6, aes(x=Cluster_Names, y=EDAD, fill=Cluster_Names)) +
geom_boxplot()+
ggtitle("Dispersion of 'Edad' by Clusters Names")
La gráfica anterior nos muestra la dispersión de acuerdo a la edad de los empleados. En el caso de ‘adulto’, tiene una gran cantidad de puntos atípicos lo cual indica que hay datos fuera de serie. En el caso de ‘jubilado’, vemos que es el grupo con mayor dispersión, mostrando datos de edad entre 25 y 32 años.
Salario diario por nombre de clusters
ggplot(humanos6, aes(x=Cluster_Names, y=DIAS.TRABAJADOS, fill=Cluster_Names)) +
geom_boxplot()+
ggtitle("Dispersion of 'Dias_Trabajados' by Clusters Names")
La gráfica anterior muestra la dispersión de acuerdo a días trabajados y los grupos anterior explicados. Vemos que ‘avanzado’ es el gurpo con mayor dispersión, mostrando que el promedio de los empleados laboraron entre 550 y 1300 días. Es el grupo con mayor número de empleados que trabajaron en este periodo de tiempo. En el caso de ‘adulto’ y ‘jubilado’, son aquellos grupos que muestran una dispersión baja y una variedad de puntos atípicos, mientras que ‘joven’ destaca una baja dispersión y una media de más de 500 días trabajados.
Cluster 3
Importar la base de datos
cluster3<-read.csv("/Users/vanessaelizondo/Desktop/Tec/Semestre 7/FORM/Equipo 2.4/Bases de datos/HR_Bajas 2.csv")
summary(cluster3)## NO.DE.BAJAS APELLIDOS NOMBRE FECHA.DE.NACIMIENTO
## Min. : 5.00 Length:78 Length:78 Min. :25585
## 1st Qu.: 49.75 Class :character Class :character 1st Qu.:31751
## Median :167.50 Mode :character Mode :character Median :33797
## Mean :139.60 Mean :33611
## 3rd Qu.:212.75 3rd Qu.:36518
## Max. :238.00 Max. :44632
## EDAD GENERO FECHA.DE.ALTA MOTIVO.DE.BAJA
## Min. : 0.00 Length:78 Min. :43961 Length:78
## 1st Qu.:22.25 Class :character 1st Qu.:44566 Class :character
## Median :30.00 Mode :character Median :44726 Mode :character
## Mean :30.50 Mean :44664
## 3rd Qu.:36.00 3rd Qu.:44759
## Max. :52.00 Max. :44790
## DIAS.TRABAJADOS BAJA PUESTO DEPARTAMENTO
## Min. : 0.00 Min. :44569 Length:78 Length:78
## 1st Qu.: 9.00 1st Qu.:44613 Class :character Class :character
## Median : 19.00 Median :44741 Mode :character Mode :character
## Mean : 45.10 Mean :44709
## 3rd Qu.: 39.75 3rd Qu.:44784
## Max. :730.00 Max. :44814
## NO.SEGURO.SOCIAL SALARIO.DIARIO.IMSS FACTOR.CRED.INFONAVIT
## Length:78 Min. :151.6 Min. : 0.0
## Class :character 1st Qu.:180.7 1st Qu.: 0.0
## Mode :character Median :180.7 Median : 0.0
## Mean :174.3 Mean : 130.4
## 3rd Qu.:180.7 3rd Qu.: 0.0
## Max. :183.7 Max. :2795.3
## NO.CREDITO.INFONAVIT LUGAR.DE.NACIMIENTO CURP CALLE
## Min. :0.000e+00 Length:78 Length:78 Length:78
## 1st Qu.:0.000e+00 Class :character Class :character Class :character
## Median :0.000e+00 Mode :character Mode :character Mode :character
## Mean :1.871e+08
## 3rd Qu.:0.000e+00
## Max. :6.919e+09
## NUMERO.INTERNO COLONIA CODIGO.POSTAL MUNICIPIO
## Length:78 Length:78 Min. :25019 Length:78
## Class :character Class :character 1st Qu.:33604 Class :character
## Mode :character Mode :character Median :33604 Mode :character
## Mean :46508
## 3rd Qu.:66645
## Max. :67450
## ESTADO ESTADO.CIVIL TARJETA.CUENTA
## Length:78 Length:78 Length:78
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
## str(cluster3)## 'data.frame': 78 obs. of 26 variables:
## $ NO.DE.BAJAS : int 5 6 7 8 9 11 12 16 19 20 ...
## $ APELLIDOS : chr "BERNAL FLORES" "SAUCEDO GUZMAN" "MEZA LLANAS" "TORRES LARA" ...
## $ NOMBRE : chr "ERIKA ROSALINDA" "GUADALUPE" "YOANA CRISTINA" "CESAR ANTONIO" ...
## $ FECHA.DE.NACIMIENTO : int 33997 28106 34174 33491 26422 36970 32443 37872 37512 36915 ...
## $ EDAD : int 29 46 29 31 50 21 34 19 20 21 ...
## $ GENERO : chr "FEMENINO" "FEMENINO" "FEMENINO" "MASCULINO" ...
## $ FECHA.DE.ALTA : int 44518 44532 44532 44538 44551 44531 44532 44488 44541 44546 ...
## $ MOTIVO.DE.BAJA : chr "RENUNCIA VOLUNTARIA" "BAJA POR FALTAS" "BAJA POR FALTAS" "BAJA POR FALTAS" ...
## $ DIAS.TRABAJADOS : int 51 37 37 31 18 40 39 86 33 28 ...
## $ BAJA : int 44569 44569 44569 44569 44569 44571 44571 44574 44574 44574 ...
## $ PUESTO : chr "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" "AYUDANTE GENERAL" ...
## $ DEPARTAMENTO : chr "VARIOS" "VARIOS" "VARIOS" "VARIOS" ...
## $ NO.SEGURO.SOCIAL : chr "43109363747" "43937683647" "43099330201" "43099151714" ...
## $ SALARIO.DIARIO.IMSS : num 152 152 152 152 152 ...
## $ FACTOR.CRED.INFONAVIT: num 0 1320 0 0 0 ...
## $ NO.CREDITO.INFONAVIT : num 0.00 1.92e+09 0.00 0.00 0.00 ...
## $ LUGAR.DE.NACIMIENTO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ CURP : chr "BEFE930128MNLRLR05" "SAGG761212MNLCZD08" "MELY930724MNLZLN01" "TOLC910910HNLRRS09" ...
## $ CALLE : chr "JULIAN VILLAGRAN" "PAPAGAYOS" "RIO AMANONAS" "PALMERA" ...
## $ NUMERO.INTERNO : chr "452" "220" "300" "104" ...
## $ COLONIA : chr "REFORMA" "GOLONDRINAS" "PUEBLO NUEVO" "MIRADOR DEL PARQUE" ...
## $ CODIGO.POSTAL : int 66640 66649 66646 67254 67114 66645 66646 66646 66645 66646 ...
## $ MUNICIPIO : chr "APODACA" "APODACA" "APODACA" "JUAREZ" ...
## $ ESTADO : chr "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" "NUEVO LEON" ...
## $ ESTADO.CIVIL : chr "SOLTERO/A" "SOLTERO/A" "UNION LIBRE" "UNION LIBRE" ...
## $ TARJETA.CUENTA : chr "BANORTE" "BANORTE" "BANORTE" "BANORTE" ...Numero de clusters
Juntar los datos relacionados a edad en años
newbd<-cluster3
newbd <- subset (newbd, select = -c (NO.DE.BAJAS))
newbd <- subset (newbd, select = -c (APELLIDOS))
newbd <- subset (newbd, select = -c (NOMBRE))
newbd <- subset (newbd, select = -c (FECHA.DE.NACIMIENTO ))
newbd <- subset (newbd, select = -c (GENERO ))
newbd <- subset (newbd, select = -c (FECHA.DE.ALTA ))
newbd <- subset (newbd, select = -c (MOTIVO.DE.BAJA ))
newbd <- subset (newbd, select = -c (NO.CREDITO.INFONAVIT ))
newbd <- subset (newbd, select = -c (BAJA ))
newbd <- subset (newbd, select = -c (DEPARTAMENTO ))
newbd <- subset (newbd, select = -c (NO.SEGURO.SOCIAL ))
newbd <- subset (newbd, select = -c (FACTOR.CRED.INFONAVIT ))
newbd <- subset (newbd, select = -c (LUGAR.DE.NACIMIENTO ))
newbd <- subset (newbd, select = -c (CURP ))
newbd <- subset (newbd, select = -c (CALLE ))
newbd <- subset (newbd, select = -c (NUMERO.INTERNO ))
newbd <- subset (newbd, select = -c (COLONIA ))
newbd <- subset (newbd, select = -c (CODIGO.POSTAL ))
newbd <- subset (newbd, select = -c (MUNICIPIO ))
newbd <- subset (newbd, select = -c (ESTADO ))
newbd <- subset (newbd, select = -c (TARJETA.CUENTA ))
#newbd<-cluster3 %>% select(EDAD,SALARIO.DIARIO.IMSS,DIAS.TRABAJADOS)
summary(newbd)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL
## Length:78
## Class :character
## Mode :character
##
##
## Normalizar datos
newbdnorm<-scale(newbd[2:1])Grafica para ver numero optimo de clusters
fviz_nbclust(newbdnorm, kmeans, method="wss")+ # wss method considers total within sum of square
geom_vline(xintercept=4, linetype=2)+ # optimal number of clusters is computed with the default method = "euclidean"
labs(subtitle = "Elbow method")
Visualizar informacion
newbd2clus<-kmeans(newbdnorm,4)
newbd2clus## K-means clustering with 4 clusters of sizes 15, 1, 32, 30
##
## Cluster means:
## DIAS.TRABAJADOS EDAD
## 1 -0.05831677 1.5705331
## 2 7.53239507 0.1533058
## 3 -0.13894471 -0.9262228
## 4 -0.07371375 0.1975942
##
## Clustering vector:
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
## 4 1 4 4 1 3 4 3 3 3 4 4 1 3 3 4 3 3 3 3 3 1 4 1 3 3
## 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
## 4 4 1 1 1 3 3 4 4 3 3 4 1 3 3 4 1 3 1 4 4 3 4 4 4 2
## 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
## 4 4 4 3 3 1 3 3 3 4 4 3 4 4 4 1 4 4 1 4 1 3 3 3 3 3
##
## Within cluster sum of squares by cluster:
## [1] 9.488612 0.000000 13.581198 7.715555
## (between_SS / total_SS = 80.0 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"Ver resultados de clusters
fviz_cluster(newbd2clus,data=newbdnorm)
Agregar los resultados al dataset original para interpretacion
newbd3<-newbd
newbd3$Clusters<-newbd2clus$cluster
summary(newbd3)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL Clusters
## Length:78 Min. :1.000
## Class :character 1st Qu.:3.000
## Mode :character Median :3.000
## Mean :2.987
## 3rd Qu.:4.000
## Max. :4.000Crear datasets para ver la info de caracteristicas por edad por clusters
newbd4<-newbd3 %>% group_by(Clusters) %>% summarise(EDAD=max(EDAD),SALARIO.DIARIO.IMSS=mean(SALARIO.DIARIO.IMSS)) %>% dplyr::arrange(desc(EDAD))
summary(newbd4)## EDAD SALARIO.DIARIO.IMSS
## Min. :52 Min. :174.3
## 1st Qu.:52 1st Qu.:174.3
## Median :52 Median :174.3
## Mean :52 Mean :174.3
## 3rd Qu.:52 3rd Qu.:174.3
## Max. :52 Max. :174.3Agrupar clusters por nombre
newbd3$Cluster_Names<-factor(newbd3$Clusters,levels = c(1,2,3,4),
labels=c("Joven", "Avanzado ", " Adulto", "Jubilado"))
summary(newbd3)## EDAD DIAS.TRABAJADOS PUESTO SALARIO.DIARIO.IMSS
## Min. : 0.00 Min. : 0.00 Length:78 Min. :151.6
## 1st Qu.:22.25 1st Qu.: 9.00 Class :character 1st Qu.:180.7
## Median :30.00 Median : 19.00 Mode :character Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## ESTADO.CIVIL Clusters Cluster_Names
## Length:78 Min. :1.000 Joven :15
## Class :character 1st Qu.:3.000 Avanzado : 1
## Mode :character Median :3.000 Adulto :32
## Mean :2.987 Jubilado :30
## 3rd Qu.:4.000
## Max. :4.000Agrupar por nombre y por columna
newbd5 <- newbd3%>% group_by(Cluster_Names) %>% dplyr::summarize(EDAD=max(EDAD),
SALARIO.DIARIO.IMSS =mean(SALARIO.DIARIO.IMSS),
Count=n())Visualizar graficas
Poner como tabla los datos
clusterssalario<-as.data.frame(newbd5)
clusterssalario## Cluster_Names EDAD SALARIO.DIARIO.IMSS Count
## 1 Joven 52 174.9353 15
## 2 Avanzado 32 180.6800 1
## 3 Adulto 26 174.2597 32
## 4 Jubilado 38 173.8970 30Graficar por nombre
ggplot(newbd5,aes(x=reorder(Cluster_Names,Count),y=Count,fill=Cluster_Names)) +
geom_bar(stat="identity")
Salario diario por numero de clusters
ggplot(newbd5, aes(x=Cluster_Names,y=SALARIO.DIARIO.IMSS,fill= Cluster_Names,label=round(SALARIO.DIARIO.IMSS,digits=2))) +
geom_col() +
geom_text()
Aqui nos podemos dar cuenta acerca que los sueldos no varian mucho entre edades pero es importante decir que se denota por centavos una mayoria en el sueldo de los jovenes especificamente más que en otros rangos de edades.
Cluster 4
Identificación de características de clústers seleccionados
Graficar el no. de datos observados por Genero
ggplot(rh4,aes(x=reorder(Cluster_Names,Count),y=Count,fill=GENERO)) +
geom_bar(stat="identity")
Ver los dias trabajados en general junto con la edad y Estado civil
ggplot(humanos8,aes(x=reorder(Cluster_Names,Count),y=Count,fill=ESTADO.CIVIL)) +
geom_bar(stat="identity")
Graficar por nombre
ggplot(newbd5,aes(x=reorder(Cluster_Names,Count),y=Count,fill=SALARIO.DIARIO.IMSS)) +
geom_bar(stat="identity")
Gráfia tipo ggalluvial
Encontrar asociaciones entre las categorías y las variables con los clusters creados
#install.packages("ggplot2")
library(ggplot2)
#install.packages("ggalluvial")
library(ggalluvial)
rh_lluvia<-rh2
summary(rh_lluvia)## EDAD GENERO DIAS.TRABAJADOS SALARIO.DIARIO.IMSS
## Min. : 0.00 Length:78 Min. : 0.00 Min. :151.6
## 1st Qu.:22.25 Class :character 1st Qu.: 9.00 1st Qu.:180.7
## Median :30.00 Mode :character Median : 19.00 Median :180.7
## Mean :30.50 Mean : 45.10 Mean :174.3
## 3rd Qu.:36.00 3rd Qu.: 39.75 3rd Qu.:180.7
## Max. :52.00 Max. :730.00 Max. :183.7
## Clusters Cluster_Names
## Min. :1.000 Bajo : 1
## 1st Qu.:3.000 Promedio :17
## Median :4.000 Arriba del prom: 8
## Mean :3.423 Alto :52
## 3rd Qu.:4.000
## Max. :4.000rh_lluvia<-rh2 %>% filter(Clusters==1 | Clusters==3) %>% arrange(Clusters)
ggplot(as.data.frame(rh_lluvia),
aes(y=SALARIO.DIARIO.IMSS, axis1=EDAD, axis2=DIAS.TRABAJADOS)) +
geom_alluvium(aes(fill=Cluster_Names), width = 1/12) +
geom_stratum(width = 1/12, fill = "black", color = "grey") +
geom_label(stat = "stratum", aes(label = after_stat(stratum))) +
scale_x_discrete(limits = c("Edad", "Días Trabajados"), expand = c(.05, .05)) +
scale_fill_brewer(type = "qual", palette = "Set1") +
ggtitle("FORM Salario Diario por Edad y los Dias Trabajados")
Con esta gráfica lluvial se analizaron tres variables, el salario mínimo, las edades y los días trabajados, estas variables utilizando los clusters names de salarios, por lo que nos deja teniendo dos grupos, aquellos con el menor salario “Bajo” y aquellos que tienen un salario más alto de lo común “Arriba del Prom”. De este modo podemos obtener información acerca del salario diario que los trabajadores de FORM tienen en base de las edades y los días trabajados.
Con la gráfica podemos observar que se tiene un amyor grupo de empleados que tienen un salario “Arriba del prom”, principalmente hay empleadoos de una edad de 32 años con un salario de entre 500 y 1,000 pesos. Una pequeña parte de estos empleados han trabajado 730 días, pero la otra mayoría tienen un promedio de 88 días trabajados. Podemos obervar que en su mayoría los empleados han trabajado 88 días o menos, y que tienen una edad de entre los 20 y 35 años. Todo lo mencionado nos lleva a inferir que en FORM se tiene una alta rotación ya que muy pocos tienen antiguedad en la empresa y en su mayoría no tienen más de 3 o 4 meses.
Insights
1 .El salario diario promedio de FORM es de $180 pesos mexicanos, es decir, $5,400 pesos mensuales. De acuerdo a datos compartidos por la INEGI, se prevé que para 2022 el salario mínimo en México sea de $5,255 pesos mensuales. Esto refleja que el salario mensual de FORM es 2% mayor al salario mínimo del país.
Se destacan tres razones principales de bajas de empleados: bajas por faltas, renuncia voluntaria o término de contrato. En su mayoría, hubo una baja por faltas del puesto de ayudante general y renuncia voluntaria para el mismo puesto.
Hubo un alto número de bajas de empleados que trabajaron más de 200 días, es decir, la mayoría de los ex-empleados estuvieron en FORM más de 1 año y tenían un salario promedio de $180 pesos.
Los sueldos de los empleados no varían mucho dependiendo de la edad. Sin embargo, vemos que hay mayor rotación para el grupo ‘adulto’
Sección 4
Resultados Relevantes y Sugerencias
Meaningful Insights
Información y conclusiones que se lograron obtener a través del análisis de las bases de datos de FORM y la industria automotriz.
Para la empresa de FORM, se espera que exista un crecimiento en los próximos años en lo que es la producción de láminas procesadas, se espera que este tenga un aumento constante, por lo que sería una ventaja competitiva preparar los procesos de láminas desde este año para que en los próximos años que este proceso de laminado aumente no existan tantos errores y perfeccionar el proceso.
Los clientes que tienen mayores pedidos en este caso es HELLA en primer lugar y TRMX en segundo lugar. HELLA es el cliente más significativo con casi el triple de pedidos que el siguiente cliente con mayores pedidos, TRMX. HELLAS teniendo más de 250,000 pedidos, con una fuerte dispersión, ya que muestra que a parte de tener un grande rango de pedidos que varían de entre 5,000 pedidos a 30,000 pedidos, tienen también una dispersión fuerte en dónde han llegado a realizar más de 50,000 pedidos. Por otro lado TRMX, un cliente que tiene un rango de pedidos entre los 5,000 y los 10,000 pedidos, pero tiene una dispersión que muestra que en algún punto de su historial realizaron cero pedidos, esto nos lleva a preguntarnos, a que se debió el que TRMX no haya realizado ningún pedido en algún mes.
El promedio del Salario Diario por el IMSS es de $236 pesos. Se encontró que se tienen tres motivos principales de bajas: faltas, renuncias voluntarias o término de contrato y se tuvieron más bajas de parte del genero femenino. Pudimos darnos cuenta de igual forma que la mayoría de los ex-empleados estuvieron menos de un año trabajando en FORM. Y con el análisis de resaltó que el genero femenino tiene un mayor salario diario total.
Stabilus 1 viene siendo el cliente al cual FORM le dedica más tiempo de producción. También pudimos analizar que los clientes tienen un rango de pedidos entre 50 y 200 pedidos, siendo 150 la moda.
Con la información obtenida de las bases de datos de FORM, podemos ver que Junio es donde mayor merma se genera, esto puede ser debido a que en junio tienen mayor producción. Un dato impactante es que la mayoría de las veces la empresa tiene una merma constante, esta varia pero casi todos los meses cuentan con al rededor de 5 toneladas de merma, y alrededor de 3 toneladas a 4 toneladas de merma cada 4 meses, de acuerdo con las fechas que nos dieron en esta base de datos se analizo que de enero a marzo existió una gran cantidad de merma que llego al rededor de 17 toneladas de merma, por lo tanto se debe de analizar en la empresa que fue lo que sucedió en este lapso de tiempo, podríamos inferir que una de las causas es que algún cliente haya cancelado sus pedidos.
Existe mucho scrap en la etapa de PRE-PRODUCCION, se analizó que es la area que más genera scrap, representando el 85% del total. Para ello se necesita realizar una logística de proceso para eficientizarla y se logre medir la cantidad exacta que se requiere de material para cada pedido y al igual que tener mejor medidas de recortes y suajes para tener el mayor provecho de los materiales.
Las principales causas de bajas de empleados se debe a tres razones. Bajas por faltas, renuncia voluntaria o término de contrato y nos damos cuenta que el puesto con más rotación en la empresa es el de ayudante general. Por lo tanto podemos observar que existe una mala gestión administrativa o que los empleados no están 100% felices por lo tanto no se están esforzando lo suficiente. La principal causa de bajas en la empresa es debido a faltas, En numero de bajas por sexo masculino y femenino las mujeres son las que más faltan generando 53 bajas en total,pero lo importante es que para los hombres también es su mayor es la razón de baja, lo cual es por faltas ya que se han presentado 25 bajas. Tomando en cuenta la lejanía de la planta esto puede ser un factor que esté generando bajas. Estos datos nos permiten ver una gráfica de dispersión que nos arroja que los ex-empleados tienen un tiempo de duración más corto a un año.
Los clientes con mayor Delay son MAHLE Y PRINTEL, al mismo tiempo encontramos que entre estos dos clientes, el que tiene mayor Delay es MAHLE, por lo que sería bueno para la empresa el tener un mayor enfoque, en ambos, pero tambien un poco más en Mahle, para que tenga mejor referencia de este cliente y mayor confianza con la empresa en las entregas
La industria automotriz en México se mantendrá en constante crecimiento en un lapso de 3 años en un futuro. Con un pronóstico de un 95% lo cual es muy óptimo a que suceda. Si se analiza hasta el año 2025, existe un 16% de crecimiento en la industria, por lo que a FORM, le conviene hoy en día continuar con la mano de obra en México y seguir vendiendo a compañías extranjeras. Por la parte de EUA, se espera un crecimiento para el 2025 de un 20% , por lo que nos determinó que la industria automotriz estado unidos se mantiene en constante crecimiento año tras año.
Sugerencias 1. Se tiene una alta diferencia de pedidos entre los clientes en donde existen clientes que piden tres veces más que otro, podría ser interesante analizar a los clientes que les hacen mayor pedidos y realizar estrategias de venta para atraer a clientes con dichas características encontradas. También se ve que se tiene una alta variación entre los pedidos que hacen los clientes mes tras mes, sugiero hacer una investigación y análisis del porque de estos cambios y a que se debe el que en algunos meses se obtenga cero pedidos por los clientes cuando en otros se tienen pedidos altos, de ese modo identificar la variable o causante y encontrar alguna solución o oportunidad a implementar en los procesos operacionales de la empresa.
Crear una mejor cultura organizacional para evitar tanto rotamiento, con los diferentes hallazgos pudimos encontrar que se tiene un alto número de bajas y que no existe antiguedad en la empresa, por lo que la mayoría de los empleados tienen apenas 4 meses en la empresa. Suguiero hacer una investigación de parte de l harea de recursos humanos para conocer como se sienten los empleados trabajando en FORM y que se de una solución en la cual se tenga trabajo en equipo y que los empleados tengan la motivación de seguir trabajando con FORM. Esto puede ser con diferentes gratificaciones, premio y distintivos para destacar los labores que cada uno de ellos aportan y de ese modo incentivar a que cada uno de ellos puede aportar y ser escuchado y notado.
Realizar una estrategia o proceso operacional en el cual se puedan medir las cantidades de pedidos que se producen por mes. Medir la cantidad exacta de scrap y merma que se produce e identificar en que parte exacta del proceso de producción es en donde se genera más para de ese modo crear una estrategia o modificar procesos de cortes o del uso de sus materiales para obtener un mayor rendimento de sus materiales, esto le permitiría a FORM tener menos gastos e incrementar sus ingresos.
Reflexión
¿Qué es Business Analytics?
Es una combinación de habilidades, tecnologías y prácticas para la exploración e investigación del funcionamiento y los procesos empresariales que se han tenido anteriormente por un empresa, para de ese modo obtener información, poder analizar dicha información que se extrae y así impulsar la planificación estratégica empresarial. Business Analytics puede descubrir patrones y predecir tendencias considerando diferentes factores.
Existen diferentes rubros del “Business Analytics”:
Análisis Descriptivo
Análisis de Diagnóstico
Análisis Predictivo
Análisis Prescriptivo
3 objetivos deL uso de la herramienta de Business Analytics
- Determinar qué conjuntos de datos son significantes y útiles para poder analizar y conocer el desempeño de la empresa y cuáles pueden aumentar los ingresos y disminuir los costos.
Ejemplo: productividad y eficencia.
Analizar y transformar los datos en información útil, identificar y anticipar tendencias y resultados. Simplificar información para hacerla más sencilla de entender y visual.
Tomar decisiones empresariales más inteligentes basadas en datos.
Ejemplo: Análisis del comportamiento de los clientes, disminución de costo, evitar mermas, aprovechamiento de tiempos y materiales, eficiencia y eficacia.
¿Qué es Business Inteligence? Es la herramienta que permite a aquellos en el ámbito de los negocios obtener información significativa y relevante histórica, actual, de comportamientos, de externos a la empresa, de internos, y otros. Este se encarga de agrupar los datos que se quieran analizar y crear una base de datos con información valiosa y de este modo transformar la información a hallazgos que se puedan utilizar para encontrar oportunidades de negocio o realizar algún tipo de mejoras o lograr realizar decisiones más asertivas y con menos riesgos. Concretando lo que es Business Intelligence podemos decir que agrupa datos para aprovecharlos y se conviertan en información que ayuda a identificar problemas, riesgos y oportunidades de una empresa.
¿Cuál es la relación entre Business Analytics y Business Intelligence?
BI sirve para evaluar, optimizar y coordinar las operaciones internas de una empresa. Trata de aprovechar todo el potencial de los datos que genera una empresa en todas sus actividades diarias y analizar estos datos para obtener información de valor sobre la toma de decisiones.Ayuda para entender el histórico y el como evolucionan los datos. Y como mencionamos anteriormente Business Analytics con el analisis de la información de una empresa logra puede llegar a desubrir patrones, explicaciones del porque de los mismos y predecir tendencias o hechos que pueden llegar a pasar en el negocio.
Estos dos términos tienen una alta relación entre ellas ya que en pocas palabras la Inteligencia de Negocios es el hacer análisis de los datos obtenidos y Analítica de Negocios es predicción a partir de los datos que se obtuvieron con el análisis. Una con lleva a la otra y trabajan juntas para obtener el resultado buscado de un análisis de datos que contenga la información relevante y significativa que nos pueda mostrar predicciones del comportamiento ya sea de la empresa, de la economía, de los ingresos, de los clientes y más. Ambas son necesarias para extraer un buen análisis de la información de una empresa, ya que una analis dos, los organiza y extra aquellos relevantes y la otra puede lograr las pedicciones y análisis.
¿Qué son los Key Performance Indicators? Los KPIs son son indicadores que miden el desempeño ya sea de una empresa o operaciones en una area en particular. Son métricas que se utilizan para obtener información sobre la eficiencia y productividad de acciones que se llevan a cabo en un empresa y de ese modo poder lograr tomar una decisión más facilmente y con más asertividad. Los KPIs pueden brindar diversas ventajas como obtener información valiosa y útil ya sea de algo que no está funcionando bien en las operaciones de la empresa o de algo en partícular que lo está haciendo crecer y que está funcionando de la manera correcta. También determinar estratgias, tomar decisiones oportunidas y medir resultados de acciones o operaciones de la empresa.
Existen KPIs en el area de ventas, operacional, retail, redes sociales, logística, producción, financiera, marketing, recursos humanos, clientes, entre otros. Y cada una de estas areas pueden llegar a tomar un muy fuerte lugar en la empresa, tener KPIs para cada una de las areas, daría la oportunidad de adquirir información esencial, mejorar en aquello que la empresa está fallando y encontrar areas de oportunidad, así como seguir dedicandole en algo que le ha estado dando buenos frutos. A través de estas herramiendas de medición es posible de encontrar información escondida y muy relevante para la empresa que puede llegar a ser la diferencia de un negocio exitoso.
Propuesta y Descripción de 3 KPIs
KPI Producción: - Como se mencionó anteriormente existe una variedad de areas de KPIs pero en este caso quise darle un mayor enfoque al area de Producción, ya que para nuestro socio formador FORM y el análisis que hemos hecho, podemos darnos cuenta que existen muchas areas de oportunidad para la empresa en esta area. Y con la industria en la que se encuentra FORM, creo que su mayor impacto de productividad e ingresos puede venir de esta area en especifico.
1. Costeo de materiales. Esta métrica es un calculo en el cual se obtiene los costes de cada uno de los materiales, esto le perimite a FORM conocer la evaluación de los precios de adquisición que se tiene en cada uno de sus materiales.
¿Porqué su importancia? y ¿Para qué el KPI? - Es importante tener claro cuales son los precios para anlizar el incremento o descenso de los precios en el area externa de la industria. Conocer la situación actual de la industria en que la empresa se mantiene es muy importante para tener información y poder tomar mejores decisiones, asi como también a nivelar los precios de sus servicios y productos según sea el margen de utilidad que se quiere obtener. - El KPI brindará información sobre los proveedores de FORM, les d¡ayudará a tomar decisiones acerca del inventario que pueden adquirir y establecer los precios para mantener un margen de utilidad. De igual forma para conocer el comportamiento de la industria y en dado caso de tener cambios muy fuertes analizar y evaluar el porque de esos cambgios y estar al tanto de la industria para poder tomar decisiones razonadas y planificadas en caso de ser necesario de tomar acción.
2. Rotación de Inventario. Esta métrica ayuda a conocer la efectividad de los recursos y poder anivelar los costos que se hacen por inventario, de tal FORMA que form pueda crear estrategiias de rotación de inventario para balaner los gastos y asegurar que sus gastos le darán un retorno de inversión lo más pronto posible.
¿Cómo se calcula? y ¿Para qué el KPI? - Se calcula de la siguiente manera: Rotación de inventario = Coste de los Productos Vendidos / Promedio de Inventario. Cuando a través del cálculo se tiene un ratio “bajo” se indica que hay pocas ventas y un inventario muy exesivo, y cuando se tiene un ratio “alto” indica fuertes ventas o inventario insuficiente. - El KPI le permitirá a FORM tener información sobre cuanto inventario se debe de pedir, cuales el promedio de venta que se tine y que material es aquel que tiene mayor utilidad y demanda y cual por lo contrario se tiene en el almancén más tiempo.
3. Ritmo de producción. A través de este KPI se puede tene runa mejor medida de la capcidad que tiene la empresa en términos de producción. Llega a ser muy útil para lanificar pedidos y decidir el volumen de pedidos que tu empresa puede realizar sin llegar al riesgo de quedar mal con los clientes o descubrir que no tienen la capacidad para el volumen de pedidos que aceptaron. O por el contrario darse cuenta que la empresa puede aceptar mayor cantidad de pedidos de los que aceptan, por lo cual esto indicaría un desaprovechamiento de opotunidades.
¿Porqué su importancia? y ¿Para qué el KPI? - Es muy importante tomar en cuenta la capacidad que tiene la empresa para darle el mayor rendimiento y provecho posible a las instalaciones, empleados y materiales que se tienen y para ello es conocer la msima empresa através de medidas e información exacta de la empresa. - Con este KPI FORM tendrá la oportunidad de incrementar su productividad, tener mayores ventas gracias a su capacidad y por ende una mayor utilidad. Por otro lado FORM también tendría la oportunidad de conocer el rendiminto que tienen sus maquinas y evaluar el trabajo que sus empleados están generando.
4. Almacén y Merma. Este indicador se relaciona con el rendimiento que se tiene como empresa y de los materiales, al igual que se puede relacionar con la rotación de inventario. Este indicador nos puede ayuadr a aumentar la y mejorar la planificación de logística.
¿Cómo funciona? y ¿Para qué el KPI? - Existe un porcentaje mundialmente aceptado de obtener mermas según el sector de la empresa, pero según la investigación de BIND ERP (2020) este varia entre el 1% y el 2%. Con esta métrica se lograría obtener datos como el ¿Porqué? principal de las mermas. De donde salen y gracias a que proceso se está generando mayor merma el cual provoca una mayor perdida de utilidad. - Este KPI le permitirá a FORM analizar y conocer el porcentaje que se tiene de merma, en que parte del proceso de producción es en el cual se genera una mayor porción de las mermas y de ese modo crear estregias para mitigar o disminuir ese error o aquello que está generando los grandes volumenes de merma.
CONCLUSIÓN
Con el análisis de las difeerentes bases de datos de nuestro socio formador FORM, hemos logrado obtener información relevante que muchas veces no tenemos en cuenta o no es fácil de captar. A través de este análisis de utilizaron diferentes herramientas, para prinicipalmente limpiar las bases de datos y tener unicamente la información significativa y acomodada de la mejor manera. Después realizamos diferentes gráficos asi como plots, tablas, cruzadas, tablas de frecuencia, gráficos cuantitativos y cualitativos, gráficos de dispersión, entre otros. Y muy interesante con información muy relevante pudimos obtener predicciones y pronósticos a través de la implementación de una regresión lineal para la predicción y la función de “auto.arima” para obtener un pronóstico rápido.
El hacer esta actividad nos empapó del conocimiento sobre la importancia que tienen los datos en un negocio y en cada decisión que se toma. Pudimos obtener información esencial que puede impactar fuertemente al negocio y que puede lograr mejorías o abrir muchas oportunidades de negocio.
Referencias
insightsoftware. (2022, 23 febrero). Ejemplos de los 30 mejores KPI y métricas de producción para la creación de informes en 2021. insightsoftware Spain. Recuperado 21 de octubre de 2022, de https://insightsoftware.com/es/blog/30-manufacturing-kpis-and-metric-examples/
Silva, D. da. (1970, 1 enero). ¿Qué es el Business Intelligence? Zendesk MX. Recuperado 21 de octubre de 2022, de https://www.zendesk.com.mx/blog/bi-business-intelligence-que-es/
Apd, R. (2020, 24 noviembre). Los diferentes tipos de KPIs y su gran impacto en las empresas. APD España. Recuperado 21 de octubre de 2022, de https://www.apd.es/tipos-de-kpis/
What is Business Analytics? Definition and FAQs | HEAVY.AI. (s. f.). Recuperado 21 de octubre de 2022, de https://www.heavy.ai/technical-glossary/business-analytics
RPubs - IntroducciÃ3n a los Modelos de Agrupamiento en R. (2018, 23 junio). Recuperado 21 de octubre de 2022, de https://rpubs.com/rdelgado/399475
LS0tIAp0aXRsZTogPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipFdmlkZW5jaWEgMiBGT1JNKioKYXV0aG9yOiAiVmFuZXNzYSBFbGl6b25kbyBBMDA4Mjc2NzIiCmRhdGU6ICIyMDIyLTEwLTAzIgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0aGVtZTogY29zbW8KICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCi0tLQoKIyA8aW1nIHNyYz0iL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL0ZPUk0ucG5nIi8+CgpgYGB7cn0Ka25pdHI6OmluY2x1ZGVfdXJsKCJodHRwczovL2Zvcm0uY29tLm14LyIpCmBgYAoKIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKjEuIFJlY3Vyc29zIEh1bWFub3MqKgoKIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6b3JhbmdlIj4qKkltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MqKgoKKipPYnNlcnZhY2lvbmVzOioqICpFbiBlbCBhcmVhIGRlIFJlY3Vyc29zIEh1bWFub3MgdmFtb3MgYSBpbXBvcnRhciBkb3MgZGlmZXJlbnRlcyBiYXNlcyBkZSBkYXRvcywgZXN0byBwYXJhIHBvZGVyIGFuYWxpemFyIGxhIGluZm9ybWFjacOzbiBlbiBiYXNlIGEgbG9zIGVtcGxlYWRvcyBxdWUgc2UgaGFuIGRhZG8gZGUgYmFqYSB5IGxvcyBjb2xhYm9yYWRvcmVzL2VtcGxlYWRvcyBhY3R1YWxlcyBkZSBGT1JNLiBQb3IgbG8gcXVlIHVuYSBiYXNlIGRlIGRhdG9zIHNlIGxsYW1hICJyaF9DIiAoQ29sYWJvcmFkb3JlcykgeSBsYSBvdHJhICJyaF9CIiAoQmFqYXMpLioKCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpyaF9DIDwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvaHIuY29sYWJzY3N2IDEuY3N2IikKc3VtbWFyeShyaF9DKQoKcmhfQiA8LXJlYWQuY3N2KCIvVXNlcnMvdmFuZXNzYWVsaXpvbmRvL0Rlc2t0b3AvVGVjL1NlbWVzdHJlIDcvRk9STS9FcXVpcG8gMi40L0Jhc2VzIGRlIGRhdG9zL0hSX0JhamFzIDIuY3N2IikKc3VtbWFyeShyaF9CKQpgYGAKCiMjICoqU2VjY2nDs24gMSoqCgoqTGltcGllemEgdHJhbnNmb3JtYWNpw7NuIHkgb3JnYW5pemFjacOzbiBkZSBiYXNlIGRlIGRhdG9zLioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKk9ic2VydmFjaW9uZXMqKgoKMS4gIENvbW8gcGFydGUgZGUgbGEgbGltcGllemEgZGUgZGF0b3MgZGUgYW1ib3MgZG9jdW1lbnRvcywgc2UgcmVhbGl6YXJvbiBsb3MgcHJvbWVkaW9zIGRlIGxvcyB2YWxvcmVzIGZhbHRhbnRlcyBkZSBmb3JtYSBtYW51YWwgZW4gRXhjZWwuCgoyLiAgQW1iYXMgYmFzZXMgZGUgZGF0b3MgdHV2aWVyb24gcXVlIHNlciBhanVzdGFkYXMgbWFudWFsbWVudGUgZW4gZWwgZXhjZWwgcGFyYSBvcmdhbml6YXIgbGEgaW5mb3JtYWNpw7NuIGRlIHVuYSBtYW5lcmEgbcOhcyBmw6FjaWwgZGUgZW50ZW5kZXIgeSBwYXJhIGFzZWd1cmFybm9zIGRlIHF1ZSBsYXMgdmFyaWFibGVzIG3DoXMgcmVsZXZhbnRlcyBzZWFuIG9ic2VydmFkYXMgZGUgbGEgbWFuZXJhIGFkZWN1YWRhIHBvciBlbCBwcm9ncmFtYSBkZSBSIFN0dWRpby4KCipBIHBhcnRpciBkZSBlc3RhIHBhcnRlIGRlbCBkb2N1bWVudG8sIGVsIGFuw6FsaXNpcyBlc3RhcsOhIGRpdmlkaWRvIGVuIGRvcyBwYXJ0ZXMuIEVuIGxhIHByaW1lcmEgc2UgYW5hbGl6YXLDoSBsYSBiYXNlIGRlIGRhdG9zIGNvbiBsYSBpbmZvcm1hY2nDs24gZGUgbG9zIGNvbGFib3JhZG9yZXMgYWN0dWFsZXMgZGUgbGEgZW1wcmVzYSwgbWllbnRyYXMgcXVlIGVuIGxhIHNlZ3VuZGEgc2UgYW5hbGl6YXLDoW4gbG9zIGRhdG9zIGRlIGFxdWVsbG9zIGVtcGxlYWRvcyBxdWUgeWEgZnVlcm9uIGJhamFzIHBvciBtb3Rpdm9zIGRlIGRlc3BpZG8sIHJlbnVuY2lhIHZvbHVudGFyaWEsIGVudHJlIG90cm9zLioKCiMjIyAqRGVzY2FyZ2FyIGxpYnJlcsOtYXMgeSBwYXF1ZXRlcyoKCmBgYHtyfQojbGlicmFyeShmb3JlaWduKQojbGlicmFyeShkcGx5cikgICAgICAgICMgZGF0YSBtYW5pcHVsYXRpb24gCiNsaWJyYXJ5KGZvcmNhdHMpICAgICAgIyB0byB3b3JrIHdpdGggY2F0ZWdvcmljYWwgdmFyaWFibGVzCiNsaWJyYXJ5KGdncGxvdDIpICAgICAgIyBkYXRhIHZpc3VhbGl6YXRpb24KI2xpYnJhcnkocmVhZHIpICAgICAgICAjIHJlYWQgc3BlY2lmaWMgY3N2IGZpbGVzCiNsaWJyYXJ5KGphbml0b3IpICAgICAgIyBkYXRhIGV4cGxvcmF0aW9uIGFuZCBjbGVhbmluZyAKI2xpYnJhcnkoSG1pc2MpICAgICAgICAjIHNldmVyYWwgdXNlZnVsIGZ1bmN0aW9ucyBmb3IgZGF0YSBhbmFseXNpcyAKI2xpYnJhcnkocHN5Y2gpICAgICAgICAjIGZ1bmN0aW9ucyBmb3IgbXVsdGl2YXJpYXRlIGFuYWx5c2lzIAojbGlicmFyeShuYW5pYXIpICAgICAgICMgc3VtbWFyaWVzIGFuZCB2aXN1YWxpemF0aW9uIG9mIG1pc3NpbmcgdmFsdWVzIE5BcwojbGlicmFyeShkbG9va3IpICAgICAgICMgc3VtbWFyaWVzIGFuZCB2aXN1YWxpemF0aW9uIG9mIG1pc3NpbmcgdmFsdWVzIE5BcwojbGlicmFyeShjb3JycGxvdCkgICAgICMgY29ycmVsYXRpb24gcGxvdHMKI2xpYnJhcnkoanRvb2xzKSAgICAgICAjIHByZXNlbnRhdGlvbiBvZiByZWdyZXNzaW9uIGFuYWx5c2lzIAojbGlicmFyeShsbXRlc3QpICAgICAgICMgZGlhZ25vc3RpYyBjaGVja3MgLSBsaW5lYXIgcmVncmVzc2lvbiBhbmFseXNpcyAKI2xpYnJhcnkoY2FyKSAgICAgICAgICAjIGRpYWdub3N0aWMgY2hlY2tzIC0gbGluZWFyIHJlZ3Jlc3Npb24gYW5hbHlzaXMKI2xpYnJhcnkob2xzcnIpICAgICAgICAjIGRpYWdub3N0aWMgY2hlY2tzIC0gbGluZWFyIHJlZ3Jlc3Npb24gYW5hbHlzaXMgCiNsaWJyYXJ5KGthYmxlRXh0cmEpICAgIyBIVE1MIHRhYmxlIGF0dHJpYnV0ZXMKI2xpYnJhcnkoZ21vZGVscykKI2xpYnJhcnkob3Blbnhsc3gpCiNsaWJyYXJ5KGNyb3NzdGFibGUpCmBgYAoKIyMgKkJhc2UgZGUgZGF0b3M6IENPTEFCT1JBRE9SRVMgZGUgUkgqCgojIyMjICpDdWFudGFzIHZhcmlhYmxlcyB5IHJlZ2lzdHJvcyBoYXkqCgpgYGB7cn0Kc3RyKHJoX0MpCmBgYAoKKkNvbnRhbW9zIGNvbiAyNiB2YXJpYWJsZXMgeSAxMTMgb2JzZXJldmFjaW9uZXMuKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipUw6ljbmljYXMgZGUgTGltcGllemEqKgoKIyMjIyAqKlTDqWNuaWNhIDE6IGVsaW1pbmFyIE5BcyoqCgoqUGFyYSBldml0YXIgcXVlIGxhIGJhc2UgZGUgZGF0b3Mgbm9zIGV4dHJhaWdhIGluZm9ybWFjacOzbiBvICJpbmlzZ2h0cyIgZXJyb25lb3MsIGVsaW1pbmFtb3MgbG9zIE5BcyB5IGRlIGVzZSBtb2RvIHRlbmVyIHVuIGFuw6FsaXNpcyBtw6FzIGFzZXJ0aXZvIHkgZGUgdmFsb3IuKgoKYGBge3J9CnN1bShpcy5uYShyaF9DKSkKYGBgCgojIyMjICoqVMOpY25pY2EgMjogRWxpbWluYXIgZHVwbGljYWRvcyoqCgoqRXN0w6EgdGVjbmljYSBub3MgcGVybWl0ZSBhc2VndXJhcm5vcyBkZSBxdWUgbGEgaW5mb3JtYWNpw7NuIHF1ZSBzZSB0aWVuZSBlc3RlIGNvcnJlY3RhIHkgb3JnYW5pemFkYS4qCgpgYGB7cn0KcmhfQzE8LXJoX0MKI3JoX0MxPC1kaXN0aW5jdChyaF9DMSkKYGBgCgojIyMjICoqVMOpY25pY2EgMzogZWxpbWluYXIgcmVuZ2xvbmVzKioKCipTZSBhcGxpY8OzIGVzdMOhIHTDqWNuaWNhIGRlIGxpbXBpZXphIHBhcmEgZGVzaGFjZXJub3MgZGUgaW5mb3JtYWNpw7NuIHF1ZSBub3MgaW1waWRlIGNvbmNuZXRyYXJub3MgZW4gYXF1ZWxsbyBxdWUgdGllbmUgbWF5b3IgcmVsZXZhbmNpYS4qCgpgYGB7cn0KcmhfQzI8LXJoX0MxCnJoX0MyIDwtIHN1YnNldChyaF9DMiwgc2VsZWN0ID0tYyAoTk9NQlJFKSkKcmhfQzIgPC0gc3Vic2V0KHJoX0MyLCBzZWxlY3QgPS1jIChBUEVMTElET1MpKQpyaF9DMiA8LSBzdWJzZXQocmhfQzIsIHNlbGVjdCA9LWMgKFJGQykpCnJoX0MyIDwtIHN1YnNldChyaF9DMiwgc2VsZWN0ID0tYyAoQ1VBUlRPLk1FUykpCnJoX0MyIDwtIHN1YnNldChyaF9DMiwgc2VsZWN0ID0tYyAoRkFDVE9SLkNSRUQuSU5GT05BVklUKSkKcmhfQzIgPC0gc3Vic2V0KHJoX0MyLCBzZWxlY3QgPS1jIChDVVJQKSkKcmhfQzIgPC0gc3Vic2V0KHJoX0MyLCBzZWxlY3QgPS1jIChDQUxMRSkpCnJoX0MyIDwtIHN1YnNldChyaF9DMiwgc2VsZWN0ID0tYyAoTlVNRVJPLklOVEVSTk8pKQpyaF9DMiA8LSBzdWJzZXQocmhfQzIsIHNlbGVjdCA9LWMgKFRBUkpFVEEuQ1VFTlRBKSkKc3VtbWFyeShyaF9DMikKYGBgCgoqQ29uIGVsIHJlc3VtZW4gYW50ZXJpb3IgcG9kZW1vcyBvYnNlcnZhciBxdWUgc2UgZWxpbWluYXJvbiB0b2RvcyBhcXVlbGxhcyB2YXJpYWJsZXMgcXVlIHNlIHZpZXJvbiBubyB0YW4gc2lnbmlmaWNhdGl2YXMsIGVzdG8gcGFyYSBsb2dyYXIgdW4gYW7DoWxpc2lzIG3DoXMgcHJlY2lzbyB5IHJlYWxtZW50ZSBvYnRlbmVyIHVuIGFuw6FsaXNpcyBlIGluZm9ybWFjacOzbiBpbnRlcmVzYW50ZSB5IG51ZXZhIGRlIGxvcyBkYXRvcyBxdWUgZXN0w6EgZW4gbnVlc3RybyBpbnRlcsOpcyB5IGNvbiBsYXMgY3VhbGVzIHBvZGVtb3MgY3JlYXIgeWEgc2VhIHNvbHVjaW9uZXMgbyBlbmNvbnRyYXIgb3BvcnR1bmlkYWRlcy4qCgojIyMgKklkZW50aWZpY2FyIHZhcmlhYmxlcyByaF9DIHkgcmhfQioKCioqQ3VhbnRpdGF0aXZhOioqIERpc2NyZXRhLCBDb250aW51YSAqKkVzY2FsYSBkZSBtZWRpY2nDs246KipJbnRlcnZhbG8sIFJhesOzbiAqKkN1YWxpdGF0aXZhKiogKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqIE5vbWluYWxlcywgT3JkaW5hbGVzCgpgYGB7cn0KCnZhcmlhYmxlcyA8LSBjKAogICJOby4uRGUuRW1wbGVhZG8iLAogICJBUEVMTElET1MiLAogICJOT01CUkUiLAogICJGRUNIQS5ERS5OQUNJTUlFTlRPIiwKICAiRURBRCIsCiAgIkdFTkVSTyIsCiAgIlJGQyIsCiAgIkZFQ0hBLkRFLkFMVEEiLAogICJQUklNRVIuTUVTIiwKICAiQ1VBUlRPLk1FUyIsCiAgIkJBSkEiLAogICJQVUVTVE8iLAogICJERVBBUlRBTUVOVE8iLAogICJTQUxBUklPLkRJQVJJTy5JTVNTIiwKICAiRkFDVE9SLkNSRUQuSU5GT05BVklUIiwKICAiTi4uQ1JFRElUTy5JTkZPTkFWSVQiLAogICJMVUdBUi5ERS5OQUNJTUlFTlRPIiwKICAiQ1VSUCIsCiAgIkNBTExFIiwKICAiTlVNRVJPLklOVEVSTk8iLAogICJDT0xPTklBIiwKICAiTVVOSUNJUElPIiwKICAiRVNUQURPIiwKICAiQ09ESUdPLlBPU1RBTCIsCiAgIkVTVEFETy5DSVZJTCIsCiAgIlRBUkpFVEEuQ1VFTlRBIgogICkKCnRpcG9zIDwtIGMoCiAgICAgICAgICAgICAgIkN1YW50aXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YW50aXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbnRpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbnRpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIgogICAgICAgICAgICAgICkKCmVzY2FsYXMgPC0gYygKICAgICAgICAgICAgIkludGVydmFsbyIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICAiSW50ZXJ2YWxvIiwKICAgICAgICAgICAgIkludGVydmFsbyIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJSYXrDs24iLAogICAgICAgICAgICAiUmF6w7NuIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJPcmRpbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiUmF6w7NuIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJPcmRpbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIKICAgICAgICAgICAgKQoKdGFibGVfcmhDIDwtIGRhdGEuZnJhbWUgKHZhcmlhYmxlcywgdGlwb3MsIGVzY2FsYXMpCmtuaXRyOjprYWJsZSh0YWJsZV9yaEMpCgpgYGAKCiMjICoqU2VjY2nDs24gMi4xIENvbGFib3JhZG9yZXMqKgoKKkFuw6FsaXNpcyBFeHBsb3JhdG9yaW8gZGUgbGFzIEJhc2VzIGRlIERhdG9zKgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJwc3ljaCIpCmxpYnJhcnkoSG1pc2MpCmRlc2NyaWJlKHJoX0MyKQpsaWJyYXJ5KHRpZHlyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGphbml0b3IpCmxpYnJhcnkocHN5Y2gpCgojY291bnQocmhfQzIsIEdFTkVSTywgc29ydCA9IFRSVUUpCiNjb3VudChyaF9DMiwgUFVFU1RPLCBzb3J0ID0gVFJVRSkKI2NvdW50KHJoX0MyLCBERVBBUlRBTUVOVE8sIHNvcnQgPSBUUlVFKQojY291bnQocmhfQzIsIFNBTEFSSU8uRElBUklPLklNU1MsIHNvcnQgPSBUUlVFKQojY291bnQocmhfQzIsIExVR0FSLkRFLk5BQ0lNSUVOVE8sIHNvcnQgPSBUUlVFKQoKI2luc3RhbGwucGFja2FnZXMoInRpYmJsZSIpCnRpYmJsZShyaF9DMikKYGBgCgpFbiBlc3RhIHByaW1lcmEgcGFydGUgZGVsIGFuw6FsaXNpcyBlc3RhZMOtc3RpY28gZGVzY3JpcHRpdm8sIHZlbW9zIHF1ZSBlbCBjb250ZW8gdG90YWwgZGUgZW1wbGVhZG9zIGFjdHVhbGVzIGVzIGRlIDExMyB5IGhheSB1biBtYXlvciBuw7ptZXJvIGRlIG11amVyZXMgKDU0JSkgY29udHJhIGVtcGxlYWRvcyBxdWUgc29uIGhvbWJyZXMgKDQ2JSkuCgpFbiBjdWFudG8gYSBsb3MgcHVlc3RvcywgdmVtb3MgcXVlIGV4aXN0ZSB1bmEgZ3JhbiBjYW50aWRhZCBkZSBheXVkYW50ZXMgZ2VuZXJhbGVzLCBwdWVzIGVzIGVsIHB1ZXN0byBxdWUgb2N1cGEgbWF5b3IgY2FwaXRhbCBodW1hbm8sIGNvbnRyYSBhcXVlbGxvcyBxdWUgb2N1cGFuIG1lbm9zIHF1ZSB2YW4gZGVzZGUgc2VydmljaW8gYWwgY2xpZW50ZSBoYXN0YSBvcGVyYWRvcmVzLgoKRW50cmUgbG9zIGRlcGFydGFtZW50b3MgY29uIG1heW9yIGNhbnRpZGFkIGRlIGVtcGxlYWRvcywgdmVtb3MgcXVlIGVzdMOhIHZhcmlvcyB5IHByb2R1Y2Npw7NuIHJldG9ybi4gRWwgZGVwYXJ0YW1lbnRvIGRlICJWYXJpb3MiIGZ1ZSBjcmVhZG8gcGFyYSBjYXRhbG9nYXIgYSBhcXVlbGxvcyBlbXBsZWFkb3MgcXVlIGVuIGxhIGJhc2UgZGUgZGF0b3Mgbm8gdGVuw61hbiBkZWZpbmlkYSB1biDDoXJlYSBlbiBjb25jcmV0by4KClZlbW9zIHF1ZSBsYSBtYXlvcsOtYSBkZSBsb3MgZW1wbGVhZG9zIGdhbmFuIFwkMTgwLjY4IHBlc29zIGRlIHNhbGFyaW8gZGlhcmlvIHBvciBlbCBJTVNTIHkgZGUgdG9kb3MgbG9zIGVtcGxlYWRvcywgc2UgY2FsY3VsYSBxdWUgdGllbmVuIHVuIHByb21lZGlvIGRlIHNhbGFyaW8gZGlhcmlvIGRlIFwkMjM2LjYyIHBlc29zLgoKRW4gY3VhbnRvIGFsIGx1Z2FyIGRlIG9yaWdlbiwgdmVtb3MgcXVlIGxhIG1heW9yw61hIGRlIGxvcyBlbXBsZWFkb3MgcHJvdmllbmVuIGRlbCBFc3RhZG8gZGUgTnVldm8gTGXDs24gKDcwJSkgeSBWZXJhY3J1eiAoMTElKSwgdmllbmRvIHF1ZSBlbCAxOSUgcmVzdGFudGUgZGUgbG9zIGVtcGxlYWRvcyBzb24gcHJvdmVuaWVudGVzIGRlIFpvbmEgQ2VudHJvIG8gZXN0YWRvcyBjb2xpZGFudGVzIGRlIE51ZXZvIExlw7NuLgoKIyMjICpUYWJsYSBkZSBNZWRpYSwgTW9kYSB5IE1lZGlhbmEqCgpgYGB7cn0KdGFibGVfcmhDMjwtZGVzY3JpYmUocmhfQzIpCmtuaXRyOjprYWJsZSh0YWJsZV9yaEMyKQpgYGAKCiMjICoqR3LDoWZpY29zKioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKlRhYmxhIGRlIEZyZWN1ZW5jaWEqKgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCdlcGlEaXNwbGF5JykKI2xpYnJhcnkoZXBpRGlzcGxheSkKCiN0YWIxKHJoX0MyJEdFTkVSTywgcmhfQzIkU0FMQVJJTy5ESUFSSU8uSU1TUywgc29ydC5ncm91cCA9ICJkZWNyZWFzaW5nIiwgY3VtLnBlcmNlbnQgPSBUUlVFKQoKYGBgCgo8aW1nIHNyYz0iL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1NjcmVlbiBTaG90IDIwMjItMTAtMjEgYXQgMTYuMjQuMDYucG5nIi8+CgoqRXN0YSB0YWJsYSBkZSBmcmVjdWVuY2lhIHJlcHJlc2VudGEgZWwgdmFsb3IgZGVjaW1hbCBkZWwgc2FsYXJpbyBkaWFyaW8gZGUgYWN1ZXJkbyBhbCBnw6luZXJvLCBlcyBkZWNpciwgbGEgY2FudGlkYWQgZGUgZW1wbGVhZG9zIGVuIHZhbG9yIGRlY2ltYWwgcXVlIHJlY2liZW4gY2llcnRvIHNhbGFyaW8gZGlhcmlvIGRlIGFjdWVyZG8gYSBzdSBnw6luZXJvLiBMYSBncsOhZmljYSBub3MgbXVlc3RyYSBxdWUgRk9STSB0aWVuZSB1biBtYXlvciBudW1lcm8gZGUgZW1wbGVhZG9zIGRlIGdlbmVybyBmZW1lbmlubyBlc3RlIGVzdMOhIHJlcHJlc2VudGFkbyBwb3IgNjEgZW1wbGVhZGFzIHkgZGVsIGdlbmVybyBtYXNjdWxpbm8gNTIgZWFtcGxlYWRvcy4gVGFtYmnDqW4gcG9kZW1vcyBvYnNydmFyIHF1ZSBlbCBnZW5lcm8gZmVtZW5pbm8gdGllbmUgdGllbmUgdW4gdmFsb3IgZGUgc2FsYXJpbyBtYXlvciBhIHF1ZSBlbCBnZW5lcm8gbWFzY3VsaW5vLioKCiMjICpCYXNlIGRlIGRhdG9zOiBCQUpBUyBkZSBSSCoKCiMjIyMgKkN1YW50YXMgdmFyaWFibGVzIHkgcmVnaXN0cm9zIGhheSoKCmBgYHtyfQpzdHIocmhfQikKYGBgCgoqU2UgdGllbmUgMjYgdmFyaWFibGVzIHkgNzggb2JzZXJ2YWNpb25lcy4qCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6b3JhbmdlIj4qKlTDqWNuaWNhcyBkZSBMaW1waWV6YSoqCgojIyMjICoqVMOpY25pY2EgMTogZWxpbWluYXIgTkFzKioKCiMjIyMjIMK/Q3XDoW50b3MgTkEncyB0ZW5nbyBlbiBsYSBiYXNlIGRlIGRhdG9zPwoKYGBge3J9CnN1bShpcy5uYShyaF9CKSkKYGBgCgojIyMjIyBCb3JyYXIgdG9kb3MgbG9zIHJlZ2lzdHJvcyBOQSdzIGRlIHVuYSB0YWJsYQoKYGBge3J9CnJoX0IxPC1yaF9CCnJoX0IxPC1uYS5vbWl0KHJoX0IxKQpzdW1tYXJ5KHJoX0IxKQpgYGAKCiMjIyMgKipUw6ljbmljYSAyOiBlbGltaW5hciBjb2x1bW5hcyoqCgpgYGB7cn0KcmhfQjI8LXJoX0IxCnJoX0IyIDwtIHN1YnNldChyaF9CMiwgc2VsZWN0ID0tYyAoQVBFTExJRE9TKSkKcmhfQjIgPC0gc3Vic2V0KHJoX0IyLCBzZWxlY3QgPS1jIChOT01CUkUpKQpyaF9CMiA8LSBzdWJzZXQocmhfQjIsIHNlbGVjdCA9LWMgKEZBQ1RPUi5DUkVELklORk9OQVZJVCkpCnJoX0IyIDwtIHN1YnNldChyaF9CMiwgc2VsZWN0ID0tYyAoQ1VSUCkpCnJoX0IyIDwtIHN1YnNldChyaF9CMiwgc2VsZWN0ID0tYyAoQ0FMTEUpKQpyaF9CMiA8LSBzdWJzZXQocmhfQjIsIHNlbGVjdCA9LWMgKE5VTUVSTy5JTlRFUk5PKSkKcmhfQjIgPC0gc3Vic2V0KHJoX0IyLCBzZWxlY3QgPS1jIChUQVJKRVRBLkNVRU5UQSkpCiNzdW1tYXJ5KHJoX0IyKQpgYGAKCiMjIyAqSWRlbnRpZmljYXIgdmFyaWFibGVzIHJoQyB5IHJjQioKCioqQ3VhbnRpdGF0aXZhOioqIERpc2NyZXRhLCBDb250aW51YQoKKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqSW50ZXJ2YWxvLCBSYXrDs24KCioqQ3VhbGl0YXRpdmEqKgoKKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqIE5vbWluYWxlcywgT3JkaW5hbGVzCgpgYGB7cn0KCnZhcmlhYmxlcyA8LSBjKAogICJOby4uRGUuRW1wbGVhZG8iLAogICJBUEVMTElET1MiLAogICJOT01CUkUiLAogICJGRUNIQS5ERS5OQUNJTUlFTlRPIiwKICAiRURBRCIsCiAgIkdFTkVSTyIsCiAgIlJGQyIsCiAgIkZFQ0hBLkRFLkFMVEEiLAogICJQUklNRVIuTUVTIiwKICAiQ1VBUlRPLk1FUyIsCiAgIkJBSkEiLAogICJQVUVTVE8iLAogICJERVBBUlRBTUVOVE8iLAogICJTQUxBUklPLkRJQVJJTy5JTVNTIiwKICAiRkFDVE9SLkNSRUQuSU5GT05BVklUIiwKICAiTi4uQ1JFRElUTy5JTkZPTkFWSVQiLAogICJMVUdBUi5ERS5OQUNJTUlFTlRPIiwKICAiQ1VSUCIsCiAgIkNBTExFIiwKICAiTlVNRVJPLklOVEVSTk8iLAogICJDT0xPTklBIiwKICAiTVVOSUNJUElPIiwKICAiRVNUQURPIiwKICAiQ09ESUdPLlBPU1RBTCIsCiAgIkVTVEFETy5DSVZJTCIsCiAgIlRBUkpFVEEuQ1VFTlRBIgogICkKCnRpcG9zIDwtIGMoCiAgICAgICAgICAgICAgIkN1YW50aXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YW50aXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbnRpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbnRpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIiwKICAgICAgICAgICAgICAiQ3VhbGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFudGl0YXRpdm8iLAogICAgICAgICAgICAgICJDdWFsaXRhdGl2byIsCiAgICAgICAgICAgICAgIkN1YWxpdGF0aXZvIgogICAgICAgICAgICAgICkKCmVzY2FsYXMgPC0gYygKICAgICAgICAgICAgIkludGVydmFsbyIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICAiSW50ZXJ2YWxvIiwKICAgICAgICAgICAgIkludGVydmFsbyIsCiAgICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJSYXrDs24iLAogICAgICAgICAgICAiUmF6w7NuIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJPcmRpbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiUmF6w7NuIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIlJhesOzbiIsCiAgICAgICAgICAgICJOb21pbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIsCiAgICAgICAgICAgICJPcmRpbmFsIiwKICAgICAgICAgICAgIk5vbWluYWwiLAogICAgICAgICAgICAiTm9taW5hbCIKICAgICAgICAgICAgKQoKdGFibGVfcmhCIDwtIGRhdGEuZnJhbWUgKHZhcmlhYmxlcywgdGlwb3MsIGVzY2FsYXMpCmtuaXRyOjprYWJsZSh0YWJsZV9yaEIpCgpgYGAKCiMjICoqU2VjY2nDs24gMi4xIEJhamFzKioKCipBbsOhbGlzaXMgRXhwbG9yYXRvcmlvIGRlIGxhcyBCYXNlcyBkZSBEYXRvcyoKCiMjICoqR3LDoWZpY29zKioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKlRhYmxhIENydXphZGEgMSoqCgpgYGB7cn0KdGFibGUocmhfQjIkUFVFU1RPLCByaF9CMiRNT1RJVk8uREUuQkFKQSkKYGBgCgpFbiBsYSB0YWJsYSB2ZW1vcyBxdWUgc2UgZGVzdGFjYW4gdHJlcyByYXpvbmVzIHByaW5jaXBhbGVzIGRlIGJhamFzIGRlIGVtcGxlYWRvcywgbGFzIGN1YWxlcyBzb246IGJhamFzIHBvciBmYWx0YXMsIHJlbnVuY2lhIHZvbHVudGFyaWEgbyB0w6lybWlubyBkZSBjb250cmF0by4gRW4gc3UgbWF5b3LDrWEsIGh1Ym8gdW5hIGJhamEgcG9yIGZhbHRhcyBkZWwgcHVlc3RvIGRlIGF5dWRhbnRlIGdlbmVyYWwgeSByZW51bmNpYSB2b2x1bnRhcmlhIHBhcmEgZWwgbWlzbW8gcHVlc3RvLiBBbCBpZ3VhbCBxdWUgZW4gbGEgYmFzZSBkZSBkYXRvcyBhbnRlcmlvciwgdmVtb3MgcXVlIGVsIHB1ZXN0byBjb24gbWF5b3Igcm90YWNpw7NuIGEgbml2ZWwgaGlzdMOzcmljbyBlcyBkZSBheXVkYW50ZSBnZW5lcmFsLiBFc3RvIHN1Z2llcmUgcXVlIGV4aXN0ZSB1biBhbHRvIG7Dum1lcm8gZGUgY29udHJhdGFjaW9uZXMgcGFyYSBlbCBwdWVzdG8gZGViaWRvIGEgdW5hIG1hbGEgZ2VzdGnDs24gYWRtaW5pc3RyYXRpdmEgbyBiYWpvIHJlbmRpbWllbnRvIGRlIGxvcyBlbXBsZWFkb3MuCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipUYWJsYSBDcnV6YWRhIDIqKgoKYGBge3J9Cgp0YWJsZShyaF9CMiRHRU5FUk8sIHJoX0IyJE1PVElWTy5ERS5CQUpBKQpgYGAKCkxhIHRhYmxhIGNydXphZGEgYW50ZXJpb3Igbm9zIG11ZXN0cmEgbGEgcmVsYWNpw7NuIGVudHJlIGxvcyBtb3Rpdm9zIGRlIGJhamEgY29udHJhIGVsIGfDqW5lcm8sIGVzIGRlY2lyLCBsYXMgcHJpbmNpcGFsZXMgcmF6b25lcyBkZSBiYWphIGRlIGFjdWVyZG8gYWwgZ8OpbmVybyBkZSBjYWRhIGVtcGxlYWRvLiBWZW1vcyBxdWUgaHVibyB1biB0b3RhbCBkZSA1MyBiYWphcyBkZWwgZ8OpbmVybyBmZW1lbmlubywgZGVzdGFjYW5kbyBsYXMgYmFqYXMgcG9yIGZhbHRhcyAocmVwcmVzZW50YSB1biA3NSUgZGUgbGFzIGJhamFzIGZlbWVuaW5hcykuIFBhcmEgZWwgZ8OpbmVybyBtYXNjdWxpbm8sIGh1Ym8gdW4gdG90YWwgZGUgMjUgZmFsdGFzLCBkZXN0YWNhbmRvIHByaW5jaXBhbG1lbnRlIGxhcyBiYWphcyBwb3IgZmFsdGFzIChyZXByZXNlbnRhIHVuIDYwJSBkZSBsYXMgYmFqYXMgbWFzY3VsaW5hcykuCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipHcsOhZmljYSBjdWFsaXRhdGl2YSAxKioKCmBgYHtyfQojIFBpZSBjaGFydDogUmVwcmVzZW50YWNpw7NuIGRlIGJhamFzIGFjb3JkZSBhbCBlc3RhZG8gZGUgcmVzaWRlbmNpYQpwaWUodGFibGUocmhfQjIkRVNUQURPKSwgY29sPWMoIm9yYW5nZSIsImNvcmFsMSIpLAogICAgbWFpbj0iUmVwcmVzZW50YWNpw7NuIGRlIGJhamFzIGFjb3JkZSBhbCBlc3RhZG8gZGUgcmVzaWRlbmNpYSIpCgpgYGAKCkxhIGdyw6FmaWNhIGFudGVyaW9yIG5vcyBtdWVzdHJhIHF1ZSBoYXkgdW4gbWF5b3IgbsO6bWVybyBkZSBleC1lbXBsZWFkb3MgcXVlIHZpdmVuIGVuIGVsIEVzdGFkbyBkZSBOdWV2byBMZcOzbi4gU2luIGVtYmFyZ28sIGhheSB1biBwb3JjZW50YWplIHF1ZSByZXNpZGUgZW4gQ29haHVpbGEuIEVzdG8gc2UgcHVlZGUgaW50ZXJwcmV0YXIgY29uIHF1ZSBoYXkgdW4gYWx0byBuaXZlbCBkZSByb3RhY2nDs24gZXhpc3RlbnRlIGRlYmlkbyBhIGxhIGxlamFuw61hIGRlIHJlc2lkZW5jaWEgZGUgbG9zIGVtcGxlYWRvcy4gVGFtYmnDqW4gcG9kZW1vcyBpbmZlcmlyIHF1ZSBzZSByZWN1bHRhIG3DoXMgZ2VudGUgZGVsIGVzdGFkbyBkZSBOdWV2byBMZW9uIHkgcXVlIEZPUk0gdGllbmUgbWF5b3IgYWxjYW5jZSBhIGVzZWVlIG5pY2hvLgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgY3VhbGl0YXRpdmEgMSoqCgpgYGB7cn0KIyBQaWUgY2hhcnQ6IFJlcHJlc2VudGFjacOzbiBkZSBiYWphcyBhY29yZGUgYWwgZ8OpbmVybwoKcGllKHRhYmxlKHJoX0IyJEdFTkVSTyksIGNvbD1jKCJvcmFuZ2UiLCJjb3JhbDEiKSwKICAgIG1haW49IlJlcHJlc2VudGFjacOzbiBkZSBiYWphcyBhY29yZGUgYWwgZ8OpbmVybyIpCmBgYAoKTGEgYW50ZXJpb3IgZ3LDoWZpY2EgZGUgcGFzdGVsIHJlYWZpcm1hIGxvIHF1ZSBtZW5jaW9uYW1vcyBhbnRlcmlvcm1lbnRlLiBEZSBhY3VlcmRvIGEgbGFzIGJhamFzIHJlYWxpemFkYXMsIGxhIG1heW9yw61hIGRlIGxvcyBleC1lbXBsZWFkb3Mgc29uIGRlbCBnw6luZXJvIGZlbWVuaW5vLgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgZGUgZGlzcGVyc2nDs24qKgoKYGBge3J9CgojIyMgR3LDoWZpY2EgZGUgZGlzcGVyc2nDs246IE7Dum1lcm8gZGUgYmFqYXMgVlMuIETDrWFzIHRyYWJhamFkb3MKcGxvdCh4PSByaF9CMiROTy5ERS5CQUpBUywKICAgICB5PXJoX0IyJERJQVMuVFJBQkFKQURPUykKCmBgYAoKTGEgZ3LDoWZpY2EgZGUgZGlzcGVyc2nDs24gbm9zIG11ZXN0cmEgbGEgaW50ZW5zaWRhZCBkZSByZWxhY2nDs24gZW50cmUgbGEgdmFyaWFibGUgZGUgZMOtYXMgdHJhYmFqYWRvcyB5IG7Dum1lcm8gZGUgYmFqYXMuIEVzdG8gbm9zIGRpY2UgcXVlIGh1Ym8gdW4gYWx0byBuw7ptZXJvIGRlIGJhamFzIGRlIGVtcGxlYWRvcyBxdWUgdHJhYmFqYXJvbiBtZW5vcyBkZSAyMDAgZMOtYXMsIGVzIGRlY2lyLCBsYSBtYXlvcsOtYSBkZSBsb3MgZXgtZW1wbGVhZG9zIGVzdHV2aWVyb24gZW4gRk9STSBtZW5vcyBkZSAxIGHDsW8uCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipCb3hwbG90KioKCmBgYHtyfQojIyMgQm94cGxvdDogQ29ycmVsYWNpw7NuIGVuIGJhamFzIGFjb3JkZSBhIHZhcmlhYmxlcyBkZSBnw6luZXJvIHkgZWRhZApnZ3Bsb3QocmhfQjIsIGFlcyhHRU5FUk8sU0FMQVJJTy5ESUFSSU8uSU1TUyxmaWxsPUdFTkVSTykpICsKZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIpICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDIiKSArIGdndGl0bGUoIlNhbGFyaW8gZGlhcmlvIHBvciBnw6luZXJvIikKYGBgCgpMYSBncsOhZmljYSBhbnRlcmlvciBub3MgbXVlc3RyYSBsYSBjb3JyZWxhY2nDs24gZW50cmUgZWwgZ8OpbmVybyB5IGVsIHNhbGFyaW8gZGlhcmlvIGRlIGxvcyBlbXBsZWFkb3MuIEVuIGVzdGUsIGVudGVuZGVtb3MgcXVlIGVsIGfDqW5lcm8gZmVtZW5pbm8gdGllbmUgdW4gc2FsYXJpbyBkaWFyaW8gdG90YWwgbcOhcyBhbHRvIHF1ZSBsb3MgZGUgZ8OpbmVybyBtYXNjdWxpbm8uCgojIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrZ3JlZW4iPioqSW5zaWdodHMqKgoKUmVzdW1pZW5kbyB0b2RvIGxvIHZpc3RvIGFudGVyaW9ybWVudGUgcG9kZW1vcyBkZWNpciBxdWU6CgoxLiAgRk9STSBjdWVudGEgY29uIHVuIG1heW9yIG7Dum1lcm8gZGUgZW1wbGVhZG9zIGRlIGdlbmVybyBGZW1lbmlubywgcmVwcmVzZW50YW5kbyBlbCA1NCUuCgoyLiAgRWwgcHJvbWVkaW8gZGVsIFNhbGFyaW8gRGlhcmlvIHBvciBlbCBJTVNTIGVzIGRlIFwkMjM2IHBlc29zLgoKMy4gIFNlIHRpZW5lbiB0cmVzIG1vdGl2b3MgcHJpbmNpcGFsZXMgZGUgYmFqYXM6IGZhbHRhcywgcmVudW5jaWFzIHZvbHVudGFyaWFzIG8gdMOpcm1pbm8gZGUgY29udHJhdG8geSBzZSB0dXZpZXJvbiBtw6FzIGJhamFzIGRlIHBhcnRlIGRlbCBnZW5lcm8gZmVtZW5pbm8uCgo0LiAgTGEgbWF5b3LDrWEgZGUgbG9zIGV4LWVtcGxlYWRvcyBlc3R1dmllcm9uIG1lbm9zIGRlIHVuIGHDsW8gZW4gRk9STS4KCjUuICBFbCBnZW5lcm8gZmVtZW5pbyB0aWVuZSB1biBtYXlvciBzYWxhcmlvIGRpYXJpbyB0b3RhbC4KCiMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KioyLiBEZWxpdmVyeSBQbGFuKioKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipJbXBvcnRhciBsYSBiYXNlIGRlIGRhdG9zKioKCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpkZWxpdmVyeTwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0RFTElWRVJZIFBMQU4gYmRfUHJ1ZWJhLmNzdiIpCnN1bW1hcnkoZGVsaXZlcnkpCmBgYAoKIyMgKipTZWNjacOzbiAxKioKCipMaW1waWV6YSB0cmFuc2Zvcm1hY2nDs24geSBvcmdhbml6YWNpw7NuIGRlIGJhc2UgZGUgZGF0b3MuKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqT2JzZXJ2YWNpb25lcyoqCgoxLipTZSBoaXpvIGxpbXBpZXphIG1hbnVhbCBkZSBsYSBiYXNlIGRlIGRhdG9zIHBhcmEgYWNvbW9kYXIgbG9zIGNsaWVudGVzIGNvbW8gdmFyaWFibGVzIHkgbGFzIGZlY2hhcyBjb21vIHJlZ2lzdHJvcy4qCgoyLipTZSBzdXN0aXR1eWVyb24gTkFzIHBvciBjZXJvLioKCjMuKlNlIGVsaW1pbmFyb24gY29sdW1uYXMgbm8gdXNhZGFzIHkgcXVlIG5vIGFncmVlZ2FuIHZhbG9yIHBhcmEgZWwgYW5hbGlzaXMgcXVlIHNlIGJ1c2NhIGhhY2VyLioKCiMjIyAqRGVzY2FyZ2FyIGxpYnJlcsOtYXMgeSBwYXF1ZXRlcyoKCmBgYHtyfQpsaWJyYXJ5KGZvcmVpZ24pCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZm9yY2F0cykKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHJlYWRyKQpsaWJyYXJ5KGphbml0b3IpCmxpYnJhcnkobmFuaWFyKQpsaWJyYXJ5KGRsb29rcikKYGBgCgojIyMgKkN1YW50YXMgdmFyaWFibGVzIHkgcmVnaXN0cm9zIGhheSoKCmBgYHtyfQpzdHIoZGVsaXZlcnkpCmBgYAoKKkNvbnRhbW9zIGNvbiAzIHZhcmlhYmxlcyB5IDM4MCBvYnNlcnZhY2lvbmVzLioKCiMjIyAqQ29udGFyIHRvdGFsIGRlIHBlZGlkb3MgcG9yIGNsaWVudGUqCgpgYGB7cn0KZGVsaXZlcnlTVU0gPSBjb2xTdW1zKGRlbGl2ZXJ5WzRdKQoKYXMuZGF0YS5mcmFtZShkZWxpdmVyeVNVTSkKYGBgCgoqQ29udGFtb3MgY29uIDM4OCwzMTcgcGVkaWRvcyoKCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpkZWxpdmVyeUNMSUVOVFM8LXJlYWQuY3N2KCIvVXNlcnMvdmFuZXNzYWVsaXpvbmRvL0Rlc2t0b3AvVGVjL1NlbWVzdHJlIDcvRk9STS9DU1YvREVMSVZFUlkgUExBTiBiZF9lbnRyZWdhMi40LmNzdiIpCnN1bW1hcnkoZGVsaXZlcnlDTElFTlRTKQoKZGVsaXZlcnlDTElFTlRTID0gY29sU3VtcyhkZWxpdmVyeUNMSUVOVFNbMjoyMV0pCmFzLmRhdGEuZnJhbWUoZGVsaXZlcnlDTElFTlRTKQpiYXJwbG90LmRlZmF1bHQoZGVsaXZlcnlDTElFTlRTKQpgYGAKCipDb24gZXN0ZSBwbG90IHkgbGEgdGFibGEgZGUgIkRlbGl2ZXJ5Q0xJRU5UUyIgcG9kZW1vcyB2ZXIgcXVlIGhheSBtdWNob3MgY2xpZW50ZXMgY29uIG11eSBwb2NvcyBwZWRpZG9zLCBpbmNsdXNvIGFsZ3Vub3MgY29uIGNlcm8gcGVkaWRvcywgZXN0YSBpbmZvcm1hY2nDs24gcHVlZGUgc2VyIHVuIGRhdG8gcmVsZXZhbnRlIHBhcmEgbGEgdG9tYSBkZSBkZWNpc2lvbmVzIGVuIGN1ZXN0aW9uZXMgZGUgbGEgbGltcGllemEgZGUgbGEgYmFzZSBkZSBkYXRvcy4gRXhpc3RlbiBhbGd1bm9zIGNsaWVudGVzIHF1ZSBoYW4gdGVuaWRvIG1lbm9zIGRlIDUsMDAwIHBlZGlkb3MgcG9yIGxvIHF1ZSBwb2Ryw61hIGVzdGFyIG3DoXMgaW50ZXJlc2FudGUgZW4gZXZhbHVhciBhcXVlbGxvcyBjbGllbnRlcyBxdWUgdGllbmVuIG1heW9yIHJlbGV2YW5jaWEgZSBpbXBhY3RvIGVuIEZPUk0uKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipUw6ljbmljYXMgZGUgTGltcGllemEqKgoKIyMjIyAqKlTDqWNuaWNhIDE6IGVsaW1pbmFyIE5BcyoqCgoqU2UgZGVjaWRpw7MgcmVhbGl6YXIgZXN0w6EgdMOpY25pY2EgcGFyYSBhc2VndXJhcm5vcyBkZSBxdWUgbm8gc2UgdGVuZ2EgZmFsdGEgZGUgZGF0b3MgeSBlbiBjYXNvIGRlIHRlbmVybG9zIGV2aXRhciBxdWUgZXN0YXMgZXZpdGVuIHRlbmVyIHVuIGFuYWxpc2lzIGFzZXJ0aXZvIGFsIG5vIGFncmVnYXIgdmFsb3IgYSBsYSBiYXNlIGRlIGRhdG9zLioKCiMjIyMjIMK/Q3VhbnRvcyBOQSB0ZW5nbyBlbiBsYSBiYXNlIGRlIGRhdG9zPwoKYGBge3J9CnN1bShpcy5uYShkZWxpdmVyeSkpCmBgYAoKIyMjIyMgQ3VhbnRvcyBOQSB0ZW5nbyBwb3IgdmFyaWFibGU/CgoqKlNhcHBseToqKiBQYXJhIGNvbnRhciBsb3MgTkEuCgpgYGB7cn0Kc2FwcGx5KGRlbGl2ZXJ5LCBmdW5jdGlvbih4KSBzdW0oaXMubmEoeCkpKQpgYGAKCipTZSBlbmNvbnRyw7MgbmluZ8O6biBOQSoKCiMjIyMgKipUw6ljbmljYSAyOiBlbGltaW5hciBmaWxhcyoqCgoqU2UgZGVjaWTDsyByZWFsaXphciBlc3TDoSB0w6ljbmljYSBwYXJhIGVsaW1pbmFyIGxvcyBjbGllbnRlcyBxdWUgdGllbmVuIG1lbm9zIGRlICoqNSwwMDAqKiBwZWRpZG9zLioKCiMjIyMjIEVsaW1pbmFyIGZpbGFzIGNvbiBlbCBub21icmUgZGUgbG9zIGNsaWVudGVzIHF1ZSBzZSBkZXNlYW4gZWxpbWluYXIuCgpgYGB7cn0KCiNkZWxpdmVyeTEgPC0gc3Vic2V0IChkZWxpdmVyeTEsICBDTElFTlRFID09ICJTVEIzIikgI1BhcmEgY29uc2VydmFyIGNpZXJ0YXMgZmlsYXMKCmRlbGl2ZXJ5MTwtZGVsaXZlcnkKCmRlbGl2ZXJ5MTwtZGVsaXZlcnkxW2RlbGl2ZXJ5MSRDTElFTlRFIT0iU1RCIDEiLCBdCmRlbGl2ZXJ5MTwtZGVsaXZlcnkxW2RlbGl2ZXJ5MSRDTElFTlRFIT0iWUYgUkFNT1MiLCBdCmRlbGl2ZXJ5MTwtZGVsaXZlcnkxW2RlbGl2ZXJ5MSRDTElFTlRFIT0iSU5PQUMgUE9MWVRFQyIsIF0KZGVsaXZlcnkxPC1kZWxpdmVyeTFbZGVsaXZlcnkxJENMSUVOVEUhPSJNRVJJRElBTiIsIF0KZGVsaXZlcnkxPC1kZWxpdmVyeTFbZGVsaXZlcnkxJENMSUVOVEUhPSJZQU5GRU5HIHNtIiwgXQpkZWxpdmVyeTE8LWRlbGl2ZXJ5MVtkZWxpdmVyeTEkQ0xJRU5URSE9IllGIFFSTyIsIF0KZGVsaXZlcnkxPC1kZWxpdmVyeTFbZGVsaXZlcnkxJENMSUVOVEUhPSJTRUdST1ZFIiwgXQpkZWxpdmVyeTE8LWRlbGl2ZXJ5MVtkZWxpdmVyeTEkQ0xJRU5URSE9IkhBTk9OIiwgXQpkZWxpdmVyeTE8LWRlbGl2ZXJ5MVtkZWxpdmVyeTEkQ0xJRU5URSE9IkFOVE9MSU4gVE9MVUNBIiwgXQpkZWxpdmVyeTE8LWRlbGl2ZXJ5MVtkZWxpdmVyeTEkQ0xJRU5URSE9IkFOVE9MSU4gQVJURUFHQSIsIF0KZGVsaXZlcnkxPC1kZWxpdmVyeTFbZGVsaXZlcnkxJENMSUVOVEUhPSJBQkMgUVVFUkVUQVJPIiwgXQpkZWxpdmVyeTE8LWRlbGl2ZXJ5MVtkZWxpdmVyeTEkQ0xJRU5URSE9IlVGSSIsIF0KZGVsaXZlcnkxPC1kZWxpdmVyeTFbZGVsaXZlcnkxJENMSUVOVEUhPSJJU1JJIiwgXQoKc3VtbWFyeShkZWxpdmVyeTEpCmBgYAoKIyMjIyAqKlTDqWNuaWNhIDM6IGNhbWJpYXIgbm9tYnJlIGRlIHZhcmlhYmxlcy4qKgoKKlNlIHV0aWxpesOzIGVzdGEgdMOpY25pY2EgZGUgbGltcGllemEgcGFyYSBmYWNpbGl0YXIgZWwgdXNvIGRlIGxhIGJhc2UgZGUgZGF0b3MsIHF1ZSBzZWEgbcOhcyBlbnRlbmRpYmxlIHkgZXZpdGFyIHF1ZSBzZSB0ZW5nYW4gbm9tYnJlcyBkZSB2YXJpYWJsZXMgY29tcGxpY2Fkb3MuKgoKYGBge3J9CmRlbGl2ZXJ5MTwtZGVsaXZlcnkxICU+JSBkcGx5cjo6cmVuYW1lKENsaWVudGVzPSJDTElFTlRFIikKYGBgCgojIyMgKklkZW50aWZpY2FyIHZhcmlhYmxlcyoKCioqQ3VhbnRpdGF0aXZhOioqIERpc2NyZXRhLCBDb250aW51YQoKKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqSW50ZXJ2YWxvLCBSYXrDs24KCioqQ3VhbGl0YXRpdmEqKgoKKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqIE5vbWluYWxlcywgT3JkaW5hbGVzCgpgYGB7cn0KVmFyaWFibGU8LWMoIkZlY2hhIiwiU1RCMyIsIllGVE8iLCAiVFJNWCIsICJERU5TTyIsIkhFTExBIiwiVkFSUk9DIiwiVG90YWwucGVkaWRvcy5tZXMiKQpUeXBlPC1jKCJDdWFudGl0YXRpdmEgKGRpc2NyZXRhKSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsIkN1YWxpdGF0aXZhIiwiQ3VhbGl0YXRpdmEiLCJDdWFsaXRhdGl2YSIsIkN1YW50aXRhdGl2YSAoZGlzY3JldGEpIikKTWVhc3VyZW1lbnQ8LWMoIlJhesOzbiIsIk5vbWluYWwiLCJOb21pbmFsIiwiTm9taW5hbCIsIk5vbWluYWwiLCJOb21pbmFsIiwiTm9taW5hbCIsIlJhesOzbiIpCnRhYmxlMjwtZGF0YV9mcmFtZShWYXJpYWJsZSxUeXBlLE1lYXN1cmVtZW50KQoKa25pdHI6OmthYmxlKHRhYmxlMikKYGBgCgojIyAqKlNlY2Npw7NuIDIuMSoqCgoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqCgojIyMgKlRhYmxhIGRlIE1lZGlhLCBNb2RhIHkgTWVkaWFuYSoKCmBgYHtyfQp0YWJsZTM8LWRlc2NyaWJlKGRlbGl2ZXJ5MSkKa25pdHI6OmthYmxlKHRhYmxlMykKYGBgCgpDb24gZXN0ZSBhbm7DoWxpc2lzIHBvZGVtb3MgdmVyIHF1ZSBlbCBwcm9tZWRpbyBkZSBwZWRpZG9zIHF1ZSBzZSB0aWVuZW4gcG9yIG1lcyBlcyBkZSA1LDMwMCB5IHNlIHRpZW5lIHVuYSBncmFuZGUgZGVzdmlhY2nDs24gZXN0YW5kYXIgZGUgMTAsMDAwIHBlZGlkb3MgYWwgbWVzLiBFc3RhIGRpZmVyZW5jaWEgZXMgbXV5IGdyYW5kZSwgZXMgY2FzaSBlbCBkb2JsZSBkZWwgcHJvbWVkaW8sIHBvciBsbyBxdWUgcG9kcsOtYSBzZXIgaW50ZXJlc2FudGUgY29ub2NlciBlbCBwb3JxdWUgZGUgZXNhIGRpZmVyZW5jaWEgeSBxdWUgY2xpZW50ZSBvIGVuIHF1ZSBtZXMgc2Ugb2J0dXZvIGVzdG9zIHBlZGlkb3MgdGFuIGdyYW5kZXMgcXVlIG9jYXNpb25hcm9uIGxhIGRpZmVyZW5jaWEuCgojIyAqKkdyw6FmaWNvcyoqCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipHcsOhZmljYSBDdWFsaXRhdGl2YSoqCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoInBseXIiKQpsaWJyYXJ5KHBseXIpCmRlbGl2ZXJ5MjwtZGVsaXZlcnkxCnN1bW1hcnkoZGVsaXZlcnkyKQoKZGVsaXZlcnkyPC0gYWdncmVnYXRlKGRlbGl2ZXJ5MiRQZWRpZG9zLCBieT1saXN0KENsaWVudGVzPWRlbGl2ZXJ5MiRDbGllbnRlcyksIEZVTj1zdW0pCiNwaWUoZGVsaXZlcnkyJGBzdW0uZGVsaXZlcnkyJFBlZGlkb3NgLCBsYWJlbHMgPSBkZWxpdmVyeTIkQ2xpZW50ZXMpCmBgYAoKPGltZyBzcmM9Ii9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9TY3JlZW4gU2hvdCAyMDIyLTEwLTIxIGF0IDE2LjMwLjUzLnBuZyIvPiAqQ29uIGVzdGEgZ3LDoWZpY2EgcG9kZW1vcyBkYXJub3MgY3VlbnRhIGRlIGxvcyBjbGllbnRlcyBxdWUgdGllbmVuIG1heW9yZXMgcGVkaWRvcyB5IGVuIGVzdGUgY2FzbyBlcyBIRUxMQSBlbiBwcmltZXIgbHVnYXIgeSBUUk1YIGVuIHNlZ3VuZG8gbHVnYXIuKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgQ3VhbnRpdGF0aXZhKioKCmBgYHtyfQpkZWxpdmVyeTI8LWRlbGl2ZXJ5MiAlPiUgZHBseXI6OnJlbmFtZShQZWRpZG9zPSJ4IikKc3VtbWFyeShkZWxpdmVyeTIpCgpkZWxpdmVyeTIkQ2xpZW50ZXM8LWFzLmZhY3RvcihkZWxpdmVyeTIkQ2xpZW50ZXMpCmdncGxvdChkZWxpdmVyeTIsIGFlcyh4PUNsaWVudGVzLCB5PVBlZGlkb3MsIGZpbGw9UGVkaWRvcykpKwogICAgICAgICBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIpKwogICAgICAgICB0aGVtZV9taW5pbWFsKCkrCiAgICAgICAgIGxhYnModGl0bGU9IlBlZGlkb3MgcG9yIGNsaWVudGUiKQpgYGAKCipFc3RhIGdyw6FmaWNhIHNpcnZlIHBhcmEgdGVuZXIgZGUgbWFuZXJhIG3DoXMgdmlzdWFsIGVsIGltcGFjdG8gcXVlIHRpZW5lIGNhZGEgdW5vIGRlIGxvcyBjbGllbnRlcyBlbiBsYSBlbXByZXNhIEZPUk0uIFBvZGVtb3MgdmVyIHF1ZSBIRUxMQSBlcyBlbCBjbGllbnRlIG3DoXMgc2lnbmlmaWNhdGl2byBjb24gY2FzaSBlbCB0cmlwbGUgZGUgcGVkaWRvcyBxdWUgZWwgc2lndWllbnRlIGNsaWVudGUgY29uIG1heW9yZXMgcGVkaWRvcywgVFJNWC4gRGUgbGFkbyBkZXJlY2hvIHNlIHRpZW5lIHVuIGxlZ2VuZCBxdWUgbXVlc3RyYSBsYSB0b25hbGlkYWQgZGUgbG9zIHBsb3RzIHBhcmEgdmVyIHF1ZSB0YW50b3MgcGVkaWRvcyB0aWVuZSwgcG9yIGVsbG8gSEVMTEFTIHRpZW5lIHVuIGNvbG9yIGF6dWwgY2xhcm8sIHJlcHJlc2VudGFuZG8gbcOhcyBkZSAyNTAsMDAwIHBlZGlkb3MuKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqQ29tcG9ydGFtaWVudG8gZGUgY2xpZW50ZXMgcG9yIGZlY2hhKioKCmBgYHtyfQpzdW1tYXJ5KGRlbGl2ZXJ5MSkKCmdncGxvdChkZWxpdmVyeTEsYWVzKHg9SURfRmVjaGEsIHk9UGVkaWRvcywgZ3JvdXA9Q2xpZW50ZXMsY29sb3VyPUNsaWVudGVzKSkrCiAgZ2VvbV9saW5lKCkrCiAgZ2d0aXRsZSgiUGVkaWRvcyBwb3IgY2xpZW50ZSIpCmBgYAoKKkNvbiBlc3RhIGdyw6FmaWNhIHV0aWxpemFtb3MgZWwgSUQgRmVjaGEgcGFyYSBjb25vY2VyIGxvcyBwZWRpZG9zIHF1ZSBzZSB0aWVuZSBwb3IgY2xpZW50ZSBjYWRhIG1lcyB5IHZlbW9zIHVuIHNpZ25pZmljYXRpdm8gaW5jcmVtZW50byBkZSBwZWRpZG9zIGVuIGVsIG1lcyBkZSBzZXB0aWVtYnJlIHkgb2N0dWJyZS4gY29udGFtb3MgY29uIHVuIGxlZ2VuIHF1ZSBpbmRpY2EgY2FkYSBsw61uZWEgY29uIHVuIGNvbG9yIHBhcmEgbm9tYnJhciBsYSBpbmZvcm1hY2nDs24gZGUgY2FkYSB1bm8gZGUgbG9zIGNsaWVudGVzLioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkdyw6FmaWNhIEJveHBsb3QqKgoKYGBge3J9CmJveHBsb3QoZGVsaXZlcnkxJFBlZGlkb3MsIG1haW49ICJQZWRpZG9zIikKCmRlbGl2ZXJ5MzwtZGVsaXZlcnkxCmRlbGl2ZXJ5MyRDbGllbnRlcyA8LWFzLmZhY3RvcihkZWxpdmVyeTMkQ2xpZW50ZXMpCmdncGxvdChkZWxpdmVyeTMsIGFlcyh4PUNsaWVudGVzLCB5PVBlZGlkb3MpKSsKICBnZW9tX2JveHBsb3QoY29sb3I9ImJsdWUiLCBmaWxsPSJwdXJwbGUiKQpgYGAKCipFbiBlc3RhIGdyw6FmaWNhIHBvZGVtb3MgdmlzdWFsaXphcmN1YW50b3MgcGVkaWRvcyB0aWVuZSBwcm9ncmFtYWRvcyBjYWRhIGNsaWVudGUgeSBsb3MgY2xpZW50ZXMgcXVlIHNvYnJlIHNhbGVuIHNvbiBIRUxMQSB5IFRSTVgsIGFsZ28gbXV5IHJlbGV2YW50ZSBlbiBlc3RhIGdyw6FmaWNhIGVzIHF1ZSBzZSBtdWVzdHJhIGxhIG1lZGlhbmEgZGUgY2FkYSB1bm8sIGFzw60gY29tbyB0YW1iacOpbiBsYSBtaW5pbWEgZGUgcGVkaWRvcywgbGEgbcOheGltYSBkZSBwZWRpZG9zIHkgbGEgZGlzcGVyc2nDs24gZGUgY2FkYSB1bm8gZGUgbG9zIGNsaWVudGVzLiBFcyBpbnRlcmVzYW50ZSB2ZXIgbGEgZnVlcnRlIGRpc3BlcnNpw7NuIHF1ZSBIRUxMQSB0aWVuZSwgeWEgcXVlIG11ZXN0cmEgcXVlIGEgcGFydGUgZGUgdGVuZXIgdW4gZ3JhbmRlIHJhbmdvIGRlIHBlZGlkb3MgcXVlIHZhcsOtYW4gZGUgZW50cmUgNSwwMDAgcGVkaWRvcyBhIDMwLDAwMCBwZWRpZG9zLCB0aWVuZW4gdGFtYmnDqW4gdW5hIGRpc3BlcnNpw7NuIGZ1ZXJ0ZSBlbiBkw7NuZGUgaGFuIGxsZWdhZG8gYSByZWFsaXphciBtw6FzIGRlIDUwLDAwMCBwZWRpZG9zLiBQb3Igb3RybyBsYWRvIFRSTVgsIHVuIGNsaWVudGUgcXVlIHRpZW5lIHVuIHJhbmdvIGRlIHBlZGlkb3MgZW50cmUgbG9zIDUsMDAwIHkgbG9zIDEwLDAwMCBwZWRpZG9zLCBwZXJvIHRpZW5lIHVuYSBkaXNwZXJzacOzbiBxdWUgbXVlc3RyYSBxdWUgZW4gYWxnw7puIHB1bnRvIGRlIHN1IGhpc3RvcmlhbCByZWFsaXphcm9uIGNlcm8gcGVkaWRvcywgZXN0byBub3MgbGxldmEgYSBwcmVndW50YXJub3MsIGEgcXVlIHNlIGRlYmnDsyBlbCBxdWUgVFJNWCBubyBoYXlhIHJlYWxpemFkbyBuaW5nw7puIHBlZGlkbyBlbiBhbGfDum4gbWVzLioKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtncmVlbiI+KipJbnNpZ2h0cyoqCgpQYXJhIHJlYWxpemFyIGVsIGFuw6FsaXNpcyBkZSBsYSBiYXNlIGRlIGRhdG9zIGRlICJEZWxpdmVyeSBQbGFuIiBmdcOpIG5lY2VzYXJpbyBwcmltZXJvIGhhY2VyIHVuIGFycmVnbG8gZGUgbGEgYmFzZSBkZSBkYXRvcyBkZSBtYW5lcmEgbWFudWFsIGVuIGVsIGV4Y2VsLiBFc3TDsyBwYXJhIHNpbXBsaWZpY2FyIGVsIHVzbyBkZSBsYSBiYXNlIGRlIGRhdG9zIHkgcGVybWl0aXIgcXVlIFIgcHVlZGEgYW5hbGl6YXJsYSB5IGV4dHJhZXIgbG9zIGRhdG9zIHBhcmEgZ2VuZXJhciBncsOhZmljYXMuIERlc3B1w6lzIGFwbGljYW1vcyBkb3MgZGlmZXJlbnRlcyBiYXNlcyBkZSBkYXRvcywgbm9zIGFzZWd1cmFtb3MgZGUgcXVlIG5vIGhheWEgTkFzIHkgZWxpbWluYW1vcyBmaWxhcyBxdWUgY29ycmVzcG9uZMOtYW4gYSBsb3MgY2xpZW50ZXMgcXVlIHRlbsOtYW4gbWVub3MgZGUgNSwwMDAgcGVkaWRvcy4gTm9zIHF1ZWRhbW9zIGNvbiB1bmEgYmFzZSBkZSBkYXRvcyBjb24gbG9zIDYgY2xpZW50ZXMgbcOhcyBzaWduaWZpY2F0aXZvcyBwYXJhIEZPUk0uIENvbnRpbnVhbW9zIGlkZW50aWZpY2FuZG8gbGFzIHZhcmlhYmxlcyBlbiBkw7NuZGUgNiBkZSA4IHZhcmlhYmxlcyBlcmFuIGN1YWxpdGF0aXZhcyBhbCBzZXIgbG9zIGNsaWVudGVzIGRlIEZPUk0uCgpHcmFmaWNhbW9zIHVuYSBncsOhZmljYSBkZSBQaWUgcGFyYSBpZGVudGlmaWNhciBkZSBtYW5lcmEgdmlzdWFsIGxvcyBtYXlvcmVzIGNsaWVudGVzLCBsb3MgcXVlIHZpZW5lbiBzaWVuZG8gSEVMTEEgeSBUUk1YLiBUYW1iacOpbiBoaWNpbW9zIHVuICJCYXJwbG90IiBwYXJhIG1vc3RyYXIgbGEgY2FudGlkYWQgZGUgcGVkaWRvcyBwcm9ncmFtYWRvcyBxdWUgdGllbmUgY2FkYSBjbGllbnRlLCBIZWxsYSBzaWVuZG8gZWwgY2xpZW50ZSBjb24gbWF5b3IgcGVkaWRvcyBjb24gbcOhcyBkZSAyMjUsMDAwIHkgVFJNWCBzaWd1aWVuZG8gY29uIDgwLDAwMC4gRGVjaWRpbW9zIHRhbWJpw6luIHZpc3VhbGl6YXIgZWwgY29tcG9ydGFtaWVudG8gZGUgbG9zIGNsaWVudGVzIHNlZ8O6biBsYSBmZWNoYSB5IG5vcyBkaW1vcyBjdWVudGEgcXVlIGVudHJlIGVsIG1lcyBkZSBzZXB0aWVtYnJlIHkgb2N0dWJyZSBodWJvIHVuIGluY3JlbWVudG8gZGUgcGVkaWRvcyBlc3RhYmxlY2lkb3MuIFkgcG9yIMO6bHRpbW8gc2UgcmVhbGl6w7MgZWwgIkJveHBsb3QiIHBhcmEgZGUgZXNlIG1vZG8gdmVyIGRlIG1hbmVyYSBwcmVjaXNhIGxhIG1vZGEgZGUgY2xvcyBwZWRpZG9zIHF1ZSBzdWVsZSBoYWNlciBjYWRhIHVubyBkZSBsb3MgY2xpZW50ZXMuCgojIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqMy4gRGVsaXZlcnkgUGVyZm9ybWFuY2UqKgoKIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6b3JhbmdlIj4qKkltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MqKgoKYGBge3J9CiNmaWxlLmNob29zZSgpCnBlcmZvcm1hbmNlIDwtIHJlYWQuY3N2KCIvVXNlcnMvdmFuZXNzYWVsaXpvbmRvL0Rlc2t0b3AvVGVjL1NlbWVzdHJlIDcvRk9STS9FcXVpcG8gMi40L0Jhc2VzIGRlIGRhdG9zL1BlcmZvcm1hbmNlLmNzdiIpCnN1bW1hcnkocGVyZm9ybWFuY2UpCgpgYGAKCiMjICoqU2VjY2nDs24gMSoqCgoqTGltcGllemEgdHJhbnNmb3JtYWNpw7NuIHkgb3JnYW5pemFjacOzbiBkZSBiYXNlIGRlIGRhdG9zLioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKk9ic2VydmFjaW9uZXMqKgoKIyMjICpEZXNjYXJnYXIgbGlicmVyw61hcyB5IHBhcXVldGVzKgoKYGBge3J9CmxpYnJhcnkoZm9yZWlnbikKbGlicmFyeShkcGx5cikgICAgICAgICMgZGF0YSBtYW5pcHVsYXRpb24gCmxpYnJhcnkoZm9yY2F0cykgICAgICAjIHRvIHdvcmsgd2l0aCBjYXRlZ29yaWNhbCB2YXJpYWJsZXMKbGlicmFyeShnZ3Bsb3QyKSAgICAgICMgZGF0YSB2aXN1YWxpemF0aW9uIApsaWJyYXJ5KGphbml0b3IpICAgICAgIyBkYXRhIGV4cGxvcmF0aW9uIGFuZCBjbGVhbmluZyAKI2luc3RhbGwucGFja2FnZXMoIkhtaXNjIikKI2xpYnJhcnkoSG1pc2MpICAgICAgICAjIHNldmVyYWwgdXNlZnVsIGZ1bmN0aW9ucyBmb3IgZGF0YSBhbmFseXNpcyAKI2luc3RhbGwucGFja2FnZXMoInBzeWNoIikKI2xpYnJhcnkocHN5Y2gpICAgICAgICAjIGZ1bmN0aW9ucyBmb3IgbXVsdGl2YXJpYXRlIGFuYWx5c2lzIAojaW5zdGFsbC5wYWNrYWdlcygibmFuaWFyIikKI2xpYnJhcnkobmFuaWFyKSAgICAgICAjIHN1bW1hcmllcyBhbmQgdmlzdWFsaXphdGlvbiBvZiBtaXNzaW5nIHZhbHVlcyBOQXMKI2luc3RhbGwucGFja2FnZXMoImRsb29rciIpCiNsaWJyYXJ5KGRsb29rcikgICMgc3VtbWFyaWVzIGFuZCB2aXN1YWxpemF0aW9uIG9mIG1pc3NpbmcgdmFsdWVzIE5BcwojaW5zdGFsbC5wYWNrYWdlcygiY29ycnBsb3QiKQojbGlicmFyeShjb3JycGxvdCkgICAgICMgY29ycmVsYXRpb24gcGxvdHMKI2luc3RhbGwucGFja2FnZXMoImp0b29scyIpCiNsaWJyYXJ5KGp0b29scykgICAgICAgIyBwcmVzZW50YXRpb24gb2YgcmVncmVzc2lvbiBhbmFseXNpcyAKI2luc3RhbGwucGFja2FnZXMoImxtdGVzdCIpCiNsaWJyYXJ5KGxtdGVzdCkgICAgICAgIyBkaWFnbm9zdGljIGNoZWNrcyAtIGxpbmVhciByZWdyZXNzaW9uIGFuYWx5c2lzIAojaW5zdGFsbC5wYWNrYWdlcygiY2FyIikKI2xpYnJhcnkoY2FyKSAgICAgICAgICAjIGRpYWdub3N0aWMgY2hlY2tzIC0gbGluZWFyIHJlZ3Jlc3Npb24gYW5hbHlzaXMKI2luc3RhbGwucGFja2FnZXMoIm9sc3JyIikKI2xpYnJhcnkob2xzcnIpICAgICAgICAjIGRpYWdub3N0aWMgY2hlY2tzIC0gbGluZWFyIHJlZ3Jlc3Npb24gYW5hbHlzaXMgCiNpbnN0YWxsLnBhY2thZ2VzKCJrYWJsZUV4dHJhIikKI2xpYnJhcnkoa2FibGVFeHRyYSkgICAjIEhUTUwgdGFibGUgYXR0cmlidXRlcwpsaWJyYXJ5KHRpZHl2ZXJzZSkKYGBgCgojIyMgKkN1YW50YXMgdmFyaWFibGVzIHkgcmVnaXN0cm9zIGhheSoKCmBgYHtyfQpzdHIocGVyZm9ybWFuY2UpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipUw6ljbmljYXMgZGUgTGltcGllemEqKgoKIyMjIyBUw6ljbmljYSAxOiBEZSBjYXJhY3RlciBhIEZlY2hhCgpgYGB7cn0KcGVyZm9ybWFuY2UxPC1wZXJmb3JtYW5jZQpwZXJmb3JtYW5jZTEkRmVjaGE8LSBhcy5EYXRlKHBlcmZvcm1hbmNlMSRGZWNoYSwgZm9ybWF0PSAiJWQvJW0vJXkiKQpzdW1tYXJ5KHBlcmZvcm1hbmNlMSkKCnRpYmJsZShwZXJmb3JtYW5jZTEpCmBgYAoKIyMjIyBUw6ljbmljYSAyOiBFbGltaW5hciBOQXMgeSBjb2x1bW5hcwoKYGBge3J9CnN1bShpcy5uYShwZXJmb3JtYW5jZTEpKQoKcGVyZm9ybWFuY2UyPC1wZXJmb3JtYW5jZTEKcGVyZm9ybWFuY2UyIDwtIHN1YnNldChwZXJmb3JtYW5jZTIsIHNlbGVjdCA9LWMgKFRhcmdldCkpCmBgYAoKKlNlIGVsaW1pbmEgbGEgdmFyaWFibGUgInRhcmdldCIgeWEgcXVlIG5vIG5vcyBtdWVzdHJhIHVuYSBpbmZvcm1hY2nDs24gZGV0YWxsYWRhIGFsIGRhcm5vcyBkYXRvcyBudWxvcyBwbGFudGVhbmRvIGVsIG7Dum1lcm8gMSBlbiB0b2RvcyBsb3MgcmVnaXN0cm9zLioKCiMjIyMgVMOpY25pY2EgMzogTGltcGllemEgcG9yIG1ldG9kbyBlc3RhZMOtc3RpY28KCmBgYHtyfQpwZXJmb3JtYW5jZTM8LXBlcmZvcm1hbmNlMgpib3hwbG90KHBlcmZvcm1hbmNlMyRQbGFuLmFycml2YWwsIGhvcml6b250YWw9VFJVRSkKCmJveHBsb3QocGVyZm9ybWFuY2UzJFJlYWwuYXJyaXZhbCwgaG9yaXpvbnRhbD1UUlVFKQoKYm94cGxvdChwZXJmb3JtYW5jZTMkUmVhbC5kZXBhcnR1cmUsIGhvcml6b250YWw9VFJVRSkKCmJveHBsb3QocGVyZm9ybWFuY2UzJERpZmVyZW5jZSwgaG9yaXpvbnRhbD1UUlVFKQpgYGAKCipDb24gbG9zIEJveHBsb3RzIGFudGVyaW9yZXMgYW5hbGl6YW1vcyBhcXVlbGxhcyB2YXJpYWJsZXMgcXVlIG5vcyBkYWJhbiBpbmZvcm1hY2lvbiByZWxldmFudGUgeSBkZSBlc2UgbW9kbyBkZWNpZGltb3MgZ3JlZ2FyIHVuYSBjb2x1bW5hIGRlIHByb21lZGlvLioKCiMjIyMjICpBZ3JlZ2FyIENvbHVtbmEgZGUgUHJvbWVkaW8qCgpgYGB7cn0KcGVyZm9ybWFuY2UzJFByb21lZGlvX3JlYWxfYXJyaXZhbDwtIG1lYW4ocGVyZm9ybWFuY2UzJFJlYWwuYXJyaXZhbCkKYGBgCgojIyMjIFTDqWNuaWNhIDQ6IERlIGNhcmFjdGVyIGEgbnVtw6lyaWNvCgpgYGB7cn0KcGVyZm9ybWFuY2UzJFZ1ZWx0YXM8LWFzLm51bWVyaWMocGVyZm9ybWFuY2UzJFZ1ZWx0YXMpICAgICAjIyMgbWlzc2luZyB2YWx1ZXMgYXJlIGNvbnZlcnRlZCB0byBOQSdzCnBlcmZvcm1hbmNlMyRQbGFuLmFycml2YWw8LWFzLm51bWVyaWMocGVyZm9ybWFuY2UzJFBsYW4uYXJyaXZhbCkgIApwZXJmb3JtYW5jZTMkUmVhbC5hcnJpdmFsPC1hcy5udW1lcmljKHBlcmZvcm1hbmNlMyRSZWFsLmFycml2YWwpICAKcGVyZm9ybWFuY2UzJFJlYWwuZGVwYXJ0dXJlPC1hcy5udW1lcmljKHBlcmZvcm1hbmNlMyRSZWFsLmRlcGFydHVyZSkgIApwZXJmb3JtYW5jZTMkRGlmZXJlbmNlPC1hcy5udW1lcmljKHBlcmZvcm1hbmNlMyREaWZlcmVuY2UpICAKcGVyZm9ybWFuY2UzJFByb21lZGlvX3JlYWxfYXJyaXZhbDwtYXMubnVtZXJpYyhwZXJmb3JtYW5jZTMkUHJvbWVkaW9fcmVhbF9hcnJpdmFsKSAKCnBlcmZvcm1hbmNlMzwtYXMuZGF0YS5mcmFtZShwZXJmb3JtYW5jZTMpIApwZXJmb3JtYW5jZTMkRmVjaGE8LWFzLkRhdGUocGVyZm9ybWFuY2UzJEZlY2hhLGZvcm1hdD0iJW0vJWQvJVkiKSAKcGVyZm9ybWFuY2UzJENsaWVudGU8LWFzLmZhY3RvcihwZXJmb3JtYW5jZTMkQ2xpZW50ZSkgCgp0aWJibGUocGVyZm9ybWFuY2UzKQpgYGAKCiMjIyAqSWRlbnRpZmljYXIgdmFyaWFibGVzKgoKKipDdWFudGl0YXRpdmE6KiogRGlzY3JldGEsIENvbnRpbnVhICoqRXNjYWxhIGRlIG1lZGljacOzbjoqKkludGVydmFsbywgUmF6w7NuICoqQ3VhbGl0YXRpdmEqKiAqKkVzY2FsYSBkZSBtZWRpY2nDs246KiogTm9taW5hbGVzLCBPcmRpbmFsZXMKCmBgYHtyfQp2YXJpYWJsZXMgPC0gYygiYFRhcmdldGAiLCJgQ2xpZW50ZWAiLCJgVnVlbHRhc2AiLCJgUGxhbi5hcnJpdmFsYCIsImBSZWFsLmFycml2YWxgIiwiYFJlYWwuZGVwYXJ0dXJlYCIsImBEaWZlcmVuY2VgIiwiYEZlY2hhYCIpCnRpcG9zIDwtIGMoImN1YW50aXRhdGl2byAoZGlzY3JldG8pICAiLCAiY3VhbGl0YXRpdm8gICIsICJjdWFudGl0YXRpdm8gKGRpc2NyZXRvKSAgIiwgImN1YW50aXRhdGl2byAoY29udGludW8pICAiLCAiY3VhbnRpdGF0aXZvIChjb250aW51bykgICIsICJjdWFudGl0YXRpdm8gKGNvbnRpbnVvKSAgIiwgImN1YW50aXRhdGl2byAoY29udGludW8pICAiLCAiY3VhbGl0YXRpdm8gICIpCmVzY2FsYXMgPC0gYygiaW50ZXJ2YWxvIiwgIm5vbWluYWwiLCAicmF6b24iLCAicmF6b24iLCAicmF6b24iLCAicmF6b24iLCAicmF6b24iLCAib3JkaW5hbCIpCnRhYmxlLnAgPC0gZGF0YS5mcmFtZSAodmFyaWFibGVzLCB0aXBvcywgZXNjYWxhcykKa25pdHI6OmthYmxlKHRhYmxlLnApCmBgYAoKIyMgKipTZWNjacOzbiAyLjEqKgoKKkFuw6FsaXNpcyBFeHBsb3JhdG9yaW8gZGUgbGFzIEJhc2VzIGRlIERhdG9zKgoKIyMjIyBFc3RhZMOtc3RpY29zIERlc2NyaXB0aXZvcwoKYGBge3J9CgpwZXJmb3JtYW5jZTQgPC0gcGVyZm9ybWFuY2UzCgpzZChwZXJmb3JtYW5jZTQkVnVlbHRhcywgbmEucm0gPSBGQUxTRSkKc2QocGVyZm9ybWFuY2U0JFBsYW4uYXJyaXZhbCwgbmEucm0gPSBGQUxTRSkKc2QocGVyZm9ybWFuY2U0JFJlYWwuYXJyaXZhbCwgbmEucm0gPSBGQUxTRSkKc2QocGVyZm9ybWFuY2U0JFJlYWwuZGVwYXJ0dXJlLCBuYS5ybSA9IEZBTFNFKQpzZChwZXJmb3JtYW5jZTQkRGlmZXJlbmNlLCBuYS5ybSA9IEZBTFNFKQoKCmBgYAoKIyMjICpUYWJsYSBkZSBNZWRpYSwgTW9kYSB5IE1lZGlhbmEqCgpgYGB7cn0KVmFyaWFibGU8LWMoIlZ1ZWx0YXMiLCJQLmFycml2YWwiLCAiUi5hcnJpdmFsIiwgIlIuZGVwIiwgIkRpZiIpCk1lZGlhbmE8LWMoIjEuNTAgIiwiNC4wMDAiLCIwLjAwMCAiLCIwLjAwMCAiLCIwLjAwMDAgIikKTWVkaWEgPC0gYygiMS43NSIsIjYuNjI1IiwiMy44MjMiLCI0LjE0MiIsIjQuMTQyIikKTW9kYSA8LSBjKCIxIiwiMCIsIjAiLCIwIiwiMCIpCkRlc3ZpYWNpw7NuX2VzdGFuZGFyPC1jKCIwLjgyOTQ0NDIiLCIgNy41MDE1NjMiLCI2LjUwNTkwMiIsIjYuOTQ4NjY1IiwiNi45NDg2NjUiKQp0YWJsZTEgPC0gZGF0YS5mcmFtZSAoVmFyaWFibGUsIE1lZGlhbmEsIE1lZGlhLCBNb2RhLCBEZXN2aWFjacOzbl9lc3RhbmRhcikKa25pdHI6OmthYmxlKHRhYmxlMSkKYGBgCgoqU2Ugb2N1cG8gc3VtbWFyeSBwYXJhIHBvZGVyIG9idGVuZXIgbGEgbW9kYSwgbWVkaWFuYSB5IG1lZGlhIGRlIGxhcyB2YXJpYWJsZXMgeSBwb3N0ZXJpb3JtZW50ZSBzZSBjYWxjdWxhIGxhIGRlc3ZpYWNpw7NuIGVzdGFuZGFyIGNvbiBsYSBmdW5jacOzbiBzZCgpKgoKIyMgKipHcsOhZmljb3MqKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqVGFibGEgZGUgRnJlY3VlbmNpYSoqCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoJ2VwaURpc3BsYXknKQpsaWJyYXJ5KGVwaURpc3BsYXkpCmBgYAoKYGBge3J9CnRhYjEocGVyZm9ybWFuY2U0JERpZmVyZW5jZSwgc29ydC5ncm91cCA9ICJkZWNyZWFzaW5nIiwgY3VtLnBlcmNlbnQgPSBUUlVFKSAKYGBgCgpgYGB7cn0KdGFiMShwZXJmb3JtYW5jZTQkUmVhbC5hcnJpdmFsLCBzb3J0Lmdyb3VwID0gImRlY3JlYXNpbmciLCBjdW0ucGVyY2VudCA9IFRSVUUpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqTGluZSBQbG90KioKCmBgYHtyfQpnZ3Bsb3QocGVyZm9ybWFuY2U0LGFlcyh4PUZlY2hhLCB5PURpZmVyZW5jZSxjb2xvcj1DbGllbnRlKSkrCiAgZ2VvbV9saW5lKCkrCiAgbGFicyh4PSJGZWNoYSIseT0iRGVsYXkgaW4gTWludXRlcyIsIGNvbG9yPSJMZWdlbmQiKSsKICBnZ3RpdGxlKCJEZWxheXMgaW4gUGVyZm9ybWFuY2UgYnkgQ2xpZW50IikKYGBgCgpDb24gZXN0YSBncsOhZmljYSB2aXN1YWxpemFtb3MgcXVlIHNlIHRpZW5lbiBkb3MgY2xpZW50ZXMgaW5zaWduaWZpY2FudGVzLCBwb3IgbG8gcXVlIGV2aXRhIHF1ZSB0ZW5nYW1vcyB1bmEgYnVlbmEgdmlzdWFsaXphY2nDs24gZGUgbG9zIGRhdG9zIHJlbGV2YW50ZXMuIFBvZGVtb3MgdmVyIHF1ZSBWYXJyb2Mgc2UgbWFudGllbmUgZW4gbG9zIGNlcm9zIHkgcXVlIE1hZ25hIG5vIHNlIHZpc3VhbGl6YSBlbiBsYSBncsOhZmljYSwgcG9yIGxvIHF1ZSBlc3RvIG5vcyBsbGV2YSBhIHRvbWFyIGxhIGRlY2lzacOzbiBkZSBjb25jZW50cmFybm9zIGVuIGxvcyBvdHJvcyBkb3MgY2xpZW50ZXMgcXVlIGRlIHZlcmRhZCB0b21hbiB1bmEgcGFydGUgaW1wb3J0YW50ZS4KCiMjIyMgUmV2aXNhciBsYSBwcmVzZW5jaWEgZGUgZGF0b3MgZmFsdGFudGVzCgpgYGB7cn0KcGVyZm9ybWFuY2U1IDwtIHBlcmZvcm1hbmNlNApwZXJmb3JtYW5jZTU8LXBlcmZvcm1hbmNlNVstYygzMDAsMjkyKSxdICMgUXVpdGFyIGxhcyBmaWxhcyAzMDAgeSAyOTIgcG9yIHF1ZSBwcmVzZW50YW4gZGF0b3MgbmVnYXRpdm9zIHkgcXVlIG5vIHNpcnZlbiBwYXJhIGVsIGFuYWxpc2lzLgpzdW1tYXJ5KHBlcmZvcm1hbmNlNSkgIyBubyBtaXNzaW5nIHZhbHVlcwpgYGAKCiMjIyMgUXVpdGFyIGNsaWVudGVzIHF1ZSB0aWVuZW4gdmFsb3IgZGUgMAoKYGBge3J9CnBlcmZvcm1hbmNlNTwtcGVyZm9ybWFuY2U1W3BlcmZvcm1hbmNlNSRDbGllbnRlIT0iTUFHTkEiLF0KcGVyZm9ybWFuY2U1PC1wZXJmb3JtYW5jZTVbcGVyZm9ybWFuY2U1JENsaWVudGUhPSJWQVJST0MiLF0Kc3VtbWFyeShwZXJmb3JtYW5jZTUpCmBgYAoKIyMjIyBHcsOhZmljYSBkZSAyIGNsaWVudGVzIGVsaW1pbmFkb3MKCmBgYHtyfQpnZ3Bsb3QocGVyZm9ybWFuY2U1LGFlcyh4PUZlY2hhLCB5PURpZmVyZW5jZSxjb2xvcj1DbGllbnRlKSkrCiAgZ2VvbV9saW5lKCkrICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQ9MC44MDAwLGxpbmV0eXBlPSJkYXNoZWQiLGNvbG9yPSJibGFjayIpKwogIGxhYnMoeD0iRmVjaGEiLHk9IkRpZmVyZW5jaWEgcG9yIGTDrWEiLCBjb2xvcj0iTGVnZW5kIikrCiAgZ2d0aXRsZSgiRGlmZXJlbmNpYSBkZSBlbnRyZWdhIHBvciBDbGllbnRlIikKYGBgCgoqRW5jb250cmFtb3MgZ3JhY2lhcyBhIGxhIGdyYWZpY2EgcmVhbGl6YWRhIGRlIGxhIERpZmVyZW5jaWEgZGUgdGllbXBvIGVuIGxhIGVudHJlZ2EgZGUgcHJvZHVjdG8gcG9yIGNsaWVudGUsIHF1ZSBsb3MgY2xpZW50ZXMgY29uIG1heW9yIERlbGF5IHNvbiBNQUhMRSBZIFBSSU5URUwsIGFsIG1pc21vIHRpZW1wbyBlbmNvbnRyYW1vcyBxdWUgZW50cmUgZXN0b3MgZG9zIGNsaWVudGVzLCBlbCBxdWUgdGllbmUgbWF5b3IgRGVsYXkgZXMgTUFITEUsIHBvciBsbyBxdWUgc2Vyw61hIGJ1ZW5vIHBhcmEgbGEgZW1wcmVzYSBlbCB0ZW5lciB1biBtYXlvciBlbmZvcXVlLCBkZSBhbWJvcywgcGVybyB0YW1iaWVuIHVuIHBvY28gbcOhcyBlbiBNYWhsZSwgcGFyYSBxdWUgdGVuZ2EgbWVqb3IgcmVmZXJlbmNpYSBkZSBlc3RlIGNsaWVudGUgeSBtYXlvciBjb25maWFuemEgY29uIGxhIGVtcHJlc2EgZW4gbGFzIGVudHJlZ2FzLioKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtncmVlbiI+KipJbnNpZ2h0cyoqCgpFcyBpbXBvcnRhbnRlIGNvbm9jZXIgY29tbyBlbXByZXNhIGEgdHVzIG1pc21vcyBjbGllbnRlcyB5IGVsIHJlbmRpbWllbnRvIHF1ZSBzZSB0aWVuZS4gRW4gZXN0ZSBjYXNvIG5vcyBlbmZvY2Ftb3MgZW4gZG9zIHByaW5jaXBhbGVzIGNsaWVudGVzIGRlIEZPUk0gcXVlIHRpZW5lbiBkYXRvcyByZWxldmFudGVzIHNvYnJlIGVzdGUgdGVtYSwgTUFITEUgeSBQUklOVEVMLCBkZSBlc3RlIG1vZG8gcG9kZW1vcyB2ZXIgcXVlIGVudHJlIGZlYnJlcm8geSBtYXJ6byBzZSB0dXZvIG1heW9yIHRhcmRhbnphIGVuIGxhIGVudHJlZ2EgZGUgbG9zIG1hdGVyaWFsZXMgeSBwcm9kdWN0b3MgY29uIGVzdG9zIGRvcyBjbGllbnRlcywgcG9yIGxvIHF1ZSBkZXN0YWNhIGxhIG9wb3J0dW5pZGFkIHBhcmEgZm9ybSBkZSBhbmFsaXphciBlbCBwb3JxdWUgZGUgZXN0b3MgcmV0cmFzb3MuCgojIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqNC4gUHJvZHVjY2nDs24qKgoKIyMgSW1wb3J0YXIgYmFzZSBkZSBkYXRvcwoKYGBge3J9CiNmaWxlLmNob29zZSgpCnByb2R1Y2Npb24gPC0gcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0NTVi9GT1JNIC0gUHJvZHVjY2lvzIFuTGltcGlhLmNzdiIpCnN1bW1hcnkocHJvZHVjY2lvbikKYGBgCgojIyAqKlNlY2Npw7NuIDEqKgoKKkxpbXBpZXphIHRyYW5zZm9ybWFjacOzbiB5IG9yZ2FuaXphY2nDs24gZGUgYmFzZSBkZSBkYXRvcy4qCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipPYnNlcnZhY2lvbmVzKioKCipGdWUgbmVjZXNhcmlvIGhhY2VyIHVuYSBsaW1waWEgbWFudWFsIGRlIGxhIGJhc2UgZGUgZGF0b3MsIHNlIHNlbGVjY2lvbmFyb24gbGFzIHZhcmlhYmxlcyBjb25tYXlvciBzaWduaWZpY2FuY2lhLCBub3MgcXVlZGFtb3MgY29uIGxvcyBkYXRvcyB1bmljYW1lbnRlIGRlIHByb2R1Y2Npw7NuIHkgc2UgYWNsYXLDsyBlbCBmb3JtYXRvIGRlIGxhcyBjb2x1bW5hcyBkZSBmZWNoYSB5IHRpZW1wby4qCgojIyMgKkRlc2NhcmdhciBsaWJyZXLDrWFzIHkgcGFxdWV0ZXMqCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImZvcmVjYXN0IikKbGlicmFyeShmb3JlY2FzdCkKYGBgCgojIyMgKkN1YW50YXMgdmFyaWFibGVzIHkgcmVnaXN0cm9zIGhheSoKCmBgYHtyfQpzdHIocHJvZHVjY2lvbikKYGBgCgoqQ29udGFtb3MgY29uIDEzIHZhcmlhYmxlcyB5IDI1Njkgb2JzcnZhY2lvbmVzLioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpvcmFuZ2UiPioqVMOpY25pY2FzIGRlIExpbXBpZXphKioKCiMjIyMgVMOpY25pY2EgMTogZWxpbWluYXIgY29sdW1uYXMKCipTZSBkZWNpZGnDsyBlbGltaW5hciBjb2x1bW5hcyBjb24gdmFyaWFibGVzIHF1ZSBubyBhZ3JlZ2FuIHZhbG9yIGFsIGFuw6FsaXNpcyBkZSBsYSBiYXNlIGRlIGRhdG9zLioKCmBgYHtyfQpwcm9kdWNjaW9uMiA8LSBwcm9kdWNjaW9uCnByb2R1Y2Npb24yIDwtIHN1YnNldCAocHJvZHVjY2lvbjIsIHNlbGVjdCA9IC1jIChJRC5GT1JNKSkKcHJvZHVjY2lvbjIgPC0gc3Vic2V0IChwcm9kdWNjaW9uMiwgc2VsZWN0ID0gLWMgKFBST0RVQ1RPKSkKcHJvZHVjY2lvbjIgPC0gc3Vic2V0IChwcm9kdWNjaW9uMiwgc2VsZWN0ID0gLWMgKEhSLi5GSU4pKQpwcm9kdWNjaW9uMiA8LSBzdWJzZXQgKHByb2R1Y2Npb24yLCBzZWxlY3QgPSAtYyAoRVNUQUNJT04uQVJSQU5RVUUpKQpwcm9kdWNjaW9uMiA8LSBzdWJzZXQgKHByb2R1Y2Npb24yLCBzZWxlY3QgPSAtYyAoSU5JQ0lPLlNFUC5VUCkpCnByb2R1Y2Npb24yIDwtIHN1YnNldCAocHJvZHVjY2lvbjIsIHNlbGVjdCA9IC1jIChGSU4uSU5JQ0lPLkRFLlNFUC5VUCkpCnByb2R1Y2Npb24yIDwtIHN1YnNldCAocHJvZHVjY2lvbjIsIHNlbGVjdCA9IC1jIChJTklDSU8uZGUuUFJPQ0VTTykpCnByb2R1Y2Npb24yIDwtIHN1YnNldCAocHJvZHVjY2lvbjIsIHNlbGVjdCA9IC1jIChGSU4uZGUuUFJPQ0VTTykpCgpzdW1tYXJ5KHByb2R1Y2Npb24yKQpgYGAKCiMjIyMgVMOpY25pY2EgMjogY29udmVydGlyIGNhcmFjdGVyCgoqQ29udmVydGltb3MgY2hhcmFjdGVyZXMgZW50ZXJvcyBhIG51bcOpcmljb3MuKgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJ0aWJibGUiKQpsaWJyYXJ5KHRpYmJsZSkKcHJvZHVjY2lvbjIkVE1PLi5NSU4uPC0gYXMubnVtZXJpYyhwcm9kdWNjaW9uMiRUTU8uLk1JTi4pCnByb2R1Y2Npb24yJFBJRVpBUy5QUk9HLjwtIGFzLm51bWVyaWMocHJvZHVjY2lvbjIkUElFWkFTLlBST0cuKQpwcm9kdWNjaW9uMiRUSUVNUE8uQ0FMSURBRDwtIGFzLm51bWVyaWMocHJvZHVjY2lvbjIkVElFTVBPLkNBTElEQUQpCnByb2R1Y2Npb24yJExhbWluYXMucHJvY2VzYWRhczwtIGFzLm51bWVyaWMocHJvZHVjY2lvbjIkTGFtaW5hcy5wcm9jZXNhZGFzKQpwcm9kdWNjaW9uMiRDTElFTlRFPC0gYXMuY2hhcmFjdGVyKHByb2R1Y2Npb24yJENMSUVOVEUpCgp0aWJibGUocHJvZHVjY2lvbjIpCmBgYAoKIyMjIyBUw6ljbmljYSAzOiBlbGltaW5hciBOQXMKCipTZSBkZWNpZGnDsyByZWFsaXphciBlc3TDoSB0w6ljbmljYSBwYXJhIGFzZWd1cmFybm9zIGRlIHF1ZSBubyBzZSB0ZW5nYSBmYWx0YSBkZSBkYXRvcyB5IGVuIGNhc28gZGUgdGVuZXJsb3MgZXZpdGFyIHF1ZSBlc3RhcyBldml0ZW4gdGVuZXIgdW4gYW5hbGlzaXMgYXNlcnRpdm8gYWwgbm8gYWdyZWdhciB2YWxvciBhIGxhIGJhc2UgZGUgZGF0b3MuKgoKIyMjIyMgwr9DdWFudG9zIE5BIHRlbmdvIGVuIGxhIGJhc2UgZGUgZGF0b3M/CgpgYGB7cn0Kc3VtKGlzLm5hKHByb2R1Y2Npb24yKSkKYGBgCgojIyMjIyBDdWFudG9zIE5BIHRlbmdvIHBvciB2YXJpYWJsZT8KCioqU2FwcGx5OioqIFBhcmEgY29udGFyIGxvcyBOQQoKYGBge3J9CnNhcHBseShwcm9kdWNjaW9uMiwgZnVuY3Rpb24oeCkgc3VtKGlzLm5hKHgpKSkKYGBgCgoqKk9ic2VydmFjacOzbjoqKkNvbnRhbW9zIGNvbiAyMTYxIE5BcywgMTY0IGVuIGxhIHZhcmlhYmxlIGRlIHBpZXphcyBwcm9ncmFtYWRhcywgNzE0IGVuIHRpZW1wbyBtw61uaW1vLCA2NjEgZW4gTGFtaW5hcyBQcm9jZXNhZGFzIHkgNjIyIFRpZW1wbyBkZSBDYWxpZGFkLgoKIyMjIyMgRWxpbWluYW1vcyBOQXMKCmBgYHtyfQpwcm9kdWNjaW9uMzwtcHJvZHVjY2lvbjIKZGVsZXRlLm5hIDwtIGZ1bmN0aW9uKGRmLCBuPTApIHsKICBkZltyb3dTdW1zKGlzLm5hKGRmKSkgPD0gbixdCn0KI2RlbGV0ZS5uYShwcm9kdWNjaW9uMykKcHJvZHVjY2lvbjMgPC0gbmEub21pdChwcm9kdWNjaW9uMykKCnN1bW1hcnkocHJvZHVjY2lvbjMpCnN1bShpcy5uYShwcm9kdWNjaW9uMykpCmBgYAoKIyMjIyAqSWRlbnRpZmljYXIgdmFyaWFibGVzKgoKKipDdWFudGl0YXRpdmE6KiogRGlzY3JldGEsIENvbnRpbnVhICoqRXNjYWxhIGRlIG1lZGljacOzbjoqKkludGVydmFsbywgUmF6w7NuICoqQ3VhbGl0YXRpdmEqKiAqKkVzY2FsYSBkZSBtZWRpY2nDs246KiogTm9taW5hbGVzLCBPcmRpbmFsZXMKCmBgYHtyfQpWYXJpYWJsZTwtYygiYENMSUVOVEVgIiwiYFBJRVpBUy5QUk9HLmAiLCAiYCBUTU8uLk1JTi5gIiwgImAgTGFtaW5hcy5wcm9jZXNhZGFzYCIsICJgIFRJRU1QTy5DQUxJREFEYCIpClR5cGU8LWMoIkN1YWxpdGF0aXZhIiwgIkN1YW50aXRhdGl2YSAoZGlzY3JldGEpIiwiQ3VhbnRpdGF0aXZhIChkaXNjcmV0YSkiLCJDdWFudGl0YXRpdmEgKGRpc2NyZXRhKSIsIkN1YW50aXRhdGl2YSAoZGlzY3JldGEpIikKTWVhc3VyZW1lbnQ8LWMoIk5vbWluYWwiLCAiUmF6w7NuIiwiUmF6w7NuIiwiUmF6w7NuIiwiUmF6w7NuIikKdGFibGU8LWRhdGEuZnJhbWUoVmFyaWFibGUsVHlwZSxNZWFzdXJlbWVudCkKCmtuaXRyOjprYWJsZSh0YWJsZSkKYGBgCgojIyAqKlNlY2Npw7NuIDIuMSoqCgoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqCgojIyMgKlRhYmxhIGRlIE1lZGlhLCBNb2RhIHkgTWVkaWFuYSoKCmBgYHtyfQptZWRpYW4ocHJvZHVjY2lvbjMkTGFtaW5hcy5wcm9jZXNhZGFzLCBuYS5ybSA9IFRSVUUpCm1lYW4ocHJvZHVjY2lvbjMkTGFtaW5hcy5wcm9jZXNhZGFzLCBuYS5ybSA9IFRSVUUpCnNkKHByb2R1Y2Npb24zJExhbWluYXMucHJvY2VzYWRhcywgbmEucm0gPSBGQUxTRSkKI21mdihwcm9kdWNjaW9uMyRMYW1pbmFzLnByb2Nlc2FkYXMpCgp2YXJpYWJsZTwtYygiJ0xhbWluYXMucHJvY2VzYWRhcyIpCk1lZGlhbmE8LWMoIjEwMSIpCk1lZGlhIDwtIGMoIjEzNCIpCk1vZGEgPC0gYygiMCIpCkRlc3ZpYWNpw7NuX2VzdGFuZGFyPC1jKCIxMzgiKQp0YWJsZTEgPC0gZGF0YS5mcmFtZSAodmFyaWFibGUsIE1lZGlhbmEsIE1lZGlhLCBNb2RhLCBEZXN2aWFjacOzbl9lc3RhbmRhcikKa25pdHI6OmthYmxlKHRhYmxlMSkKCm1lZGlhbihwcm9kdWNjaW9uMyRQSUVaQVMuUFJPRy4sIG5hLnJtID0gVFJVRSkKbWVhbihwcm9kdWNjaW9uMyRQSUVaQVMuUFJPRy4sIG5hLnJtID0gVFJVRSkKc2QocHJvZHVjY2lvbjMkUElFWkFTLlBST0cuLCBuYS5ybSA9IEZBTFNFKQojbWZ2KHByb2R1Y2Npb24zJFBJRVpBUy5QUk9HLikKCnZhcmlhYmxlPC1jKCInUElFWkFTLlBST0cuIikKTWVkaWFuYTwtYygiMTkyIikKTWVkaWEgPC0gYygiMTcyLjczIikKTW9kYSA8LSBjKCIyMDAiKQpEZXN2aWFjacOzbl9lc3RhbmRhcjwtYygiMTI0Ljk1IikKdGFibGUyIDwtIGRhdGEuZnJhbWUgKHZhcmlhYmxlLCBNZWRpYW5hLCBNZWRpYSwgTW9kYSwgRGVzdmlhY2nDs25fZXN0YW5kYXIpCmtuaXRyOjprYWJsZSh0YWJsZTIpCmBgYAoKIyMgKipHcsOhZmljb3MqKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgQ3VhbGl0YXRpdmEqKgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJwbHlyIikKbGlicmFyeShwbHlyKQpwaWUodGFibGUocHJvZHVjY2lvbjMkQ0xJRU5URSkpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgRGUgRGlzcGVyc2nDs24qKgoKYGBge3J9CmJveHBsb3RzPXN1YnNldChwcm9kdWNjaW9uMyxzZWxlY3Q9LWMoQ0xJRU5URSkpCmJveHBsb3QodGFibGUgKHByb2R1Y2Npb24zJENMSUVOVEUpLCBtYWluID0gIlBlZGlkb3MgZGUgQ2xpZW50ZXMiLCB4bGFiID0gIkNsaWVudGVzIiwgeWxhYiA9ICJDYW50aWRhZCIpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgQmFycGxvdCoqCgpSZWNvcGlsYW5kbyBsYSBpbmZvcm1hY2lvbiBtZSB0b3BlIGNvbiBlc3RvcyBkYXRvcyBsbyBjdWFsIG5vcyBpbmZvcm1hIGFjZXJjYSBkZSBsb3MgY2xpZW50ZXMgbWFzIGRlc3RhY2Fkb3MgcGFyYSBmb3JtIHkgZWwgdGllbXBvIG1pbmltbyBkZSB0YXJkYW56YSBlbiBlbCBlbnNhbWJsYWplIGRlIGxvcyBwcm9kdWN0b3MsIGVuIGVzdGUgY2FzbyBlbCBwcmltZXIgbHVnYXIgY29uIG1hcyBlZmljaWVuY2lhIHBvciBjbGllbnRlIGZ1ZSBzdGFiaWx1cyBlbiBsYSBwcmltZXJhIHZ1ZWx0YS4KCmBgYHtyfQpzdW1tYXJ5KHByb2R1Y2Npb24zKQpwcm9kdWNjaW9uNCA8LSBwcm9kdWNjaW9uMwojcHJvZHVjY2lvbjQ8LXByb2R1Y2Npb240ICU+JSBzZWxlY3QoUElFWkFTLlBST0cuLFRNTy4uTUlOLixDTElFTlRFICkgJT4lIGdyb3VwX2J5KENMSUVOVEUpICU+JSAKICAjc3VtbWFyaXNlKFBJRVpBUy5QUk9HLj1zdW0oUElFWkFTLlBST0cuKSxUTU8uLk1JTi49c3VtKFRNTy4uTUlOLikpICU+JSBhcnJhbmdlKGRlc2MocGllemFzX3Byb2cpKQoKcHJvZHVjY2lvbjQ8LXByb2R1Y2Npb240Wy1jKDcsOCw5KSxdIAoKCmdncGxvdChwcm9kdWNjaW9uNCxhZXMoeD1yZW9yZGVyKFRNTy4uTUlOLixQSUVaQVMuUFJPRy4pLCB5PVBJRVpBUy5QUk9HLixmaWxsPUNMSUVOVEUpKSArCiAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiKQpgYGAKCkVuIGVzdGEgdGFibGEgc2UgbXVlc3RyYSB1biBjbGFybyBlamVtcGxvIGRlIGNvbXBhcmFjaW9uIHF1ZSBlbnRyZSBtYXMgdGllbXBvIGRlIGNhbGlkYWQgc2UgbGUgZGUgYWwgY2xpZW50ZSBzZSBsb2dyYXJhIGhhY2VyIHVuIHRpZW1wbyBtdWNobyBtYXMgbWluaW1vIGVmaWNpZW50aXphbmRvIGxvcyBwcm9jZXNvcyB5IHRlcm1pbmFuZG9sb3MgbWFzIHJhcGlkbyBjb21vIGZ1ZSBjb24gbG9zIGNsaWVudGVzIGVuIGF6dWwuCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipHcsOhZmljYSBCYXJwbG90KioKCmBgYHtyfQpnZ3Bsb3QocHJvZHVjY2lvbjQsYWVzKHg9Q0xJRU5URSwgeT1QSUVaQVMuUFJPRy4sZmlsbD1USUVNUE8uQ0FMSURBRCkpICsKICBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIpCmBgYAoKRW4gZXN0ZSBncsOhZmljbyB2aXN1YWxpemFtb3MgbGEgY2FudGlkYWQgZGUgcGllemFzIHByb2dyYW1hZGFzIHF1ZSBzZSB0aWVuZSBwb3IgY2xpZW50ZSB5IGVsIHRpZW1wbyBkZSBjYWxpZGFkIGRlIGNhZGEgdW5vLiBFbiBzdSBtYXlvcsOtYSBsb3MgY2xpZW50ZXMgY3VlbnRhbiBjb24gdW4gdGllbXBvIGRlIGNhbGlkYWQgZGUgMCwgcG9yIGxvIHF1ZSBwb2RlbW9zIGluZmVyaXIgcXVlIHNlIHRpZW5lIHVuIGJ1ZW4gYXByb3ZlY2hhbWllbnRvIGRlbCB0aWVtcCB5IHVuYSBlZmljaWVuY2lhIGVuIGxhIGVudHJlZ2EgeSBwcm9kdWNjacOzbiBkZSBsYXMgcGllemFzIHByb2dyYW1hZGFzLgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqR3LDoWZpY2EgRGlzcGVyc2nDs24gMSoqCgpgYGB7cn0KZ2dwbG90KHByb2R1Y2Npb240LCBhZXMoeD1USUVNUE8uQ0FMSURBRCwgeT1UTU8uLk1JTi4sIGNvbG9yPUNMSUVOVEUpKSArCiAgZ2VvbV9wb2ludCgpICsgZ2VvbV9ydWcoKQpgYGAKCkVuIGVzdGEgZ3JhZmljYSwgc2UgdGllbmUgbGEgaW50ZW5jaW9uIGRlIHZlciBhIGxvcyBjb21wcmFkb3JlcyBwcmVkb21pbmFudGVzIGRlbnRybyBkZSBGT1JNIGR1cmFudGUgbG9zIHRyZXMgbWVzZXMgcHJlZGljdGl2b3MsIGVzdG8gcGFyYSBwb2RlciBsb2dyYXIgdW5hIGF0ZW5jaW9uIGVzcGVjaWFsaXphZGEgeSB2ZXIgbWFzIG8gbWVub3MgZWwgdGllbXBvIHF1ZSB0b21hbiBzdXMgcHJvZHVjdG9zIHkgZ2VuZXJhciB1biB0aXBvIGRlIHByb2Nlc29zIG1hcyBmbHVpZG8uCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipHcsOhZmljYSBEaXNwZXJzacOzbiAyKioKCmBgYHtyfQpnZ3Bsb3QocHJvZHVjY2lvbjQsIGFlcyh4PUNMSUVOVEUsIHk9TGFtaW5hcy5wcm9jZXNhZGFzLCBjb2xvcj1UTU8uLk1JTi4pKSArCiAgZ2VvbV9wb2ludCgpICsgZ2VvbV9ydWcoKQpgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKlNlcmllcyBkZSBUaWVtcG8qKgoKYGBge3J9CmdncGxvdChwcm9kdWNjaW9uNCxhZXMoeD1USUVNUE8uQ0FMSURBRCkpKwogIGdlb21fbGluZShhZXMoeT1QSUVaQVMuUFJPRy4pLGNvbG9yPSJvcmFuZ2UiKSsKICBsYWJzKHg9IlRpZW1wbyBkZSBDYWxpZGFkIix5PSJwaWV6YXMgcHJvZ3JhbWFkYXMiLCBjb2xvcj0ib3JhbmdlIikrCiAgZ2d0aXRsZSgiR3JhZmljYSBkZSB0YXNhIGRlIHJlbmRpbWllbnRvIikKYGBgCgojIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrZ3JlZW4iPioqSW5zaWdodHMqKgoKQ29uIGxhIGJhc2UgZGUgZGF0b3MgZGUgKipQcm9kdWNjacOzbioqLCBwb2RlbW9zIHZlciBxdWUgYSBsb3MgY2xpZW50ZXMgU3RhYmlsdXMgMyB5IFRSTVggc2UgbGVzIHByb3BvcmNpb25hIG1heW9yIHRpZW1wbyBkZSBjYWxpZGFkIHBvciBsbyBxdWUgZGVzcHXDqXMgcHJvdm9jYSB0ZW5lciBzdXMgcGVkaWRvcyBtw7FhcyByYXBpZG9zIHkgZWZpY2llbnRpemFyIGxvcyB0aWVtcG9zIGRlIGVudHJlZ2EuIFBvciBvdHJvIGxhZG8gYSBjbGllbnRlcyBjb21vIFN0YWJpbHVzIDEgeSBWYXJyb2Mgc2UgbGUgZGVkaWPDsyBtdXkgcG9jbyB0aWVtcG8gZGUgY2FsaWRhZCwgcGVybyBtw6FzIHRpZW1wbyBwYXJhIHBvZGVyIGVudHJlZ2FyIGxvcyBwcm9kdWN0b3MuIFRhbWJpw6luIHB1ZG1pcyBvYnNlcnZhciBhIHRyYXbDqXMgZGUgYm94cGxvdHMgcXVlIGVsIHJhbmdvIGRlIHBlZGlkb3MgdnNhcmlhIGVudHJlIGxvcyA1MCB5IDIwMCBwZWRpZG9zIHRlbmllbmRvIHVuYSBtZWRpYSBkZSAxNTAgcGVkaWRvcy4gQ29uIGVzdGEgaW5mb3JtYWNpw7NuIHBvZGVtb3MgcHJvcG9uZXIgZWwgKippbXBsZW1lbnRhciBLUElzKiogZGUgbGEgY2FudGlkYWQgZGUgcGVkaWRvcyBxdWUgc2Ugb2J0aWVuZW4geSBhc8OtIG1lZGlyIHN1IGNyZWNpbWllbnRvIGUgaW1wbGVtZW50YXIgZXN0cmF0ZWdpYXMgZGUgbWFya2V0aW5nIHBhcmEgaGFjZXIgcXVlIGVzZSBLUEkgdGVuZ28gY2llcnRvIHBvcmNlbnRhamUgZGUgY3JlY2ltaWVudG8gYWwgbWVzLgoKIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKjUuIE1lcm1hKioKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipJbXBvcnRhciBsYSBiYXNlIGRlIGRhdG9zKioKCmBgYHtyfQojZmlsZS5jaG9vc2UoKQptZXJtYSA8LSByZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9GT1JNIC0gTWVybWEgbGltcGlhLmNzdiIpCnN1bW1hcnkobWVybWEpCgpgYGAKCiMjICoqU2VjY2nDs24gMSoqCgoqTGltcGllemEgdHJhbnNmb3JtYWNpw7NuIHkgb3JnYW5pemFjacOzbiBkZSBiYXNlIGRlIGRhdG9zLioKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKk9ic2VydmFjaW9uZXMqKgoKKjEuIEVuIGVzdGEgYmFzZSBkZSBkYXRvcyBzZSBlbGltaW5hcm9uIGxhcyBjb2x1bWFuYXMgcXVlIG5vIGVyYSByZWxldmFudGUgcGFyYSBlbCBhbmFsaXNpcywgU2UgZWxpbWluYXJvbiBsb3MgcmVnaXN0cm9zIGRlIHRvdGFsIGRlIG1lcm1hIHkgbGEgY29sdW1uYSBkZSBtZXMgeWEgcXVlIG5vIHRlbsOtYW4gbXVjaGEgc2lnbmZpY2FuY2lhIGVuIGVsIGFuw6FsaXNpcyB5IGxhIGluZm9ybWFjacOzbiBxdWUgc2UgYnVzY2EgZXh0cmFlci4qCgoqMi5QYXJhIGVsIGNhc28gZGUgdmFyaWFibGVzIGN1YW50aXRhdGl2YXMgY29uc2lkZXJhciBsYSBwb3NpYmlsaWRhZCBkZSByZWVtcGxhemFyIGxhIHByZXNlbmNpYSBkZSAibWlzc2luZyB2YWx1ZXMiIGNvbiBlc3RhZMOtc3RpY29zIGRlc2NyaXB0aXZvcyAocG9yIGVqZW1wbG8sIG1lZGlhLCBtZWRpYW5hLCBtb2RhKS4qCgojIyMgKkRlc2NhcmdhciBsaWJyZXLDrWFzIHkgcGFxdWV0ZXMqCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImRwbHlyIikKI2luc3RhbGwucGFja2FnZXMoIm1lcmdlKQpsaWJyYXJ5KGRwbHlyKQojbGlicmFyeShtZXJnZSkKCmBgYAoKIyMjICpDdWFudGFzIHZhcmlhYmxlcyB5IHJlZ2lzdHJvcyBoYXkqCgoqQ29udGFtb3MgY29uIDQyIHJlZ2lzdHJvcyB5IDIgdmFyaWFibGVzLioKCmBgYHtyfQpzdHIobWVybWEpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipUw6ljbmljYXMgZGUgTGltcGllemEqKgoKIyMjIyBUw6ljbmljYSAxOiBjYW1iaWFyIG5vbWJyZXMKCipTZSBkZWNpZGnDsyBzaW1wbGlmaWNhciBsb3Mgbm9tYnJlcyBkZSBsYXMgdmFyaWFibGVzIHBhcmEgc2ltcGxpZmljYXIgZWwgdXNvIGRlIGxhcyBtaXNtYXMuKgoKYGBge3J9Cm1lcm1hMTwtIG1lcm1hCiNtZXJtYTE8LW1lcm1hICU+JSBzZWxlY3Qob25lX29mKCJGZWNoYSIsIktpbG9zIikpCmNvbG5hbWVzKG1lcm1hMSkgPC1jICgiRmVjaGEiLCJLaWxvcyIpCnN1bW1hcnkobWVybWExKQpgYGAKCiMjIyMgVMOpY25pY2EgMjoKCiMjIyAqSWRlbnRpZmljYXIgdmFyaWFibGVzKgoKKipDdWFudGl0YXRpdmE6KiogRGlzY3JldGEsIENvbnRpbnVhICoqRXNjYWxhIGRlIG1lZGljacOzbjoqKkludGVydmFsbywgUmF6w7NuICoqQ3VhbGl0YXRpdmEqKiAqKkVzY2FsYSBkZSBtZWRpY2nDs246KiogTm9taW5hbGVzLCBPcmRpbmFsZXMKCmBgYHtyfQpWYXJpYWJsZTwtYygiYEZlY2hhYCIsImBJRE1lc2AiLCAiYCBNZXNgIiwgImAgS2lsb3NgIikKVHlwZTwtYygiQ3VhbnRpdGF0aXZhIChjb250aW51YSkiLCAiQ3VhbGl0YXRpdmEiLCJDdWFsaXRhdGl2YSIsIkN1YW50aXRhdGl2YSAoZGlzY3JldGEpIikKTWVhc3VyZW1lbnQ8LWMoIlJhesOzbiIsICJOb21pbmFsIiwiTm9taW5hbCIsIlJhesOzbiIpCnRhYmxlPC1kYXRhLmZyYW1lKFZhcmlhYmxlLFR5cGUsTWVhc3VyZW1lbnQpCgprbml0cjo6a2FibGUodGFibGUpCmBgYAoKIyMgKipTZWNjacOzbiAyLjEqKgoKKkFuw6FsaXNpcyBFeHBsb3JhdG9yaW8gZGUgbGFzIEJhc2VzIGRlIERhdG9zKgoKIyMjICpUYWJsYSBkZSBNZWRpYSwgTW9kYSB5IE1lZGlhbmEqCgpgYGB7cn0KbWVkaWFuKG1lcm1hMSRLaWxvcywgbmEucm0gPSBUUlVFKQptZWFuKG1lcm1hMSRLaWxvcywgbmEucm0gPSBUUlVFKQpzZChtZXJtYTEkS2lsb3MsIG5hLnJtID0gRkFMU0UpCiNtZnYobWVybWExJEtpbG9zKQoKdmFyaWFibGU8LWMoIidLaWxvcyIpCk1lZGlhbmE8LWMoIjQwMjUiKQpNZWRpYSA8LSBjKCI0NDE1IikKTW9kYSA8LSBjKCI0MTkwIikKRGVzdmlhY2nDs25fZXN0YW5kYXI8LWMoIjI1NzEuNzkzIikKdGFibGUxIDwtIGRhdGEuZnJhbWUgKHZhcmlhYmxlLCBNZWRpYW5hLCBNZWRpYSwgTW9kYSwgRGVzdmlhY2nDs25fZXN0YW5kYXIpCmtuaXRyOjprYWJsZSh0YWJsZTEpCmBgYAoKIyMgKipHcsOhZmljb3MqKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqVGltZSBTZXJpZXMgUGxvdCoqCgpgYGB7cn0KCm1lcm1hMSRGZWNoYTwtYXMuRGF0ZShtZXJtYTEkRmVjaGEsZm9ybWF0PSIlZC8lbS8leSIpIAoKI2luc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQpsaWJyYXJ5KGdncGxvdDIpCnN1bW1hcnkobWVybWExKQpnZ3Bsb3QobWVybWExLGFlcyh4PUZlY2hhKSkrCiAgZ2VvbV9saW5lKGFlcyh5PUtpbG9zKSxjb2xvcj0iYmx1ZSIpKwogIGxhYnMoeD0iRmVjaGEiLHk9IktpbG8iLCBjb2xvcj0iTGVnZW5kIikrCiAgIGdndGl0bGUoIktpbG9zIGRlIG1lcm1hIHBvciBtZXMiKQpgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkdyw6FmaWNhIGN1YW50aXRhdGl2YSoqCgpgYGB7cn0KI2ZpbGUuY2hvb3NlKCkKbWVybWEyIDwtIHJlYWQuY3N2KCIvVXNlcnMvdmFuZXNzYWVsaXpvbmRvL0Rlc2t0b3AvVGVjL1NlbWVzdHJlIDcvRk9STS9DU1YvRk9STSAtIE1lcm1hLmNzdiIpCnN1bW1hcnkobWVybWEyKQoKI3RhYmxlKG1lcm1hMiRNZXMsIG1lcm1hMiRLaWxvcykKYmFycGxvdCh0YWJsZShtZXJtYTIkS2lsb3MsIG1lcm1hMiRJRE1lcyksIGNvbD0icHVycGxlIiwgbWFpbiA9ICJDYW50aWRhZCBkZSBLaWxvcyBkZSBtZXJtYSBwb3IgbWVzIiwgeGxhYiA9ICJJRCBNZXMiLCB5bGFiID0gIktpbG9zIiApCmBgYAoKIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya2dyZWVuIj4qKkluc2lnaHRzKioKClVuYSByZWZsZXhpw7NuIHF1ZSBzZSB0b21hIHNvYnJlIGVzdGEgYWN0aXZpZGFkIGVzIHF1ZSBzb2xvIGNvbnRhbW9zIGNvbiBkb3MgdmFyaWFibGVzIHJlbGV2YW50ZXMgbGFzIGN1YWwgbm9zIHB1ZWRlIGRlY2lyIGFsZ28sIGVuIGVzdGUgY2FzbyBzb2xvIHNlIHV0aWxpem8gbGEgZGUgZmVjaGEgeSBsYSBkZSBsb3Mga2lsb3MgZGUgbWVybWEuCgpFbiBsYSBiYXNlIGRlIGRhdG9zIGRlICoqTWVybWEqKiwgYW5hbGl6YW1vcyBjb21vIGNhbWJpYW4gbG9zIGtpbG9zIHF1ZSBzZSBnZW5lcmFuIHBvciBtZXMsIHkgcG9kZW1vcyB2ZXIgcXVlIGVuICoqSnVuaW8qKiBlcyBkb25kZSBtYXlvciBtZXJtYSBzZSBnZW5lcmEsIGVzdG8gcHVlZGUgc2VyIGRlYmlkbyBhIHF1ZSBlbiBqdW5pbyB0aWVuZW4gbWF5b3IgcHJvZHVjY2nDs24sIGVzIHBvciBlbGxvIHF1ZSBkZWJlbiBkZSBjb250ZW1wbGFyIHJlYWxpemFyIHVuIHByb2dyYW1hIHF1ZSBtaWRhbiBsYXMgY2FudGlkYWRlcyBkZSBwZWRpZG9zIHF1ZSBzZSBwcmVkaWNlbiBwb3IgbWVzIHkgZGUgZXNlIG1vZG8sIHVuaWNhbWVudGUgcGVkaXIgbG9zIG1hdGVyaWFsZXMgcXVlIHNlIHJlcXVpZXJlbiB5IHBvZHLDrWFuIGxsZWdhciBhIGNvbnRyYXRhciBhIGVtcGxlYWRvcyBleHRyYSBwYXJhIGFnaWxpemFyIGVsIHByb2Nlc28gZGUgbWF0ZXJpYWxlcyB5IGNvbm9jZXIgbGEgZmFsbGEgZW4gc3UgbG9naXN0aWNhIGRlIHByb2R1Y2Npw7NuIHBvciBsYSBjdWFsIHNlIGdlbmVyYSBtdWNoYSBtZXJtYS4KClVuIGRhdG8gaW1wYWN0YW50ZSBlcyBxdWUgbGEgbWF5b3LDrWEgZGUgbGFzIHZlY2VzIGxhIGVtcHJlc2EgdGllbmUgdW5hIG1lcm1hIGNvbnN0YW50ZSwgZXN0YSB2YXJpYSBwZXJvIGNhc2kgdG9kb3MgbG9zIG1lc2VzIGN1ZW50YW4gY29uIGFsIHJlZGVkb3IgZGUgNSB0b25lbGFkYXMgZGUgbWVybWEsIGRlIGFjdWVyZG8gY29uIGxhcyBmZWNoYXMgcXVlIG5vcyBkaWVyb24gZW4gZXN0YSBiYXNlIGRlIGRhdG9zIHNlIGFuYWxpem8gcXVlIGRlIGVuZXJvIGEgbWFyem8gZXhpc3Rpw7MgdW5hIGdyYW4gY2FudGlkYWQgZGUgbWVybWEgcXVlIGxsZWdvIGFsIHJlZGVkb3IgZGUgMTcgdG9uZWxhZGFzIGRlIG1lcm1hLCBwb3IgbG8gdGFudG8gc2UgZGViZSBkZSBhbmFsaXphciBlbiBsYSBlbXByZXNhIHF1ZSBmdWUgbG8gcXVlIHN1Y2VkacOzIGVuIGVzdGUgbGFwc28gZGUgdGllbXBvLCBwdWVkbyBzZXIgcXVlIHVuIGNsaWVudGUgY2FuY2VsYXJhIGFsZ8O6biBwZWRpZG8sIHF1ZSBoYXlhIGdlbmVyYWRvIHVuYSBncmFuIGNhbnRpZGFkIGRlIG1lcm1hLgoKIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKjYuIFNjcmFwKioKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipJbXBvcnRhciBiYXNlIGRlIGRhdG9zKioKCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpzY3JhcCA8LSByZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9GT1JNIC0gU2NyYXAgTGltcGlhIC5jc3YiKQpzdW1tYXJ5KHNjcmFwKQoKYGBgCgojIyAqKlNlY2Npw7NuIDEqKgoKKkxpbXBpZXphIHRyYW5zZm9ybWFjacOzbiB5IG9yZ2FuaXphY2nDs24gZGUgYmFzZSBkZSBkYXRvcy4qCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipPYnNlcnZhY2lvbmVzKioKCipTZSBoaXpvIGxpbXBpZXphIG1hbnVhbCBkZSBsYSBiYXNlIGRlIGRhdG9zIHBhcmEgc2VwYXJhciBmZWNoYSB5IGhvcmEgZW4gZGlmZXJlbnRlcyBjb2x1bW5hcyB5IHNlIGVsaW1pbmFyb24gY29sdW1uYXMgcXVlIG5vIHRpZW5lbiBtdWNoYSBzaWduaWZpY2FuY2lhIGVuIGVsIGFuw6FsaXNpcyB5IGxhIGluZm9ybWFjacOzbiBxdWUgc2UgYnVzY2EgZXh0cmFlciB5IGVudGVuZGVyLCBzZSBlbGltaW5hbiBSZWZlcmVuY2lhLCBQcm9kdWN0bywgVW5pZGFkLmRlLm1lZGlkYSAsIFViaWNhY2nDs24uZGUuZGVzZWNobywgRXN0YWRvLioKCiMjIyAqRGVzY2FyZ2FyIGxpYnJlcsOtYXMgeSBwYXF1ZXRlcyoKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygiZHBseXIiKQojaW5zdGFsbC5wYWNrYWdlcygibWlyYWdlIikKI2luc3RhbGwucGFja2FnZXMoImRwbHlyIikKbGlicmFyeShkcGx5cikKI2xpYnJhcnkobWlyYWdlKQpgYGAKCiMjIyAqQ3VhbnRhcyB2YXJpYWJsZXMgeSByZWdpc3Ryb3MgaGF5KgoKYGBge3J9CnN0cihzY3JhcCkKYGBgCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6b3JhbmdlIj4qKlTDqWNuaWNhcyBkZSBMaW1waWV6YSoqCgojIyMjIFTDqWNuaWNhIDE6IGVsaW1pbmFyIE5BcwoKIyMjIyMgwr9DdWFudG9zIE5BIHRlbmdvIGVuIGxhIGJhc2UgZGUgZGF0b3M/CgpgYGB7cn0Kc3VtKGlzLm5hKHNjcmFwKSkKYGBgCgojIyMjIyBDdWFudG9zIE5BIHRlbmdvIHBvciB2YXJpYWJsZT8KCioqKlNhcHBseToqKiBQYXJhIGNvbnRhciBsb3MgTkEqCgpgYGB7cn0Kc2FwcGx5KHNjcmFwLCBmdW5jdGlvbih4KSBzdW0oaXMubmEoeCkpKQpgYGAKCiMjIyMgVMOpY25pY2EgMjogZWxpbWluYXIgY29sdW1uYXMKCipTZSBkZWNpZMOzIHJlYWxpemFyIGVzdMOhIHTDqWNuaWNhIHBhcmEgZGVzaGFjZXJub3MgZGUgaW5mb3JtYWNpw7NuIHF1ZSBubyBlcyBtdXkgcmVsZXZhbnRlIHBhcmEgZWwgYW7DoWxpc2lzIGRlIG51ZXN0cmEgYmFzZSBkZSBkYXRvcy4qCgpgYGB7cn0Kc2NyYXAyIDwtIHNjcmFwCnNjcmFwMiA8LSBzdWJzZXQgKHNjcmFwMiwgc2VsZWN0ID0gLWMgKEhvcmEpKQpzY3JhcDIgPC0gc3Vic2V0IChzY3JhcDIsIHNlbGVjdCA9IC1jIChQcm9kdWN0bykpCnNjcmFwMiA8LSBzdWJzZXQgKHNjcmFwMiwgc2VsZWN0ID0gLWMgKFViaWNhY2nDs24uZGUuZGVzZWNobykpCnNjcmFwMiA8LSBzdWJzZXQgKHNjcmFwMiwgc2VsZWN0ID0gLWMgKFVuaWRhZC5kZS5tZWRpZGEgKSkKc2NyYXAyIDwtIHN1YnNldCAoc2NyYXAyLCBzZWxlY3QgPSAtYyAoUmVmZXJlbmNpYSApKQpzY3JhcDIgPC0gc3Vic2V0IChzY3JhcDIsIHNlbGVjdCA9IC1jIChFc3RhZG8gKSkKCnN1bW1hcnkoc2NyYXAyKQpgYGAKCiMjIyMgVMOpY25pY2EgMzogQ2FtYmlhciBub21icmVzCgoqQ2FtYmlhciBsb3Mgbm9tYnJlcyBkZSBsYXMgY29sdW1uYXMgLyB2YXJpYWJsZXMgYSBub21icmVzIG3DoXMgY29ydG9zIHkgZXNwZWPDrWZpY29zLiBQb3IgZWplbXBsbywgbXVuaWNpcGlvIOKGkiBtcGlvLCBzYWxhcmlvIG3DrW5pbW8gZGlhcmlvIOKGkiBzYWxhcmlvX21pbi4qCgpgYGB7cn0KI3NlbGVjY2lvbmFyIGNvbHVtbmFzIC8gdmFyaWFibGVzLgojc2NyYXAyPC1zY3JhcCAlPiUgc2VsZWN0KG9uZV9vZignRmVjaGEnLCdDYW50aWRhZCcsJ1ViaWNhY2nDs24uZGUub3JpZ2VuJykpCgojUmVub21icmFyIGxhcyBjb2x1bW5hcyAvdmFyaWFibGVzIHNlbGVjY2lvbmFkYXMuIApjb2xuYW1lcyhzY3JhcDIpIDwtYyAoJ0ZlY2hhJywnQ2FudC4nLCdPcmlnZW4nKQpzdW1tYXJ5KHNjcmFwMikKYGBgCgojIyMgKklkZW50aWZpY2FyIHZhcmlhYmxlcyoKCioqQ3VhbnRpdGF0aXZhOioqIERpc2NyZXRhLCBDb250aW51YSAqKkVzY2FsYSBkZSBtZWRpY2nDs246KipJbnRlcnZhbG8sIFJhesOzbiAqKkN1YWxpdGF0aXZhKiogKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqIE5vbWluYWxlcywgT3JkaW5hbGVzCgpgYGB7cn0KVmFyaWFibGU8LWMoImBGZWNoYWAiLCJgQ2FudGlkYWRgIiwgImAgVWJpY2FjacOzbi5kZS5vcmlnZW5gIikKVHlwZTwtYygiQ3VhbnRpdGF0aXZhIChjb250aW51YSkiLCAiQ3VhbnRpdGF0aXZhIChkaXNjcmV0YSkiLCJDdWFsaXRhdGl2YSIpCk1lYXN1cmVtZW50PC1jKCJSYXrDs24iLCJSYXrDs24iLCJOb21pbmFsIikKdGFibGU8LWRhdGEuZnJhbWUoVmFyaWFibGUsVHlwZSxNZWFzdXJlbWVudCkKCmtuaXRyOjprYWJsZSh0YWJsZSkKYGBgCgojIyAqKlNlY2Npw7NuIDIuMSoqCgoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqCgojIyMgQW7DoWxpc2lzIEVzdGFkw61zdGljbyBEZXNjcmlwdGl2bwoKYGBge3J9CnN1bW1hcnkoc2NyYXAyKQpgYGAKCiMjIyAqVGFibGEgZGUgTWVkaWEsIE1vZGEgeSBNZWRpYW5hKgoKYGBge3J9CnNkKHNjcmFwMiRDYW50LiwgbmEucm09IFRSVUUpICAKClZhcmlhYmxlPC1jKCJDYW50LiIpCk1lZGlhbmE8LWMoIjIuMDAiKQpNZWRpYSA8LSBjKCI2LjY5NiIpCk1vZGEgPC0gYygiMSIpICNFWENFTCAKRGVzdmlhY2nDs25fZXN0YW5kYXI8LWMoIjExLjg0ODg1IikKdGFibGUxIDwtIGRhdGEuZnJhbWUgKFZhcmlhYmxlLCBNZWRpYW5hLCBNZWRpYSwgTW9kYSwgRGVzdmlhY2nDs25fZXN0YW5kYXIpCmtuaXRyOjprYWJsZSh0YWJsZTEpCmBgYAoKIyMgKipHcsOhZmljb3MqKgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqIlRpbWUgc2VyaWVzIHBsb3RzIiAobGluZSBwbG90KSoqCgoqTXVlc3RyYW4gbGEgZGlzcGVyc2nDs24gZGUgdmFyaWFibGVzIHNlbGVjaW9uYWRhcy4qCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQojaW5zdGFsbC5wYWNrYWdlcygiYmFycGxvdCIpCmxpYnJhcnkoZ2dwbG90MikKc3VtbWFyeShzY3JhcDIpCmdncGxvdChzY3JhcDIsYWVzKHg9Q2FudC4pKSsKICBnZW9tX2xpbmUoYWVzKHk9T3JpZ2VuKSxjb2xvcj0iUmVkIikrCiAgbGFicyh4PSJDYW50Iix5PSJPcmlnZW4iLCBjb2xvcj0iTGVnZW5kIikrCiAgIGdndGl0bGUoIk1heW9yZXMgY2F0aWRhZGVzIGRlIFNjcmFwIHBvciBvcmlnZW4iKQpgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKlRhYmxhIGRlIEZyZWN1ZW5jaWEqKgoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCdlcGlEaXNwbGF5JykKbGlicmFyeShlcGlEaXNwbGF5KQoKdGFiMShzY3JhcDIkT3JpZ2VuLCBzb3J0Lmdyb3VwID0gImRlY3JlYXNpbmciLCBjdW0ucGVyY2VudCA9IFRSVUUpIApgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkdyw6FmaWNhIGN1YWxpdGF0aXZhKioKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygicGx5ciIpCmxpYnJhcnkocGx5cikKcGllKHRhYmxlKHNjcmFwMiRPcmlnZW4pKQpgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkdyw6FmaWNhIGN1YW50aXRhdGl2YSoqCgpgYGB7cn0KI3RhYmxlKHNjcmFwMiRDYW50aWRhZCxzY3JhcDIkRmVjaGEpCmJhcnBsb3QodGFibGUoc2NyYXAyJENhbnQuLHNjcmFwMiRPcmlnZW4pLCBjb2w9InllbGxvdyIsIG1haW4gPSAiS2lsb3MgZGUgU2NyYXAgc2Vnw7puIHN1IG9yaWdlbiIsIHhsYWIgPSAiT3JpZ2VuIiwgeWxhYiA9ICJLaWxvcyIgKQpgYGAKCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkdyw6FmaWNvcyBkZSBEaXNwZXJzacOzbioqCgpgYGB7cn0KYm94cGxvdHM9c3Vic2V0KHNjcmFwMixzZWxlY3Q9LWMoT3JpZ2VuKSkKYm94cGxvdCh0YWJsZSAoc2NyYXAyJE9yaWdlbiksIG1haW4gPSAiVWJpY2FjacOzbiBkZSBPcmlnZW4iLCB4bGFiID0gIk9yaWdlbiIsIHlsYWIgPSAiQ2FudGlkYWQiKQpgYGAKCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtncmVlbiI+KipJbnNpZ2h0cyoqCgpFbiBlc3RhIGFjdGl2aWRhZCBkZSBsYSBsaW1waWEgeSBvcmdhbml6YWNpw7NuIGRlIGxhIGJhc2UgZGUgZGF0b3MgZGUgU2NyYXAuIE5vcyBkaW1vcyBjdWVudGFzIHF1ZSBsYSBiYXNlIGRlIGRhdG9zIGNvbnRhYmEgY29uIGRpc3RpbnRhcyB2YXJpYWJsZXMgcXVlIG5vIGVyYW4gdGFuIHJlbGV2YW50ZXMgcGFyYSBhbmFsaXphciBsYSBiZCBzY3JhcC4gUG9yIGxvIHRhbnRvIGRlY2lkaW9tb3MgZWxpbWluYXJsYXMgcGFyYSBjb250YXIgY29uIG1lbm9zIHZhcmlhYmxlcyB5IGFzaSBwb2RlciByZWFsaXphciB1biBtZWpvciBhbmFsaXNpcy4KClBvZGVtb3MgZGFybm9zIGN1ZW50YSBjb24gbGEgYmFzZSBkZSBkYXRvcyBkZSAqKlNjcmFwKiogcXVlIGV4aXN0ZSBtdWNobyBzY3JhcCBlbiBsYSBldGFwYSBkZSAqKlBSRS1QUk9EVUNDSU9OKiouIFBhcmEgZWxsbyBzZSBuZWNlc2l0YSByZWFsaXphciB1bmEgbG9naXNpdGNhIGRlIHByb2Nlc28gcGFyYSBlaWZpY2VudGUgZW4gZG9uZGUgc2kgbWlkYSBsYSBjYW50aWRhZCBleGFjdGEgcXVlIHNlIHJlcXVpZXJlIGRlIG1hdGVyaWFsIHBhcmEgY2FkYSBwZWRpZG8geSBhbCBpZ3VhbCBxdWUgdGVuZXIgbWVqb3IgbWVkaWRhcyBkZSByZWNvcnRlcyB5IHN1YWplcyBwYXJhIHRlbmVyIGVsIG1heW9yIHByb3ZlY2hvIGRlIGxvcyBtYXRlcmlhbGVzLgoKRW4gZXN0ZSBhbmFsaXNpcyBub3MgZGltb3MgY3VlbnRhIHF1ZSBsb3MgZGF0b3MgZXN0YWJhbiBvcmduYWl6YWRvcyBlcyBkZWNpciBubyBjb250YWJhbiBjb24gbWlzc2luZyB2YWx1ZXMgcG9yIGxvIHRhbnRvIGVzIGFsZ28gYnVlbm8gcGFyYSBlbCBhbmFsaXNpcywgZGUgdG9kb3MgbW9kb3MgZXMgaW1wb3J0YW50ZSBjb25jaWRlcmFybG9zIHNpIGVzIHJlbGV2YW50ZSBwYXJhIGVsIGFuYWxpc2lzLCBlbiBlc3RlIGNhc28gbm8gc2UgaHViaWVyYW4gZWxpbWluYWRvIHNpIG5vIHF1ZSBzZSBodWJpZXJhbiByZW1wbGF6YWRvIHBvciBsYSBtZWRpYW5hIGRlcGVuZGllbmR0ZSBkZSBsYSB2YXJpYWJsZSBxdWUgZXN0dXZpZXJhbW9zIGFuYWxpc2FuZG8uCgpBbmFsaXNhbmRvIGVzdGFzIHZhcmlhYmxlcyBzZSBjb25maXJtYSBxdWUgZW4gZWwgYXJlYSBkZSBwcmUtcHJvZHVjY2nDs24sZXMgZG9uZGUgc2UgZ2VuZXJhIGxhIG1heW9yaWEgZGVsIHNjcmFwIGVuIHN1IG1heW9yaWEgc2UgZ2VuZXJhIGNhc2kgZWwgODUlIGRlIHNjcmFwLCBxdWUgZ2VuZXJhbiBkZW50cm8gZGUgbGEgZW1wcmVzYSwgcG9yIGxvIHRhbnRvIGVzIGFsYWdvIGFsYXJtYW50ZSBwb3IgbG8gdGFudG8gc2UgdGllbmVuIHF1ZSB0b21hciBkZWNpc2lvbmVzIGltcG9ydGFudGVzIHBhcmEgcG9kZXIgcmVhbGl6YXIgY2FtYmlvcyBlbiBlc3RhIGFyZWEgcGFyYSByZWR1Y2lyIGxhIGNhbnRpZGFkIGRlIHNjcmFwLgoKIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKjcuIEJhc2UgZGUgRGF0b3MgRXh0ZXJuYSoqCgojIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpvcmFuZ2UiPioqSW1wb3J0YXIgYmFzZSBkZSBkYXRvcyoqCgpgYGB7cn0KQ29tcGFuaWVzIDwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvZXh0ZXJuYV9iZDEgY3N2MS5jc3YiKQpzdW1tYXJ5KENvbXBhbmllcykKYGBgCgojIyBJbnN0YWxhciBsaWJyZXLDrWFzIHkgcGFxdWV0ZXMKCmBgYHtyfQpsaWJyYXJ5KHBzeWNoKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KEdHYWxseSkKbGlicmFyeShUU3N0dWRpbykKbGlicmFyeShmb3JlY2FzdCkKYGBgCgojIyAqKlNlY2Npw7NuIDEqKgoKKkxpbXBpZXphIHRyYW5zZm9ybWFjacOzbiB5IG9yZ2FuaXphY2nDs24gZGUgYmFzZSBkZSBkYXRvcy4qIFwjIyMgKkN1YW50YXMgdmFyaWFibGVzIHkgcmVnaXN0cm9zIGhheSoKCmBgYHtyfQpzdHIoQ29tcGFuaWVzKQpkZXNjcmliZShDb21wYW5pZXMpCmBgYAoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOm9yYW5nZSI+KipUw6ljbmljYXMgZGUgTGltcGllemEqKgoKTGEgcHJpbWVyIHRlY25pY2EgZGUgbGltcGllemEgcXVlIHV0aWxpemFtb3MgZnVlLCBlbGltaW5hciBjb2x1bW5hcyBkZWJpZG8gYSBxdWUgY29udGFiYW1vcyBjb24gZGF0b3MgbG9zIGN1YWxlcyBubyBlcmFuIHJlbGV2YW50ZXMgcGFyYSBlbCBhbsOhbGlzaXMuTGEgc2VndW5kYSBoZXJyYW1pZW50YSBkZSBsaW1waWV6YSBxdWUgdXRpbGl6YW1vcyBwYXJhIGxhIHZpc3VsaXphY2nDs24gZGUgbG9zIGRhdG9zIGZ1ZSBpbXBsZW1lbnRhciB1bmEgbnVldmEgY29sdW1uYSBjb21vIGVsIHRvdGFsIGRlIGxhIFByb2R1Y2Npw7NuIGRlIGxhcyB2YXJpYWJsZXMgcXVlIHNlIHByb2R1Y2VuIHBvciBwYcOtcy4KCiMjIyMgVMOpY25pY2EgMTogUmVtb3ZlciBWYWxvcmVzIElycmVsZXZhbnRlcwoKIyMjIyMgRWxpbWluYXIgY29sdW1uYXMKCmBgYHtyfQpiZDEgPC0gQ29tcGFuaWVzCmJkMTwtc3Vic2V0KGJkMSxzZWxlY3Q9LWMoQ2F0ZWdvcnksRGF0YS5UeXBlLEN1cnJlbnQuQ29uc3RhbnQpKQpzdHIoYmQxKQpgYGAKCiMjIyMjIEFncmVnYXIgQ29sdW1uYXMKCmBgYHtyfQpiZDEkVG90YWxfUHJvZHVjY2lvbjwtIGJkMSRYMjAxNitiZDEkWDIwMTcrYmQxJFgyMDE4K2JkMSRYMjAxOStiZDEkWDIwMjArYmQxJFgyMDIxCmJkMSRQcm9tZWRpb19YMjAyMTwtIG1lYW4oYmQxJFgyMDIxKQoKc3VtbWFyeShiZDEpCnN0cihiZDEpCmBgYAoKIyMjIyMgwr9DdcOhbnRvcyBOQSdzIHRlbmdvIGVuIGxhIGJhc2UgZGUgZGF0b3M/CgpgYGB7cn0Kc3VtKGlzLm5hKGJkMSkpCmBgYAoKTm90YTogU2UgZWxpbWluYW4gQ2F0ZWdvcnksIERhdGEuVHlwZSB5IEN1cnJlbnQuQ29uc3RhbnQsIHlhIHF1ZSBubyBub3Mgc2lydmVuLCBkZWJpZG8gYSBxdWUgZXMgZWwgbWlzbW8gZGF0byBwYXJhIHRvZG9zIGxvcyByZWdpc3Ryb3MgeSBlcyBhbGdvIHF1ZSBubyBub3MgYXBvcnRhIGFsZ3VuYSBpbmZvcm1hY2nDs24uCgojIyMgKklkZW50aWZpY2FyIHZhcmlhYmxlcyoKCioqQ3VhbnRpdGF0aXZhOioqIERpc2NyZXRhLCBDb250aW51YSAqKkVzY2FsYSBkZSBtZWRpY2nDs246KipJbnRlcnZhbG8sIFJhesOzbiAqKkN1YWxpdGF0aXZhKiogKipFc2NhbGEgZGUgbWVkaWNpw7NuOioqIE5vbWluYWxlcywgT3JkaW5hbGVzCgpgYGB7cn0KVmFyaWFibGU8LWMoIkdlb2dyYXBoeSIsIkNhdGVnb3J5IiwiRGF0YS5UeXBlIiwgIlVuaXQiLCJDdXJyZW50IENvbnN0YW50IiwiWWVhcnMiKQpUeXBlPC1jKCJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFudGl0YXRpdmEgKENvbnRpbnVhKSIpCnRhYmxlPC1kYXRhLmZyYW1lKFZhcmlhYmxlLFR5cGUpCmtuaXRyOjprYWJsZSh0YWJsZSkKYGBgCgojIyAqKlNlY2Npw7NuIDIuMSoqCgoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqCgojIyMgQW7DoWxpc2lzIEVzdGFkw61zdGljbyBEZXNjcmlwdGl2bwoKYGBge3J9CmRlc2NyaWJlKGJkMSkKYGBgCgpFbiBlbCBhbsOhbGlzaXMgZGVzY3JpcHRpdm8gc2UgbXVlc3RyYW4gbG9zIHZhbG9yZXMgcHJvbWVkaW8gZGVsIHRvdGFsIGRlIHByb2R1Y2Npb25lcyBkZSAyMDE2IGEgMjAyMS4KCiMjIyAqVGFibGEgZGUgTWVkaWEsIE1vZGEgeSBNZWRpYW5hKgoKUmVhbGl6YW1vcyB1bmEgdGFibGEgZG9uZGUgdmllbmUgY2xhc2lmaWNhZG8gY2FkYSB2YXJpYWJsZSB5IGFncmVnYW1vcyB1bmEgY29sdW1uYSBjb24gbGEgZXNjYWxhIGRlIG1lZGljacOzbiBwYXJhIGNhZGEgdmFyaWFibGUuCgpgYGB7cn0KVmFyaWFibGU8LWMoIkdlb2dyYXBoeSIsIkNhdGVnb3J5IiwiRGF0YS5UeXBlIiwgIlVuaXQiLCJDdXJyZW50IENvbnN0YW50IiwiWWVhcnMiKQpUeXBlPC1jKCJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFsaXRhdGl2YSIsICJDdWFudGl0YXRpdmEgKENvbnRpbnVhKSIpCkVzY2FsYV9kZV9NZWRpY2nDs24gPC0gYygiUGHDrXNlcyIsICJQcm9kdWN0byIsICJEZXBhcnRhbWVudG8iLCJUaXBvIGRlIE1vbmVkYSIsICJQcmVjaW8gYWN0dWFsIiwgIkdhbmFuY2lhIChSYXpvbikiKQp0YWJsZTwtZGF0YS5mcmFtZShWYXJpYWJsZSxUeXBlLEVzY2FsYV9kZV9NZWRpY2nDs24pCmtuaXRyOjprYWJsZSh0YWJsZSkKYGBgCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipUYWJsYSBkZSBGcmVjdWVuY2lhKioKCmBgYHtyfQpiZDIgPC0gdGFibGUoYmQxJFVuaXQpCmJkMiA8LSBwcm9wLnRhYmxlKGJkMikKYmQyCmBgYAoKQ29uIGVzdGEgdGFibGEgcG9kZW1vcyB2aXN1YWxpemFyIGxhIGZyZWN1ZW5jaWEgcXVlIHNlIHRpZW5lIHBhcmEgY2FkYSB1bmlkYWQgZGUgZGluZXJvLCBsbyBxdWUgdmllbmUgc2llbmRvIGxhIGRpZmVyZW5jaWFjacOzbiBlbnRyZSBwYWlzZXMuCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipUYWJsYSBDcnV6YWRhKioKCmBgYHtyfQp0YWJsZShiZDEkVW5pdCwgYmQxJFByb21lZGlvX1gyMDIxKQpgYGAKCkxhIHRhYmxhIG5vcyBtdWVzdHJhIGxhIGNhbnRpZGFkIHByb21lZGlvIGVuIG1pbGxvbmVzIHByb2R1Y2lkYSBlbiAyMDIxIHBvciBjYWRhIHVuaWRhZCBtb25ldGFyaWEuIEVuIGVzdGUgY2FzbywgdmVtb3MgcXVlIGVuIDIwMjEgc2UgcHJvZHVqbyBlbiBwcm9tZWRpbyBtw6FzIGRlIDFNTSBkZSAiY3VycmVuY2llcyIgKG5vIHNlIHB1ZWRlIGRlZmluaXIgdW5hIHVuaWRhZCBtb25ldGFyaWEgZXNwZWPDrWZpY2EgZGViaWRvIGEgcXVlIGVzdGFtb3MgcG9uZGVyYW5kbyBkaXN0aW50YXMgbW9uZWRhcyBpbnRlcm5hY2lvbmFsZXMpLiBDb25mb3JtZSBzZSBhbmFsaXphIGxhIHRhYmxhLCB2ZW1vcyBxdWUgZWwgZXVybyBnZW5lcsOzIDE4IHZlY2VzIGVsIHByb21lZGlvIGRlIHByb2R1Y2Npw7NuIGRlIGNhcnTDs24gZXN0aW1hZG8gcGFyYSAyMDIxLCBlcyBkZWNpciwgZXMgbGEgbW9uZWRhIGludGVybmFjaW9uYWwgcXVlIG3DoXMgcHJvZHVqbyBjYXJ0w7NuIGEgbml2ZWwgaW50ZXJuYWNpb25hbCBlbiAyMDIxLiBMYSBzaWd1aWVudGUgbW9uZWRhIGNvbiBtYXlvciBjYXBhY2lkYWQgZGUgcHJvZHVjY2nDs24gZnVlIFVTRCBtaWxsaW9ucy4KCiMjIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkN1YWxpdGF0aXZhKioKCmBgYHtyfQpiYXJwbG90KGJkMiwgeGxhYj0nVGlwbyBkZSBNb25lZGEnLAogICAgICAgIHlsYWI9J0ZyZWN1ZW5jaWEgUmVsYXRpdmEnLCBsYXM9MSkKYGBgCgpMYSBncsOhZmljYSBub3MgbXVlc3RyYSBxdWUgZGUgYWN1ZXJkbyBhIGxhIGZyZWN1ZW5jaWEgcmVsYXRpdmEgZGUgcHJvZHVjY2nDs24sIEluZG9uZXNpYSBlcyBsYSB1bmlkYWQgbW9uZXRhcmlhIHF1ZSBtw6FzIGNhcnTDs24gaGEgZW50cmVnYWRvLgoKIyMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqQ3VhbnRpdGF0aXZhIGNvbiBUb3RhbF9Qcm9kdWNjaW9uKioKCmBgYHtyfQpiZDMgPC0gYmQxCmFnZ3JlZ2F0ZSh4PWJkMyRUb3RhbF9Qcm9kdWNjaW9uLCBieT1saXN0KGJkMyRHZW9ncmFwaHkpLEZVTj1zdW0pCmBgYAoKRW4gbGEgdGFibGEgYW50ZXJpb3Igc2UgbXVlc3RyYSBlbCB0b3RhbCBkZSBwcm9kdWNjacOzbiBnZW5lcmFkbyBwb3IgY2FkYSBwYcOtcy4gSGFjaWVuZG8gdW5hIHBvbmRlcmFjacOzbiBkZSBsb3MgNSBwYcOtc2VzIHF1ZSBtYXlvciBwcm9kdWNjacOzbiBkZSBjYXJ0w7NuIHRpZW5lbiAoaGFjaWVuZG8gY29udGVvIGhpc3TDs3JpY28gZGUgMjAxNiBhIDIwMjEpLCB2ZW1vcyBxdWUgc2UgZGVzdGFjYW4gSXLDoW4sIFZpZXRuYW0sIENvcmVhIGRlbCBTdXIsIEphcMOzbiBlIEluZG9uZXNpYS4KCmBgYHtyfQpoaXN0KGxvZyhiZDEkVG90YWxfUHJvZHVjY2lvbiksIG1haW4gPSAiSGlzdG9ncmFtYSBkZSBQcm9kdWNjacOzbiBUb3RhbCIsIHhsYWI9IlByb2R1Y2Npw7NuIFRvdGFsIiwgCiAgICAgeWxhYj0iRnJlY3VlbmNpYSIsIGNvbD0iYmx1ZTEiKQpgYGAKCkVuIGxhIGdyw6FmaWNhIGFudGVyaW9yIHNlIHNpbWJvbGl6YSBsYSBkaXN0cmlidWNpw7NuIGRlIGxhIG11ZXN0cmEgcmVzcGVjdG8gYSBsYSBwcm9kdWNjacOzbiB0b3RhbCB5IGxhIGZyZWN1ZW5jaWEgZGUgw6lzdGEuIERlIGFjdWVyZG8gYSBsYSBmcmVjdWVuY2lhIHRvdGFsLCB2ZW1vcyBxdWUgc2UgdGllbmUgdW5hIG1heW9yIHByb2R1Y2Npw7NuIHBvciBmcmVjdWVuY2lhIGVudHJlIDEwIHkgMTUsIGVzIGRlY2lyLCBsYSBwcm9kdWNjacOzbiB0b3RhbCBlcyBtw6FzIGFsdGEgeSB0aWVuZSB1bmEgZnJlY3VlbmNpYSBtYXlvciBhIDE1IHF1ZSBzZSBtdWVzdHJhIGNvbW8gZWwgbcOhcyBlbGV2YWRvIGVuIGVsIGhpc3RvZ3JhbWEuCgojIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipHcsOhZmljYSBkZSBEaXNwZXJzacOzbioqCgoqKlJlbGFjacOzbiBHZW9ncmFwaHkgY29uIFByb2R1Y2Npw7NuIFRvdGFsKioKCmBgYHtyfQpnZ3Bsb3QoYmQxLCBhZXMoeD1Ub3RhbF9Qcm9kdWNjaW9uLCB5PUdlb2dyYXBoeSkpICsgCiAgZ2VvbV9wb2ludChzaGFwZT0xOSwgc2l6ZT0zKSArIGxhYnModGl0bGUgPSAiUmVsYWNpw7NuIGVudHJlIGxvcyBQYcOtc2VzIHkgbGEgUHJvZHVjY2nDs24gVG90YWwiLGNhcHRpb24gPSJQYXNzcG9ydF9Qcm9kdWNjacOzbkNhcnRvbiIseD0iUHJvZHVjY2nDs25fVG90YWwiLCB5PSJHZW9ncmFwaHkiKSArIHRoZW1lX2NsYXNzaWMoKQoKYGBgCgpFbiBsYSBncsOhZmljYSBhbnRlcmlvciBzZSBtdWVzdHJhIGxhIHJlbGFjacOzbiBlbnRyZSBsb3MgcGHDrXNlcyB5IGxhIHByb2R1Y2Npw7NuIHRvdGFsLiBTZSB2ZSBxdWUgaGF5IHVuYSBkaXNwZXJzacOzbiBtYXlvciBwYXJhIGxvcyBwYcOtc2VzIGVuIGVsIGNlbnRybyBkZSBsYSBncsOhZmljYS4gRXN0byBzaWduaWZpY2EgcXVlIGhheSBtw6FzIGlycmVndWxhcmlkYWQgZW4gbGEgcHJvZHVjY2nDs24gdG90YWwgcXVlIGhhbiBnZW5lcmFkby4KCmBgYHtyfQpib3hwbG90PXN1YnNldChiZDEsc2VsZWN0ID0gLWMoVG90YWxfUHJvZHVjY2lvbixHZW9ncmFwaHkpKQpib3hwbG90KGJkMSRUb3RhbF9Qcm9kdWNjaW9uLCBtYWluPSAiVG90YWwgZGUgcHJvZHVjY2nDs24iKQpgYGAKCkVuIGxhIGdyw6FmaWNhIGFudGVyaW9yIHZlbW9zIGVsIHRvdGFsIGRlIHByb2R1Y2Npw7NuIGRlIGFjdWVyZG8gYSBsYSBnZW9ncmFmw61hLiBBbCBpZ3VhbCBxdWUgbGEgZ3LDoWZpY2EgYW50ZXJpb3IsIGhheSB1bmEgY29ycmVsYWNpw7NuIG1heW9yIGFjb3JkZSBhbCB0b3RhbCBkZSBwcm9kdWNjacOzbi4KCmBgYHtyfQpWb2w8LXRzKGJveHBsb3Qsc3RhcnQ9YygyMDE2LDEpLGZyZXF1ZW5jeT0xMikKdHNfcGxvdChWb2wsCiAgICAgICAgdGl0bGUgPSAiRGVzZW1wZcOxbyBkZSBsYSBJbmR1c3RyaWEgQXV0b21vdHJpejogUHJvZHVjY2nDs24gZGUgY2FydMOzbiBnbG9iYWwgZGUgMjAxNiBhIDIwMjEiLAogICAgICAgIFl0aXRsZSA9ICJVbmlkYWRlcyBlbiBtaWxlcyIsCiAgICAgICAgWHRpdGxlID0gIkHDsW9zIiwgCiAgICAgICAgc2xpZGVyID0gVFJVRSkKYGBgCgpFbiBlc3RhIGdyw6FmaWNhIHNlIHZlIGVsIGRlc2VtcGXDsW8gZGUgbGEgaW5kdXN0cmlhIGF1dG9tb3RyaXogZGUgMjAxNiBhIDIwMjEuIEVuIGdlbmVyYWwsIHNlIG11ZXN0cmEgcXVlIGVsIHRvdGFsIGRlIHByb2R1Y2Npw7NuIGRlIGNhcnTDs24gYSBuaXZlbCBnbG9iYWwgZnVlIG1heW9yIGVuIDIwMjEgY29udHJhIG90cm9zIGHDsW9zLgoKIyAqRXhwbGljYWNpw7NuIFTDqWNuaWNhcyBkZSBMaW1waWV6YSoKCkxhcyBUw6ljbmljYXMgZGUgTGltcGllemEgdXRpbGl6YWRhcyBtZSBheXVkYXJvbiBhIHNlciBjYXBheiBkZSB0ZW5lciB1biBtYXlvciBlbnRlbmRpbWllbnRvIGRlIGxhIGJhc2UgZGUgZGF0b3MsIGVzdHJ1Y3R1cmFyIGxvcyBkYXRvcyBxdWUgc29uIHNpZ25pZmljYXRpdm9zIHkgcmVhbGVtZW50ZSBjb25vY2VyIGFxdWVsbGEgaW5mb3JtYWNpw7NuIHF1ZSB0b21hbiB1biBwYXBhZWwgaW1wb3J0YW50ZSBlbiBlbCBhbsOhbGlzaXMgcXVlIHNlIGJ1c2NhIHJlYWxpemFyIGEgbGEgYmFzZSBkZSBkYXRvcy4gQWwgYXBsaWNhciB0w6ljbmlhcyBkZSBsaW1waWV6YSB0ZSBhc2VndXJhcyBkZSB0ZW5lciBlbiBvcmRlbiB0b2RvcyBsb3MgZGF0b3MsIGV2aXRhciBlcnJvcmVzIHF1ZSBkZXNwdcOpcyBwdWVkYW4gcHJvdm9jYXIgbWFsb3MgZW50ZW5kaWRvcyBlbiBlbCBhbsOhbGlzaXMgeSBxdWUgbGEgaW5mb3JtYWNpw7NuIHF1ZSBzZSBleHRyYWlnYSBubyB2YXlhIGEgc2VyIGFzZXJ0YWRhLiBUYW1iacOpbiBwZXJtaXRlIHNlciBtw6FzIGVmaWNheiB5IHRlbmVyIG1heW9yIGNyZWRpYmlsaWRhZCBlbiBlbCBhbsOhbGlzaXMgcXVlIHNlIHZheWEgYSByZWFsaXphci4KCiMgKipTZWNjacOzbiAyLjIqKgoKIyMgKlByZWRpY2Npw7NuOioKCipEZWwgRGVzZW1wZcOxbyBkZSBsYSBJbmR1c3RyaWEgQXV0b21vdHJpeioKCiMjIyBJbXBvcnRhciBiYXNlIGRlIGRhdG9zCgpgYGB7cn0KYmQ1IDwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvZXh0ZXJuYV9iZDIgY3N2Mi5jc3YiKQpzdW1tYXJ5KGJkNSkKCnN1bShpcy5uYShiZDUpKQoKYmQ1JFRvdGFsX1Byb2R1Y2Npb248LSBiZDEkWDIwMTYrYmQxJFgyMDE3K2JkMSRYMjAxOCtiZDEkWDIwMTkrYmQxJFgyMDIwK2JkMSRYMjAyMQoKc3VtbWFyeShiZDUpCnN0cihiZDUpCgpzdW0oaXMubmEoYmQ1KSkKYGBgCgojIyMjIE1vZGVsb3MgZGUgcmVncmVzacOzbiBsaW5lYWwgbcO6bHRpcGxlCgoqKlByb2R1Y2Npw7NuIGRlIGNhcnTDs24gZW4gMjAyMiBhIG5pdmVsIGdsb2JhbCoqCgpgYGB7cn0KCmluZHVzdHJpYUEgPC1yZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9JbmR1c3RyaWEgQXV0by5jc3YiKQoKYmQ2IDwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvZXh0ZXJuYV9iZDMgY3N2My5jc3YiKQoKYmQ2IDwtIGJkNlstYygxKSxdCgpzdW1tYXJ5KGJkNikKc3VtbWFyeShpbmR1c3RyaWFBKQpzdHIoaW5kdXN0cmlhQSkKCnJlZ3Jlc2lvbjEgPC0gbG0odmVudGFzX2F1dG9wYXJ0ZXNfYW51YWwgfiAgZXN0YWRvICtleHBvcnRhY2lvbmVzX2FudWFsICsgcG9ibGFjaW9uX29jdXBhZGFfZW5zYW1ibGFkb3JhX3llYXIgLGRhdGEgPSBpbmR1c3RyaWFBKQpzdW1tYXJ5KHJlZ3Jlc2lvbjEpCgpyZWdyZXNpb24yIDwtIGxtKFRvdGFsX1Byb2R1Y2Npb24gfiBBw7FvICsgUHJvZHVjY2lvbiwgZGF0YT1iZDUpCnN1bW1hcnkocmVncmVzaW9uMikKCmJkNSA8LSBkYXRhLmZyYW1lKEHDsW89MjAyMiwgUHJvZHVjY2lvbj0gMTcwMDAwMDAwKQpwcmVkaWN0KHJlZ3Jlc2lvbjIsYmQ1KQpgYGAKClBhcmEgbGEgcHJpbWVyYSByZWdyZXNpb24gZGVmaW5pbW9zIGxhIHZhcmlhYmxlIGRlICJWZW50YXMgZGUgYXV0b3BhcnRlcyBhbnVhbGVzIiBjb21vIGxhIHZhcmlhYmxlIGRlcGVuZGllbnRlLCBzZWxlY2Npb25hbW9zIGV4cG9ydGFjaW9uZXMgYW51YWxlcywgbGEgcG9ibGFjaW9uIG9jdXBhZGEgeSBsb3MgZXN0YWRvcyBjb21vIGluZGVwZW5kaWVudGVzIHkgcG9kZW1vcyBvYnNlcnZhciBxdWUsIGVzdGFkb3MgZXMgdW5hIHZhcmlhYmxlIHNpZ25pZmljYXRpdmEsIHByaW5jaXBhbG1ldGUgZW4gZXN0YWRvcyBlc3BlY8OtZmljb3MgY29tbyBDaGlodWFodWEsIENpdWRhZCBkZSBNZXhpY28sIFphcmFnb3phLCBHdWFuYWp1YXRvLCBOdWV2byBMZcOzbiwgUHVlYmxhIHkgUXVlcmV0YXJvLCBjb24gZXN0byBwb2RlbW9zIGluZmVyaXIgcXVlIGRpY2hvcyBlc3RhZG9zIHRpZW5lbiB1bmEgbWF5b3IgZnVlcnphIGVuIGxhIGluZHVzdHJpYSBhdXRvbW90cml6LgoKRW4gbGEgcmVncmVzaW9uIDIsIGRlIGFjdWVyZG8gYSBsb3MgZGF0b3MgZXN0aW1hZG9zLCBzZSB2ZSBxdWUgbGFzIHZhcmlhYmxlcyBkZSBhw7FvIHkgcHJvZHVjY2nDs24gc29uIGlndWFsbWVudGUgc2lnbmlmaWNhdGl2YXMgcGFyYSBsYSB2YXJpYWJsZSBkZXBlbmRpZW50ZS4gRW4gZWwgY2FzbyBkZSBhw7FvLCBlc3RlIHRpZW5lIHVuIGltcGFjdG8gbmVnYXRpdm8gc29icmUgbGEgb3RyYSB5IGxhIHByb2R1Y2Npw7NuIHRpZW5lIHVuYSBlc3RpbWFjacOzbiBwb3NpdGl2YS4gRWwgbW9kZWxvIGFudGVyaW9yIG5vcyBtdWVzdHJhIGN1w6FudG8gc2UgZXN0aW1hIHF1ZSBzZSBwcm9kdWNpcsOhIGEgbml2ZWwgZ2xvYmFsIGVuIGxhIGluZHVzdHJpYSBkZWwgY2FydMOzbiBwYXJhIDIwMjIuIERlIGFjdWVyZG8gYSB1bmEgcHJvZHVjY2nDs24gdG90YWwgYXByb3hpbWFkYSBkZSAxNzAgbWlsbG9uZXMgZGUgY2FydMOzbiBlbiAyMDIxLCBzZSBlc3BlcmEgcXVlIGVuIDIwMjIgc2UgcHJvZHV6Y2FuIDkxNCwxOTYsOTI2LiBFbiBlc3RlIGNhc28sIGVsIHByw7Nub3N0aWNvIGZ1ZSByZWFsaXphZG8gYWwgY3JlYXIgdW4gbnVldm8gJ2RhdGEgZnJhbWUnIHkgYWwgaW1wbGVtZW50YXIgbGEgZnVuY2nDs24gZGUgJ2xtJywgdXNhZGEgcGFyYSBjcmVhciBhbsOhbGlzaXMgcmVncmVzaXZvcyB5IHByZWRpY3Rpdm9zLgoKIyMjIyBNb2RlbG9zIGRlIHJlZ3Jlc2nDs24gbGluZWFsIG3Dumx0aXBsZTogUHJvZHVjY2nDs24gZGUgY2FydMOzbiBlbiAyMDIyIHBhcmEgRXN0YWRvcyBVbmlkb3MgeSBNw6l4aWNvCgojIyMgSW1wb3J0YXIgYmFzZSBkZSBkYXRvcyAoMikKCmBgYHtyfQpiZDYgPC1yZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9leHRlcm5hX2JkMyBjc3YzLmNzdiIpCnN1bW1hcnkoYmQ2KQoKc3VtKGlzLm5hKGJkNikpCgpzdW1tYXJ5KGJkNikKc3RyKGJkNikKYGBgCgojIyMgTW9kZWxvIGRlIHJlZ3Jlc2nDs24gbcO6bHRpcGxlOiBQcm9kdWNjacOzbiBkZSBjYXJ0w7NuIGVuIDIwMjI6IE3DqXhpY28KCmBgYHtyfQpyZWdyZXNpb24zIDwtIGxtKE1FWCB+IFVTQSArIEHDsW8sIGRhdGE9YmQ2KQpzdW1tYXJ5KHJlZ3Jlc2lvbjMpCgpyZWdyZXNpb24zIDwtIGxtKE1FWCB+IEHDsW8sIGRhdGE9YmQ2KQpzdW1tYXJ5KHJlZ3Jlc2lvbjMpCgpiZDYgPC0gZGF0YS5mcmFtZShBw7FvPTIwMjIsIFByb2R1Y2Npb249IDc0MDAwMCkKcHJlZGljdChyZWdyZXNpb24zLGJkNikKCmdncGxvdChiZDYsIGFlcyh4PUHDsW8sIHk9UHJvZHVjY2lvbikpKwogIGdlb21fcG9pbnQoKSArCiAgZ2VvbV9saW5lKGFlcyh5PVByb2R1Y2Npb24pLCBjb2xvcj0icmVkIiwgbGluZXR5cGU9ImRhc2hlZCIpICsKICBnZW9tX2xpbmUoYWVzKHk9UHJvZHVjY2lvbiksIGNvbG9yPSJyZWQiLCBsaW5ldHlwZT0iZGFzaGVkIikgKwogIGdlb21fc21vb3RoKG1ldGhvZD1sbSwgZm9ybXVsYT15fngsIHNlPVRSVUUsIGxldmVsPTAuOTUsIGNvbD0nYmx1ZScsIGZpbGw9J3BpbmsyJykgKwogIHRoZW1lX2xpZ2h0KCkKYGBgCgpMYSBwcmVkaWNjacOzbiBhbnRlcmlvciBub3MgYXJyb2phIHF1ZSBoYXkgdW4gaW1wYWN0byBwb3NpdGl2byB5IHNpZ25pZmljYXRpdm8gZW50cmUgbGEgdmFyaWFibGUgQcOxbyB5IGxhIHZhcmlhYmxlIGRlcGVuZGllbnRlLiBFc3RvIHNpZ25pZmljYSBxdWUgaGF5IHVuYSBwcmVkaWNjacOzbiBwb3NpdGl2YSBkZSBjcmVjaW1pZW50byBhY29yZGUgYWwgYcOxby4gRGUgYWN1ZXJkbyBhIGxhIHByb2R1Y2Npw7NuIHRvdGFsIGdlbmVyYWRhIHBvciBNw6l4aWNvIGRlIDIwMTYgYSAyMDIxICg3NDAgTSksIGVsIG1vZGVsbyBwcm9uw7NzdGljbyBlc3RpbWEgcXVlIGVuIDIwMjIgcHJvZHVjaXLDoSAxNDksMTcwLjMuIEVuIGxhIGdyw6FmaWNhIHByZXZpYSBzZSBtdWVzdHJhIGVsIHB1bnRvIGRlIHByZWRpY2Npw7NuLiBTaSBhbmFsaXphbW9zIGxhIHByb2R1Y2Npw7NuIGRlIDIwMjEgY29udHJhIGVsIHByb27Ds3N0aWNvIGRlIDIwMjIsIHNlIGVzdGltYSBxdWUgbGEgcHJvZHVjY2nDs24gbWV4aWNhbmEgZGlzbWludWlyw6EuIFBvZGVtb3Mgc3Vwb25lciBxdWUgZXN0byBzZSBkZWJlIGEgbGEgZGVmaWNpZW5jaWEgZW4gbGEgY2FkZW5hIGRlIHN1bWluaXN0cm8gZ2xvYmFsLCBhc8OtIGNvbW8gZmFjdG9yZXMgZWNvbsOzbWljb3MgZ2xvYmFsZXMuCgojIyMjIE1vZGVsb3MgZGUgcmVncmVzacOzbiBsaW5lYWwgbcO6bHRpcGxlOiBQcm9kdWNjacOzbiBkZSBjYXJ0w7NuIGVuIDIwMjIgcGFyYSBFc3RhZG9zIFVuaWRvcyB5IE3DqXhpY28KCiMjIyBJbXBvcnRhciBiYXNlIGRlIGRhdG9zICgzKQoKYGBge3J9CmJkNiA8LXJlYWQuY3N2KCIvVXNlcnMvdmFuZXNzYWVsaXpvbmRvL0Rlc2t0b3AvVGVjL1NlbWVzdHJlIDcvRk9STS9FcXVpcG8gMi40L0Jhc2VzIGRlIGRhdG9zL2V4dGVybmFfYmQzIGNzdjMuY3N2IikKc3VtbWFyeShiZDYpCgpzdW0oaXMubmEoYmQ2KSkKCnN1bW1hcnkoYmQ2KQpzdHIoYmQ2KQpgYGAKCiMjIyMgTW9kZWxvcyBkZSByZWdyZXNpw7NuIGxpbmVhbCBtw7psdGlwbGU6IFByb2R1Y2Npw7NuIGRlIGNhcnTDs24gZW4gMjAyMjogRXN0YWRvcyBVbmlkb3MKCmBgYHtyfQpyZWdyZXNpb24yIDwtIGxtKFVTQSB+IE1FWCArIEHDsW8sIGRhdGE9YmQ2KQpzdW1tYXJ5KHJlZ3Jlc2lvbjIpCgpyZWdyZXNpb24yIDwtIGxtKFVTQSB+IEHDsW8sIGRhdGE9YmQ2KQpzdW1tYXJ5KHJlZ3Jlc2lvbjIpCgpiZDYgPC0gZGF0YS5mcmFtZShBw7FvPTIwMjIsIFByb2R1Y2Npb249IDMyMDAwMCkKcHJlZGljdChyZWdyZXNpb24yLGJkNikKYGBgCgpQYXJhIGxhIHByZWRpY2Npw7NuIGRlIEVzdGFkb3MgVW5pZG9zLCB2ZW1vcyBxdWUgaGFicsOhIHVuIGluY3JlbWVudG8gZW4gbGEgcHJvZHVjY2nDs24gZGUgY2FydMOzbiBjb250cmEgMjAyMS4gU2luIGVtYmFyZ28sIGFsIGFuYWxpemFyIGxhIHByb2R1Y2Npw7NuIHRvdGFsIGRlIE3DqXhpY28gY29udHJhIGxhIHByb2R1Y2Npw7NuIHRvdGFsIGRlIEVzdGFkb3MgVW5pZG9zLCB2ZW1vcyBxdWUgbGEgbWV4aWNhbmEgZXMgbXVjaG8gbWF5b3IuIFBvZGVtb3Mgc3Vwb25lciBxdWUgZXN0byBzZSBkZWJlIGRlYmlkbyBhIGxhIG1hbm8gZGUgb2JyYSBlY29uw7NtaWNhIGRlbCBtZXJjYWRvIG1leGljYW5vLgoKRGUgYWN1ZXJkbyBhIGxhIHByZWRpY2Npw7NuIGFudGVyaW9yLCBzZSB2ZSB1biBpbmNyZW1lbnRvIHBvc2l0aXZvIHBhcmEgbGEgdmFyaWFibGUgTcOpeGljbyBjb24gbGEgdmFyaWFibGUgZGVwZW5kaWVudGUsIGEgZGlmZXJlbmNpYSBkZWwgYcOxbyBxdWUgbXVlc3RyYSB1biBpbXBhY3RvIG1lbm9yIHkgbmVnYXRpdm8sIHBlcm8gaWd1YWxtZW50ZSBzaWduaWZpY2F0aXZvLgoKIyMgKlByb27Ds3N0aWNvOioKCipEZWwgRGVzZW1wZcOxbyBkZSBsYSBJbmR1c3RyaWEgQXV0b21vdHJpeiB5IGxhIEVtcHJlc2EgRk9STSoKCiMjIyBJbnN0YWxhciBwYXF1ZXRlcwoKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJmb3JlY2FzdCIpCmxpYnJhcnkoZm9yZWNhc3QpCmBgYAoKIyMjICoqSW5kdXN0cmlhIEF1dG9tb3RyaXoqKgoKKlByb25vc3RpY2FyIGVsIGRlc2VtcGXDsW8gZGUgbGEgaW5kdXN0cmlhIGF1dG9tb3RyaXogKEVVQSB5IE1FWCkgcGFyYSBsb3MgMyBwZXJpb2RvcyBkZSB0aWVtcG8uKgoKYGBge3J9CiNmaWxlLmNob29zZSgpCmV4dGVybm88LSByZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9leHRlcm5hX2JkMyBjc3YzLmNzdiIpCmBgYAoKIyMjIyBDcmVhciBzZXJpZSBkZSB0aWVtcG8KCmBgYHtyfQpwcm9kdWNjaW9uX21leGljbzwtIGMoZXh0ZXJubyRNRVgpCnByb2R1Y2Npb25fdXNhPC0gYyhleHRlcm5vJFVTQSkKYGBgCgpgYGB7cn0KcHJvZHVjY2lvbm08LXRzKGRhdGE9cHJvZHVjY2lvbl9tZXhpY28sIHN0YXJ0PWMoMjAxNiwxKSwgZnJlcXVlbmN5PTEpCnByb2R1Y2Npb251PC10cyhkYXRhPXByb2R1Y2Npb25fdXNhLCBzdGFydD1jKDIwMTYsMSksIGZyZXF1ZW5jeT0xKQpwcm9kdWNjaW9ubQpwcm9kdWNjaW9udQpgYGAKCmBgYHtyfQptb2RlbG9tPC0gYXV0by5hcmltYShwcm9kdWNjaW9ubSwgRD0xKQptb2RlbG91PC0gYXV0by5hcmltYShwcm9kdWNjaW9udSwgRD0xKQptb2RlbG9tCm1vZGVsb3UKYGBgCgpgYGB7cn0KcHJvbm9zdGljb20gPC0gZm9yZWNhc3QobW9kZWxvbSwgbGV2ZWw9Yyg5NSksIGg9NCkKcHJvbm9zdGljb20KcGxvdChwcm9ub3N0aWNvbSkKYGBgCgpgYGB7cn0KcHJvbm9zdGljb3UgPC0gZm9yZWNhc3QobW9kZWxvdSwgbGV2ZWw9Yyg5NSksIGg9NCkKcHJvbm9zdGljb3UKcGxvdChwcm9ub3N0aWNvdSkKYGBgCgojIyMgKipQcm9kdWNjacOzbiBkZSBGT1JNKioKClByb25vc3RpY2FyIGVsIGRlc2VtcGXDsW8gZGUgcHJvZHVjY2lvbiBkZSBGb3JtIHBhcmEgbG9zIHByb3hpbW9zIDMgcGVyaW9kb3MgZGUgdGllbXBvLgoKYGBge3J9CiNmaWxlLmNob29zZSgpCmZvcm1wcm9kdWNjaW9uPC0gcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvRm9ybV9wcm9kdWNjaW9uYmFzZWxpbXBpYS5jc3YiKQpgYGAKCiMjIyMgQ3JlYXIgc2VyaWUgZGUgdGllbXBvCgpgYGB7cn0KcHJvZHVjY2lvbmZvcm08LSBjKGZvcm1wcm9kdWNjaW9uJGxhbWluYXNfcHJvY2VzYWRhcykKCmBgYAoKYGBge3J9CnByb2R1Y2Npb25mPC10cyhkYXRhPXByb2R1Y2Npb25mb3JtLCBzdGFydD1jKDIwMjIsNyksIGVuZD1jKDIwMjUsIDEyKSwgZnJlcXVlbmN5PTEyKQoKcHJvZHVjY2lvbmYKYGBgCgpgYGB7cn0KbW9kZWxvZjwtIGF1dG8uYXJpbWEocHJvZHVjY2lvbmYsIEQ9MSkKCm1vZGVsb2YKCmBgYAoKYGBge3J9CnByb25vc3RpY29mIDwtIGZvcmVjYXN0KG1vZGVsb2YsIGxldmVsPWMoOTUpLCBoPTMpCnByb25vc3RpY29mCnBsb3QocHJvbm9zdGljb2YpCmBgYAoKIyMjIERlc2NyaWJlIGxvcyByZXN1bHRhZG9zCgpSZWFsaXphbW9zIHVuYSBzZXJpZSBkZSB0aWVtcG8gdGFudG8gcGFyYSBsYSBiYXNlIGRlIGxhIGluZHVzdHJpYSBhdXRvbW90cml6IGNvbW8gcGFyYSBsYSBiYXNlIGRlIHByb2R1Y2Npw7NuIGRlIEZPUk0sIGVzdGUgZXMgZW5mb2NhZG8gYSBsYXMgbGFtaW5hcyBwcm9jZXNhZGFzIGNhZGEgbWVzIHkgZW4gbGEgaW5kdXN0cmlhIGVzIHBvciBhw7FvLiBQYXJhIHBvZGVyIHJlYWxpemFyIGVzdGUgQW5hbGlzaXMgZGUgUmVzdWx0YWRvIHJlYWxpemFtb3MgdW5hIGdyYWZpY2EgeSB1biBtb2RlbG8gZGUgUHJlZGljY2nDs24gcG9yIG1lZGlvIGRlIGxhIGZ1bmNpw7NuIGF1dG8uYXJpbWEuIEdyYWNpYXMgYSBlc3RhIGZ1bmNpw7NuLCBsZSBlc3BlY2lmaWNhbW9zIGRlc2RlIHF1ZSBGZWNoYSBlbXBlemFyw6EgYSBvYnRlbmVyIGRhdG9zIGRlIGxhIGJhc2UgZGUgRGF0b3MgeSB0YW1iacOpbiBjb2xvY2Ftb3MgbGEgZnJlY3VlbmNpYSwgcXVlIHNlIHJlZmllcmUgYSBjw7NtbyBzZSBjb21wb3J0YSwgZW4gY3Vlc3Rpw7NuIGEgc2kgc2UgdmEgYSBjYWxjdWxhciBwb3IgbWVzIG8gcG9yIGHDsW8uIEFzw60gbWlzbW8sIG9idHV2aW1vcyBwYXJhIGxhIGluZHVzdHJpYSB0YW50byBlbiBNw6l4aWNvIGNvbW8gZW4gRVUsIHF1ZSBzb24gbG9zIHBhw61zZXMgZW4gbG9zIHF1ZSBzZSBlbmZvY2EgbcOhcyBGT1JNIHkgb2J0ZW5nYW4gbWVqb3Igb3BvcnR1bmlkYWQgZGUgY3JlY2ltaWVudG8uIEFsIHJlYWxpemFyIGVzdGUgbW9kZWxvIGNhbGN1bGFtb3MgcGFyYSBsb3MgcHLDs3hpbW9zIDMgcGVyaW9kb3MsIGVuIGVzdGUgY2FzbyBwYXJhIGVsIDIwMjUgeSBvYnR1dmltb3MgbG9zIHNpZ3VpZW50ZXMgcmVzdWx0YWRvczoKCi0gICAqSW5kdXN0cmlhIEF1dG9tb3RyaXogZW4gTcOpeGljbyo6CgogICAgMS4gIFBhcnRpZW5kbyBkZSB1biBtYXJnZW4gZGVsIDk1JSwgcXVlcmllbmRvIGRlY2lyLCBxdWUgZXN0ZSBtb2RlbG8gZXMgbcOhcyBwcmVjaXNvIHBvciBsbyBxdWUgYWwgdmVyIGxhIGdyYWZpY2Egb2J0ZW5lbW9zIHF1ZSB0ZW5kcsOhIHVuIGluY3JlbWVudG8gY29uc3RhbnRlIGVuIGxvcyBwcsOzeGltb3MgMyBhw7FvcywgcGFydGllbmRvIGRlbCAyMDIyLgoKICAgIDIuICBFc3RlIGNyZWNpbWllbnRvIGRlIGxhIGluZHVzdHJpYSBhdXRvbW90cml6IGVuIE3DqXhpY28gc2UgZXN0aW1hIHVuIGNyZWNpbWllbnRvIGRlbCAxNiUgcGFyYSAyMDI1LCBsbyBxdWUgYmVuZWZpY2lhIGEgRk9STSBwYXJhIGNvbnRpbnVhciBwcm9kdWNpZW5kbyBlbiBlbCBtZXJjYWRvIE1leGljYW5vLgoKLSAgICpJbmR1c3RyaWEgQXV0b21vdHJpeiBlbiBFc3RhZG9zIFVuaWRvcyo6CgogICAgMS4gIFBhcmEgMjAyMiBlbCBwcm9ub3N0aWNvIGVzIGRlIDU5IG1pbCwgcXVlIGVzdGUgc2UgcHVlZGUgbWFudGVuZXIgY29uc3RhbnRlIGVuIGxvcyBwcsOzeGltb3MgMyBhw7FvcyBoYXN0YSAyMDI1LgoKICAgIDIuICBTZSBvYnRpZW5lIHVuIGVzY2VuYXJpbyBvcHRpbWlzdGEgY29uIGxhIHByZWNpc2nDs24gZGVsIDk1JSwgbG8gcXVlIHF1aWVyZSBkZWNpciBxdWUgcGFyYSBmaW5hbGVzIGRlbCAyMDI1LCBwdWVkZSBlc3RhciBpZ3VhbCBlbiA1OSBtaWwgbyBhdW1lbnRhciBoYXN0YSBsb3MgNjkgbWlsLiBFc3RvIGluZGljYXLDrWEgcXVlIHZhIGVuIGF1bWVudG8gYcOxbyBjb24gYcOxbyB5IHRlcm1pbmFyw61hIGVsIDIwMjUgY29uIHVuIGF1bWVudG8gZGVsIGNhc2kgMjAlLiBMbyBxdWUgaW5kaWNhcsOtYSBhbGdvIGJ1ZW5vIHBhcmEgRk9STSwgZGFuZG9sZSBvcG9ydHVuaWRhZCBhIGF1bWVudGFyIHN1IGNhcnRlcmEgZGUgY2xpZW50ZXMgZGVudHJvIGRlbCBtZXJjYWRvIEVzdGFkb3VuaWRlbnNlIHkgdGVuaWVuZG8gdW4gYnVlbiBpbXBhY3RvIGRlIGxhIGluZHVzdHJpYSBwYXJhIGxvcyBwcsOzeGltb3MgcGVyaW9kb3MuCgotICAgKkVtcHJlc2EgRk9STSo6CgogICAgMS4gIFNlIGhpem8gZWwgcHJvbm9zdGljbyBwb3IgbWVzIHkgZGFuZG8gdW4gcGVyaW9kbyBoYXN0YSBlbCAyMDI2LCBwYXJ0aWVuZG8gZGVsIDIwMjIgY29uIDMgZW4gY3VhbnRvIGEgcHJvZHVjY2nDs24gZGUgbGFtaW5hcyBwcm9jZXNhZGFzLCBzZSBlc3RpbWEgcXVlIGVzdGUgdGVuZ2EgdW4gYXVtZW50byBjb25zdGFudGUsIGFkZW1hcyBkZSBxdWUgZW50cmUgZWwgMjAyNCB5IDIwMjUgdGVuZ2EgdW4gcHVudG8gZGUgcGlxdWUgbcOhcyBhbHRvLCBxdWUgcG9zdGVyaW9ybWVudGUgdm9sdmVyw6EgYSBlc3RhYmlsaXphcnNlIHBlcm8gcXVlIHNlIG1hbnRlbmRyw6EgY29uc3RhbnRlIGVudHJlIGxvcyAxMCBhIDIwIGVuIHByb2R1Y2Npw7NuLgoKICAgIDIuICBTZSBwcm9ub3N0aWNhIHF1ZSBwYXJhIGVsIDIwMjYgc2UgdGVuZ2EgdW4gMzMgZW4gcHJvZHVjY2nDs24gZGVsIMOhcmVhIGRlIGxhbWluYXMgcHJvY2VzYWRhcywgdGVuaWVuZG8gdW5hIHByZWNpc2nDs24gZGVsIDk1JSBlbiB1biBlc2NlbmFyaW8gb3B0aW1pc3RhLiBBc8OtIG1pc21vIGVzdGUgc2UgcHVlZGUgbWFudGVuZXIgY29uc3RhbnRlIGVuIDEwIG8gYXVtZW50YXIgY29tbyBzZSBjb21lbnTDsyBhbnRlcmlvcm1lbnRlIHkgZXN0ZSBjcmVjaW1pZW50byBhIHTDqXJtaW5vcyBkZWwgMjAyNiB0b21hbmRvIGVsIGVzY2VuYXJpbyBvcHRpbWlzdGEsIHNlcsOtYSBkZSBwb2NvIG1hcyBkZWwgOTAlIGxvIHF1ZSBzZXLDrWEgdW4gZ3JhbiBhdW1lbnRvIHBhcmEgRk9STS4gVGFtYmnDqW4gc2kgZnVlcmEgc2luIGVsIDk1JSBwYXJhIGluaWNpb3MgZGVsIDIwMjYgc2Vyw61hbiAxNiBlbiBwcm9kdWNjacOzbiBjb24gZWwgNjAlIGRlIGF1bWVudG8sIGxvIHF1ZSBzZWd1aXLDrWEgc2llbmRvIGFsZ28gaW1wb3J0YW50ZSBwYXJhIEZPUk0uCgojICoqU2VjY2nDs24gMyoqCgoqTWV0b2RvbG9nw61hIGRlIEstTWVhbnMgQ2x1c3RlcmluZyoKCiMjIERlZmluaWNpb25lcwoKKjEuIEsgLSBtZWFucyBDbHVzdGVyaW5nKiBDb250cmlidXllbiBhIGxhIGlkZW50aWZpY2FjacOzbiBkZSBjbHVzdGVycywgeWEgcXVlIEstbWVhbnMgbG8gcXVlIGhhY2UgZXMgYWdydXBhciwgcXVpZXJlIGRlY2lyIHF1ZSBlc3RhIGZ1bmNpw7NuIG8gYWxnb3JpdG1vIGRpdmlkZSBsb3MgZGF0b3MgdSBvYnNlcnZhY2lvbmVzIG9idGVuaWRhcyBlbiBncnVwb3MgY29uIGNhcmFjdGVyw61zdGljYXMgc2ltaWxhcmVzLiBEZSBlc3RhIG1hbmVyYSBlcyBxdWUgc2UgcHVlZGUgYW5hbGl6YXIgY29uIMOpeGl0byBjYWRhIENsdXN0ZXIsIG9idGVuaWVuZG8gaW5mb3JtYWNpw7NuIGltcG9ydGFudGUgZGUgY2FkYSB2YXJpYWJsZSB5IGxhIHNpbWlsaXR1ZGVzIGVudHJlIGVsbGFzLCBsbyBxdWUgaGFjZSBxdWUgc2VhIG3DoXMgY29tcHJlbnNpYmxlLCB5YSBxdWUgaGFjZSBxdWUgbG9zIGRhdG9zIG8gaW5mb3JtYWNpw7NuIHF1ZSBubyBzZSBwdWVkZSBwcm9jZXNhciBlbiBpbmZvcm1hY2nDs24gcHJvY2VzYWJsZS4gVW4gY2xhcm8gZWplbXBsbyBkZSBjw7NtbyBmdW5jaW9uYSBlcyB0ZW5pZW5kbyBncnVwb3MgcXVlIGNvbXBhcnRlbiBsb3MgbWlzbW9zIHRlbWFzLCBpbcOhZ2VuZXMgY29uIGVsIG1pc21vIG9iamV0byBvIHBlcnNvbmEsIGV0Yy4KCioyLiBVbnN1cGVydmlzZWQgTGVhcm5pbmcqCgpDdWFuZG8gc2UgdXRpbGl6YSBsYSBmdW5jacOzbiBLLW1lYW5zIHNlIGVuZm9jYSBlbiBhZ3J1cGFyIGRhdG9zIG5vIHN1cGVydmlzYWRvcywgZXN0byBxdWllcmUgZGVjaXIgcXVlIEstbWVhbnMgZXMgdW4gYWxnb3JpdG1vIG5vIHN1cGVydmlzYWRvLiBFbiBvdHJhcyBwYWxhYnJhcyBsbyBxdWUgcXVpZXJlIGRlY2lyIEFwcmVuZGl6YWplIG5vIHN1cGVydmlzYWRvLCBlcyByZWZlcmVudGUgYWwgdGlwbyBkZSBhbGdvcml0bW8gbyB0w6ljbmljYSBxdWUgc2UgdXRpbGl6YSB5IGVzIGltcG9ydGFudGUsIHlhIHF1ZSBncmFjaWFzIGEgcXVlIHNlIGRlZmluZSBkZSBlc3RhIG1hbmVyYSBsYXMgdMOpY25pY2FzIHkgYWxnb3JpdG1vcywgcG9kZW1vcyBpbXBsZW1lbnRhcmxvIGRlIG1hbmVyYSBjb3JyZWN0YSBlbiBlbCBhbsOhbGlzaXMgZGUgRGF0b3MuIEVzdG8gcXVpZXJlIGRlY2lyIHF1ZSBlc3RlIHRlcm1pbm8gbm9zIGRhIGEgZW50ZW5kZXIgcXVlIGVzYSBiYXNlIGRlIGRhdG9zIHNlIG9jdXBhcsOhIGVsIGFsZ29yaXRtbyBkZSBhZ3J1cGFtaWVudG8gbm8gc3VwZXJ2aXNhZG8sIHlhIHF1ZSBsYSBiYXNlIGN1ZW50YSBjb24gZGF0b3MgZGUgZW50cmFkYSBzaW4gcmVzcHVlc3RhcyBldGlxdWV0YWRhcywgZXMgcG9yIGVzbyBsYSBpbXBvcnRhbmNpYSBwYXJhIHBvZGVyIGlkZW50aWZpY2FybG8uCgoqMy4gRGlzdGFuY2lhIEV1Y2xpZGlhbmEgLyBFdWNsaWVkZWFuY2UgRGlzdGFuY2UqIFByaW5jaXBhbG1lbnRlIGxhIGRpc3RhbmNpYSBldWNsaWRpYW5hIGVzIGN1YW5kbyBzZSBlbmN1ZW50cmEgdW4gZXNwYWNpbyB2ZWN0b3JpYWwsIHF1ZSBlcyBpZ3VhbCBvIGluZmVyaW9yIGEgbGEgdmFyaWFibGUgcXVlIGVzdGFtb3MgYW5hbGl6YW5kby4gQ3VhbmRvIHNlIGlkZW50aWZpY2FuIGNsdXN0ZXJzIGVuY29udHJhbW9zIGEgbG9zIGNlbnRyb2lkZXMsIEVuIGxhIHBhcnRlIGRvbmRlIHNlIHV0aWxpemEgbGEgZGlzdGFuY2lhIGV1Y2xpZGlhbmEgZXMgY3VhbmRvIGxvcyBjZW50cm9pZGVzIHlhIG5vIHNlIHJlcGl0ZW4geSBlbmN1ZW50cmFuIHVuYSBwb3NpY2nDs24geSBubyBjYW1iaWFuLCBwb3IgbG8gcXVlIHNlIGhhY2UgbGEgcmVsYWNpw7NuIGNvbiBwdW50b3MgYWwgcmVkZWRvciBkZWwgY2VudHJvaWRlcywgY2FkYSBwdW50byBlcyB1bmEgdmFyaWFibGUgcG9yIGxvIHRhbnRvIGxhIGRpc3RhbmNpYSBxdWUgZXhpc3RlIGVudHJlIHZhcmlhYmxlcyBlcyBsYSBkaXN0YW5jaWEgZXVjbGlkaWFuYS4gTGEgY3VhbCBub3MgYXl1ZGEgYSBkZXNjdWJyaXIgbGEgc2ltaWxpdHVkIGVudHJlIGxhcyB2YXJpYWJsZXMgcXVlIGVzdGFtb3MgYW5hbGl6YW5kby4KCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqQ2x1c3RlciAxKioKCiMjIyBJbXBvcnRhciBQYXF1ZXRlcwoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CmxpYnJhcnkoZm9yZWlnbikKbGlicmFyeShkcGx5cikgICAgICAgICMgZGF0YSBtYW5pcHVsYXRpb24gCmxpYnJhcnkoZ2dwbG90MikgICAgICAjIGRhdGEgdmlzdWFsaXphdGlvbiAKbGlicmFyeShwc3ljaCkgICAgICAgICMgZnVuY3Rpb25zIGZvciBtdWx0aXZhcmlhdGUgYW5hbHlzaXMgCmxpYnJhcnkoY29ycnBsb3QpICAgICAjIGNvcnJlbGF0aW9uIHBsb3RzCmxpYnJhcnkoanRvb2xzKSAgICAgICAjIHByZXNlbnRhdGlvbiBvZiByZWdyZXNzaW9uIGFuYWx5c2lzIApsaWJyYXJ5KGxtdGVzdCkgICAgICAgIyBkaWFnbm9zdGljIGNoZWNrcyAtIGxpbmVhciByZWdyZXNzaW9uIGFuYWx5c2lzIApsaWJyYXJ5KGNhcikgICAgICAgICAgIyBkaWFnbm9zdGljIGNoZWNrcyAtIGxpbmVhciByZWdyZXNzaW9uIGFuYWx5c2lzCmxpYnJhcnkoZmFjdG9leHRyYSkgICAjIHByb3ZpZGVzIGZ1bmN0aW9ucyB0byBleHRyYWN0IGFuZCB2aXN1YWxpemUgdGhlIG91dHB1dCBvZiBleHBsb3JhdG9yeSBtdWx0aXZhcmlhdGUgZGF0YSBhbmFseXNlcwpsaWJyYXJ5KGdnZm9ydGlmeSkgICAgIyBkYXRhIHZpc3VhbGl6YXRpb24gdG9vbHMgZm9yIHN0YXRpc3RpY2FsIGFuYWx5c2lzIHJlc3VsdHMKYGBgCgojIyMgTGltcGllemEgZGUgZGF0b3MgeSB0cmFuc2Zvcm1hY2lvbgoKIyMjIyAqKkltcG9ydGFyIEJhc2UgZGUgRGF0b3MqKgoKZmlsZS5jaG9vc2UoKQoKYGBge3IsIGluY2x1ZGU9RkFMU0V9CnJoPC1yZWFkLmNzdigiL1VzZXJzL3ZhbmVzc2FlbGl6b25kby9EZXNrdG9wL1RlYy9TZW1lc3RyZSA3L0ZPUk0vRXF1aXBvIDIuNC9CYXNlcyBkZSBkYXRvcy9IUl9CYWphcyAyLmNzdiIpIApzdW1tYXJ5KHJoKQpzdHIocmgpCmBgYAoKIyMjIyBFeHBsb3JhciBkYXRvcwoKYGBge3J9CnJoMTwtcmgKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoTk8uREUuQkFKQVMpKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChBUEVMTElET1MpKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChOT01CUkUpKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChGRUNIQS5ERS5OQUNJTUlFTlRPICkpCnJoMSA8LSBzdWJzZXQgKHJoMSwgc2VsZWN0ID0gLWMgKEZFQ0hBLkRFLkFMVEEgKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoTU9USVZPLkRFLkJBSkEgKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoTk8uQ1JFRElUTy5JTkZPTkFWSVQgKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoQkFKQSApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChERVBBUlRBTUVOVE8gKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoTk8uU0VHVVJPLlNPQ0lBTCApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChGQUNUT1IuQ1JFRC5JTkZPTkFWSVQgKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoTFVHQVIuREUuTkFDSU1JRU5UTyApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChDVVJQICkpCnJoMSA8LSBzdWJzZXQgKHJoMSwgc2VsZWN0ID0gLWMgKENBTExFICkpCnJoMSA8LSBzdWJzZXQgKHJoMSwgc2VsZWN0ID0gLWMgKE5VTUVSTy5JTlRFUk5PICkpCnJoMSA8LSBzdWJzZXQgKHJoMSwgc2VsZWN0ID0gLWMgKENPTE9OSUEgKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoQ09ESUdPLlBPU1RBTCApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChNVU5JQ0lQSU8gKSkKcmgxIDwtIHN1YnNldCAocmgxLCBzZWxlY3QgPSAtYyAoRVNUQURPICkpCnJoMSA8LSBzdWJzZXQgKHJoMSwgc2VsZWN0ID0gLWMgKEVTVEFETy5DSVZJTCApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChUQVJKRVRBLkNVRU5UQSApKQpyaDEgPC0gc3Vic2V0IChyaDEsIHNlbGVjdCA9IC1jIChQVUVTVE8pKQoKI3JoMTwtcmggJT4lIHNlbGVjdChFREFELERJQVMuVFJBQkFKQURPUyxTQUxBUklPLkRJQVJJTy5JTVNTLCBHRU5FUk8pCnN1bW1hcnkocmgxKQoKYGBgCgojIyMjIE5vcm1hbGl6YXIgbG9zIGRhdG9zCgpgYGB7cn0KcmgxX25vcm08LXNjYWxlKHJoMVszOjRdKSAKYGBgCgojIyMjIE51bWVybyBPcHRpbW8gZGUgQ2x1c3RlcnMKCmBgYHtyfQpmdml6X25iY2x1c3QocmgxX25vcm0sIGttZWFucywgbWV0aG9kPSJ3c3MiKSsgIyB3c3MgbWV0aG9kIGNvbnNpZGVycyB0b3RhbCB3aXRoaW4gc3VtIG9mIHNxdWFyZQogIGdlb21fdmxpbmUoeGludGVyY2VwdD00LCBsaW5ldHlwZT0yKSsgICAgIyBvcHRpbWFsIG51bWJlciBvZiBjbHVzdGVycyBpcyBjb21wdXRlZCB3aXRoIHRoZSBkZWZhdWx0IG1ldGhvZCA9ICJldWNsaWRlYW4iCiAgbGFicyhzdWJ0aXRsZSA9ICJFbGJvdyBtZXRob2QiKSAgCmBgYAoKIyMjIyBWaXN1YWxpemFyIGxhIGluZm8gZGUgY2x1c3RlcnMKCmBgYHtyfQpyaDFfY2x1c3Rlcjwta21lYW5zKHJoMV9ub3JtLDQpCnJoMV9jbHVzdGVyCmBgYAoKTXVlc3RyYSBxdWUgdXRpbGljZW1vcyA0IGNsdXN0ZXJzIHBhcmEgYW5hbGl6YXIgeSB2aXN1YWxpemFyIGxhIGluZm9ybWFjacOzbi4KCiMjIyBWaXN1YWxpemFyIFJlc3VsdGFkb3MKCmBgYHtyfQpmdml6X2NsdXN0ZXIocmgxX2NsdXN0ZXIsZGF0YT1yaDFfbm9ybSkKYGBgCgpFbCBwcmltZXIgY2x1c3RlciBhbmFsaXphIGxhIHJlbGFjacOzbiBlbnRyZSBlbCBzYWxhcmlvIGRpYXJpbyBJTVNTIHkgbG9zIGTDrWFzIHRyYWJhamFkb3MgZGUgbG9zIGVtcGxlYWRvcyBxdWUgeWEgZnVlcm9uIGRhZG9zIGRlIGJhamEuIEVuIGVzdGUgY2FzbywgdmVtb3MgcXVlIGhheSB1biBpbXBhY3RvIGFsdG8gZW50cmUgYXF1ZWxsb3MgZW1wbGVhZG9zIHF1ZSB0cmFiYWphcm9uIGRlIDIgYSA4IGTDrWFzLCBwZXJvIHR1dmllcm9uIHVuIHNhbGFyaW8gZGlhcmlvIGJham8sIG11Y2hvIG1lbm9yIGEgMCBlbiBsYSBncsOhZmljYS4gTG9zIG90cm9zIGRvcyByZXN1bHRhZG9zLCBzZSBtdWVzdHJhIHF1ZSB0cmFiYWphcm9uIG1lbm9zIGTDrWFzLCBwZXJvIGFsIGlndWFsIHF1ZSBlbCBwcmltZXIgY2x1c3RlciBleHBsaWNhZG8sIHR1dmllcm9uIHVuIHNhbGFyaW8gbXV5IGJham8uIENvbiBlc3RvcyB0cmVzLCBoYXkgdW5hIGNvcnJlbGFjacOzbiBhbHRhLCBzaWduaWZpY2F0aXZhIHkgbmVnYXRpdmEuIFBhcmEgZWwgZ3J1cG8gZGUgYXJyaWJhLCB2ZW1vcyBxdWUgZXN0b3MgdHJhYmFqYXJvbiB1biBwcm9tZWRpbyBkZSAyLTMgZMOtYXMgeSB0dXZpZXJvbiB1biBzYWxhcmlvIGRpYXJpbyBtdXkgYWx0by4gUG9kZW1vcyBpbmZlcmlyIHF1ZSBlc3RlIGdydXBvIHBlcnRlbmVjZSBhbCDDoXJlYSBhZG1pbmlzdHJhdGl2YSwgcXVlIGNvbW8gdmltb3MgZW4gYW7DoWxpc2lzIGFudGVyaW9yZXMsIHNvbiBlbCBncnVwbyBjb24gdW4gc2FsYXJpbyBtdWNobyBtw6FzIGFsdG8gYWwgcmVzdG8uCgpgYGB7cn0KcmgyPC1yaDEKcmgyJENsdXN0ZXJzPC1yaDFfY2x1c3RlciRjbHVzdGVyCnN1bW1hcnkocmgyKQpgYGAKCiMjIyMgKipDcmVhciB1biBkYXRhc2V0KioKCmBgYHtyfQpsaWJyYXJ5KGRwbHlyKQpyaDM8LXJoMiAlPiUgZ3JvdXBfYnkoQ2x1c3RlcnMpICU+JSBzdW1tYXJpemUgKFNBTEFSSU8uRElBUklPLklNU1M9bWF4KFNBTEFSSU8uRElBUklPLklNU1MpLERJQVMuVFJBQkFKQURPUz1tZWFuKERJQVMuVFJBQkFKQURPUykpICU+JSBkcGx5cjo6IGFycmFuZ2UoZGVzYyhTQUxBUklPLkRJQVJJTy5JTVNTKSkKc3VtbWFyeShyaDMpCmBgYAoKIyMjIyBBZ3J1cGFyIGNsdXN0ZXJzIHBvciBub21icmUKCmBgYHtyfQpyaDIkQ2x1c3Rlcl9OYW1lczwtZmFjdG9yKHJoMiRDbHVzdGVycyxsZXZlbHMgPSBjKDEsMiwzLDQpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWxzPWMoIkJham8iLCAiUHJvbWVkaW8gIiwgIkFycmliYSBkZWwgcHJvbSIsICJBbHRvIikpCnN1bW1hcnkocmgyKQpgYGAKCk11Y2hvcyBkw61hcyB0cmFiYWphZG9zIHkgcG9jbyBzYWxhcmlvCgojIyMjIEFncnVwYXIgeSBkYXIgcmVzdW1lbiBwb3Igbm9tYnJlcwoKYGBge3J9CnJoNCA8LSByaDIlPiUgZ3JvdXBfYnkoQ2x1c3Rlcl9OYW1lcywgR0VORVJPKSAlPiUgZHBseXI6OnN1bW1hcml6ZShESUFTLlRSQUJBSkFET1M9bWF4KERJQVMuVFJBQkFKQURPUyksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFNBTEFSSU8uRElBUklPLklNU1MgPW1lYW4oU0FMQVJJTy5ESUFSSU8uSU1TUyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDb3VudD1uKCkpCmBgYAoKIyMjIyBEYXIgZm9ybWF0byBkZSB0YWJsYSBwYXJhIGVuc2XDsWFyIGxhIGluZm9ybWFjaW9uIGRlIGxvcyBjbHVzdGVycy4KCmBgYHtyfQpjbHVzdGVyczwtYXMuZGF0YS5mcmFtZShyaDQpCmNsdXN0ZXJzCmBgYAoKIyMjIEdyYWZpY2FyIGVsIG5vLiBkZSBkYXRvcyBvYnNlcnZhZG9zIHBvciBub21icmUgZGUgY2x1c3RlcnNsZXRzCgpgYGB7cn0Kc3VtbWFyeShyaDQpCmdncGxvdChyaDQsYWVzKHg9cmVvcmRlcihDbHVzdGVyX05hbWVzLENvdW50KSx5PUNvdW50LGZpbGw9Q2x1c3Rlcl9OYW1lcykpICsKICBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIpCmBgYAoKRGUgYWN1ZXJkbyBhIGxhIGNsYXNpZmljYWNpw7NuIGRlIGNsdXN0ZXJzLCBsYSBncsOhZmljYSBhbnRlcmlvciBub3MgbXVlc3RyYSBlbCBpbXBhY3RvIHkgY29udGVvIGRlIGNhZGEgY2x1c3RlciBkZXBlbmRpZW5kbyBkZWwgZ3J1cG8gZGUgYmFqYSBhbmFsaXphZG8sIGVzIGRlY2lyLCB2ZW1vcyBsYSByZWxhY2nDs24gZW50cmUgZMOtYXMgdHJhYmFqYWRvcyB5IHNhbGFyaW8gZGlhcmlvLCBjbGFzaWZpY2FuZG8gZWwgY29udGVvIGFjb3JkZSBhIGxhIGNhbnRpZGFkIGRlIGJhamFzIG9idGVuaWRhcy4gRW4gZXN0ZSBjYXNvLCBlbiBsYSBncsOhZmljYSBzZSBtdWVzdHJhIHF1ZSBhcXVlbGxvcyBxdWUgdHJhYmFqYXJvbiBtw6FzIGRlIDYwMCBkw61hcyB5IG1lbm9zIGRlIDE5MDAgZMOtYXMsIG9idHV2aWVyb24gdW4gc2FsYXJpbyBwcm9tZWRpbyBkZSBcJDUwMCBwZXNvcyBkaWFyaW8uIEVudHJhIGVuIGxhIGNhdGVnb3LDrWEgZGUgJ2Jham8nLCB5YSBxdWUgc8OzbG8gdW5hIHBlcnNvbmEgb2J0dXZvIGVzdGEgZGVzY3JpcGNpw7NuLiBFbCBwcm9tZWRpbyBkZSBsYXMgcGVyc29uYXMgZGFkYXMgZGUgYmFqYSB0cmFiYWphcm9uIG3DoXMgZGUgMTkwMCBkw61hcyB5IG9idHV2aWVyb24gdW4gc2FsYXJpbyBkaWFyaW8gZGUgXCQxNzAgcGVzb3MuIEVuIGxhIGJhcnJhIGRlICdhbHRvJyB2ZW1vcyBhIGFxdWVsbG9zIGV4LWVtcGxlYWRvcyBxdWUgdHJhYmFqYXJvbiA0MjEgZMOtYXMgeSB0dXZpZXJvbiB1biBzYWxhcmlvIGRpYXJpbyBkZSBcJDE1MCBwZXNvcy4gUG9yIMO6bHRpbW8sIHZlbW9zIGEgYXF1ZWxsb3MgJ2FycmliYSBkZWwgcHJvbWVkaW8nIHkgc29uIGFxdWVsbG9zIHF1ZSB0YWJhamFyb24gdW4gcHJvbWVkaW8gZGUgNDU1IGTDrWFzIHkgdHV2aWVyb24gdW4gc2FsYXJpbyBkaWFyaW8gZGUgXCQxODAgcGVzb3MuIEVzdGUgw7psdGltbyBncnVwbyBlcyBlbCBxdWUgdHV2byBtYXlvciBjb250ZW8gZGUgcGVyc29uYXMsIGVzIGRlY2lyLCBsYSBtYXlvcsOtYSBkZSBsYXMgYmFqYXMgZXN0dXZpZXJvbiBsYWJvcmFuZG8gbcOhcyBkZSB1biBhw7FvIGVuIEZPUk0geSB0ZW7DrWFuIHVuIHNhbGFyaW8gZGlhcmlvIGRlIFwkMTgwIHBlc29zLgoKIyMjIFZlciBSYW5nb3MKCiMjIyMgUmFuZ28gZGUgIkTDrWFzIHRyYWJhamFkb3MiIHBvciBub21icmUKCmBgYHtyfQpnZ3Bsb3Qocmg0LCBhZXMoeD1DbHVzdGVyX05hbWVzLHk9RElBUy5UUkFCQUpBRE9TLGZpbGw9IENsdXN0ZXJfTmFtZXMsbGFiZWw9cm91bmQoRElBUy5UUkFCQUpBRE9TLGRpZ2l0cz0yKSkpICsgCiAgZ2VvbV9jb2woKSArIAogIGdlb21fdGV4dCgpCgpgYGAKCkxhIGdyw6FmaWNhIGFudGVyaW9yIG5vcyBwcmVzZW50YSBsYSBjYW50aWRhZCBkZSBkw61hcyB0cmFiYWphZG9zIGRlIGFjdWVyZG8gYSBsYSBjbGFzaWZpY2FjacOzbiBleHBsaWNhZGEgYW50ZXJpb3JtZW50ZSBkZSAnYmFqbycsICdwcm9tZWRpbycsICdhcnJpYmEgZGVsIHByb21lZGlvJyB5ICdhbHRvJy4gQ29uIGVzdG8gZW4gbWVudGUsIHZlbW9zIHF1ZSBlbCBwcm9tZWRpbyBkZSBsb3MgZW1wbGVhZG9zIGp1bnRhcm9uIHVuIHRvdGFsIGRlIDE5NjYgZMOtYXMgdHJhYmFqYWRvcywgc2lndWnDqW5kb2xlIGVsIGdydXBvIGRlICdiYWpvJywgbG9zIHF1ZSBsYWJvcmFyb24gdW4gcHJvbWVkaW8gZGUgNjI4IGTDrWFzLCBsdWVnbyAnYXJyaWJhIGRlbCBwcm9tZWRpbycgcXVlIGxhYm9yw7MgNDU1IGTDrWFzIHkgZmluYWxtZW50ZSAnYWx0bycsIHF1ZSDDum5pY2FtZW50ZSBsYWJvcsOzIDQyMSBkw61hcy4gRW4gdG9kb3MgbG9zIGdydXBvcywgdmVtb3MgcXVlIGxvcyBlbXBsZWFkb3MgdHJhYmFqYXJvbiBwb3IgbcOhcyBkZSAxIGHDsW8gZW4gRk9STSB5IGdhbmFiYW4gdW4gc2FsYXJpbyBkaWFyaW8gbWF5b3IgYSBcJDE1MCBwZXNvcy4KCiMjIyMgUmFuZ28gZGUgU2FsYXJpbyBEaWFyaW8KCmBgYHtyfQpnZ3Bsb3Qocmg0LGFlcyh4PUNsdXN0ZXJfTmFtZXMseT1TQUxBUklPLkRJQVJJTy5JTVNTLGZpbGw9IENsdXN0ZXJfTmFtZXMsbGFiZWw9cm91bmQoU0FMQVJJTy5ESUFSSU8uSU1TUyxkaWdpdHM9MikpKSArIAogIGdlb21fY29sKCkgKyAKICBnZW9tX3RleHQoKQpgYGAKCkxhIGdyw6FmaWNhIGFudGVyaW9yIG5vcyBwcmVzZW50YSBsYSByZWxhY2nDs24gZW50cmUgZWwgc2FsYXJpbyBkaWFyaW8gSU1TUyB5IGxhIGNsYXNpZmljYWNpw7NuIGV4cGxpY2FkYSBhbnRlcmlvcm1lbnRlIGRlICdiYWpvJywgJ3Byb21lZGlvJywgJ2FycmliYSBkZWwgcHJvbWVkaW8nIHkgJ2FsdG8nLiBDb24gZXN0byBlbiBtZW50ZSwgdmVtb3MgcXVlIGVsIHNlZ21lbnRvICdiYWpvJyBlcyBlbCBxdWUgdGVuw61hIHVuIHNhbGFyaW8gbcOhcyBhbHRvIHF1ZSBsYSBtYXlvcsOtYS4gRWwgcHJvbWVkaW8gZ2FuYWJhIHVuIHNhbGFyaW8gZGlhcmlvIGRlIFwkMTcwLDc5IHBlc29zLCAnYXJyaWJhIGRlbCBwcm9tZWRpbycgZ2FuYWJhIFwkMTgwLDU0IHBlc29zIHkgZWwgc2VnbWVudG8gJ2FsdG8nIGdhYmFuYSB1biBwcm9tZWRpbyBkZSBcJDE1MSw2MSBwZXNvcyBkZSBzYWxhcmlvIGRpYXJpby4gRXN0byBkZW5vdGEgdW5hIHZhcmlhYmlsaWRhZCBhbHRhIHkgcG9kZW1vcyBzdXBvbmVyIHF1ZSBlc3RvIHNlIGRlYsOtYSBkZSBhY3VlcmRvIGEgbGFzIHJlc3BvbnNhYmlsaWRhZGVzIHkgcHVlc3RvcyBhbmFsaXphZG9zLgoKIyMjIERpc3BlcnNpb24gZGUgRGlhcyBUcmFiYWphZG9zCgpgYGB7cn0KZ2dwbG90KHJoMiwgYWVzKHg9Q2x1c3Rlcl9OYW1lcywgeT1ESUFTLlRSQUJBSkFET1MsIGZpbGw9Q2x1c3Rlcl9OYW1lcykpICsKICBnZW9tX2JveHBsb3QoKSsKICBnZ3RpdGxlKCJEaXNwZXJzaW9uIG9mICdEw61hcyB0cmFiYWphZG9zJyBieSBDbHVzdGVycyBOYW1lcyIpCmBgYAoKTGEgZ3LDoWZpY2EgYW50ZXJpb3IgZXhwbGljYSBsYSBkaXNwZXJzacOzbiBkZSBkw61hcyB0cmFiYWphZG9zIGRlIGFjdWVyZG8gYSBsYSBjbGFzaWZpY2FjacOzbiBleHBsaWNhZGEgYW50ZXJpb3JtZW50ZSBkZSAnYmFqbycsICdwcm9tZWRpbycsICdhcnJpYmEgZGVsIHByb21lZGlvJyB5ICdhbHRvJy4gQ29uIGVzdG8gZW4gbWVudGUsIHZlbW9zIHF1ZSBlbCBncnVwbyBjb24gbWF5b3IgZGlzcGVyc2nDs24gZXMgJ3Byb21lZGlvJywgcHVlcyBoYXkgdW5hIHZhcmlhYmlsaWRhZCBtw6FzIHNpZ25pZmljYXRpdmEgZW4gbG9zIGRhdG9zIGRlIGxhIGNhbnRpZGFkIGRlIGTDrWFzIHRyYWJhamFkb3MsIGRlc3RhY2FuZG8gbGEgbWVkaWEgZGUgZMOtYXMgdHJhYmFqYWRvcywgZXMgZGVjaXIsIDEwMDAgZMOtYXMuIEVuIGVsIGNhc28gZGUgJ2Jham8nLCBoYXkgdW5hIGRpc3BlcnNpw7NuIGJhamEgeSBwb2NvIHZhcmlhYmxlLiBQYXJhICdhcnJpYmEgZGVsIHByb21lZGlvJywgdmVtb3MgcXVlIGxvcyBwdW50b3MgYXTDrXBpY29zIHNlIHNhbGVuIGRlbCBib3hwbG90IGVzcGVjw61maWNvLCBsbyBjdWFsIHF1aXRhcmxvcyBub3MgcHVlZGUgZGFyIG1heW9yIGNsYXJpZGFkIHkgdmlzaWJpbGlkYWQgZGUgbGEgaW5mb3JtYWNpw7NuLiBQYXJhICdhbHRvJyBzZSBtdWVzdHJhIHVuYSBkaXNwZXJzacOzbiBtZW5vciBhICdwcm9tZWRpbycgeSBhbCBpZ3VhbCBxdWUgJ2FycmliYSBkZWwgcHJvbWVkaW8nLCB0aWVuZSBhcGFyaWNpw7NuIGRlIHB1bnRvcyBhdMOtcGljb3MuCgojIyMgRGlzcGVyc2lvbiBkZSBTYWxhcmlvIGRpYXJpbwoKYGBge3J9CmdncGxvdChyaDIsIGFlcyh4PUNsdXN0ZXJfTmFtZXMsIHk9U0FMQVJJTy5ESUFSSU8uSU1TUywgZmlsbD1DbHVzdGVyX05hbWVzKSkgKwogIGdlb21fYm94cGxvdCgpKwogIGdndGl0bGUoIkRpc3BlcnNpb24gb2YgJ1NhbGFyaW9fRGlhcmlvJyBieSBDbHVzdGVycyBOYW1lcyIpCmBgYAoKTGEgZ3LDoWZpY2EgYW50ZXJpb3IgZXhwbGljYSBsYSBkaXNwZXJzacOzbiBkZSBzYWxhcmlvIGRpYXJpbyBkZSBhY3VlcmRvIGEgbGEgY2xhc2lmaWNhY2nDs24gZXhwbGljYWRhIGFudGVyaW9ybWVudGUgZGUgJ2Jham8nLCAncHJvbWVkaW8nLCAnYXJyaWJhIGRlbCBwcm9tZWRpbycgeSAnYWx0bycuICdCYWpvJyBtdWVzdHJhIHVuIHNhbGFyaW8gZGlhcmlvIGRlIFwkNTAwIHBlc29zLCAncHJvbWVkaW8nIG11ZXN0cmEgdW4gc2FsYXJpbyBkZSBcJDE4MCBwZXNvcyBhcHJveCB5IHB1bnRvcyBhdMOtcGljb3MgcXVlIHBvZHLDrWFuIGluc2ludWFyIHVuIHNhbGFyaW8gbWVub3IsICdhcnJpYmEgZGVsIHByb21lZGlvJyB0YW1iacOpbiBtdWVzdHJhIHB1bnRvcyBhdMOtcGljb3MuIFNpbiBlbWJhcmdvLCB0b2RvcyBzZSBtYW50aWVuZW4gYWwgaWd1YWwgcXVlIGVsIGRhdG8gYW50ZXJpb3IgZW50cmUgXCQxNzAgeSBcJDE4MCBwZXNvcyBkZSBzYWxhcmlvIGRpYXJpbywgRmluYWxtZW50ZSwgJ2FsdG8nIG11ZXN0cmEgdW4gc2FsYXJpbyBkaWFyaW8gYWJham8gZGVsIHByb21lZGlvIGRlIGFwcm94LiBcJDE0MCBwZXNvcy4KCiMjIDxzcGFuIHN0eWxlID0gImNvbG9yOmRhcmtvcmFuZ2UiPioqQ2x1c3RlciAyKioKCiMjIyBJbXBvcnRhciBCYXNlIGRlIERhdG9zCgpmaWxlLmNob29zZSgpCgpgYGB7cn0KcmhDbHVzdGVyMjwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvSFJfQmFqYXMgMi5jc3YiKSAgCnN1bW1hcnkocmhDbHVzdGVyMikKc3RyKHJoQ2x1c3RlcjIpCmBgYAoKIyMjIEV4cGxvcmFyIEtNZWFucyBlbiBlZGFkIHBvciBhw7FvcwoKYGBge3J9Cmh1bWFub3M1PC1yaENsdXN0ZXIyCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChOTy5ERS5CQUpBUykpCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChBUEVMTElET1MpKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoTk9NQlJFKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKEZFQ0hBLkRFLk5BQ0lNSUVOVE8gKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKEdFTkVSTyApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoRkVDSEEuREUuQUxUQSApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoTU9USVZPLkRFLkJBSkEgKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKE5PLkNSRURJVE8uSU5GT05BVklUICkpCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChCQUpBICkpCiNodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoTU9USVZPLkRFLkJBSkEgKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKERFUEFSVEFNRU5UTyApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoTk8uU0VHVVJPLlNPQ0lBTCApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoRkFDVE9SLkNSRUQuSU5GT05BVklUICkpCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChMVUdBUi5ERS5OQUNJTUlFTlRPICkpCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChDVVJQICkpCmh1bWFub3M1IDwtIHN1YnNldCAoaHVtYW5vczUsIHNlbGVjdCA9IC1jIChDQUxMRSApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoTlVNRVJPLklOVEVSTk8gKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKENPTE9OSUEgKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKENPRElHTy5QT1NUQUwgKSkKaHVtYW5vczUgPC0gc3Vic2V0IChodW1hbm9zNSwgc2VsZWN0ID0gLWMgKE1VTklDSVBJTyApKQpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoRVNUQURPICkpCgpodW1hbm9zNSA8LSBzdWJzZXQgKGh1bWFub3M1LCBzZWxlY3QgPSAtYyAoVEFSSkVUQS5DVUVOVEEgKSkKCiNodW1hbm9zNTwtcmhDbHVzdGVyMiAlPiUgc2VsZWN0KEVEQUQsRElBUy5UUkFCQUpBRE9TLFNBTEFSSU8uRElBUklPLklNU1MpCnN1bW1hcnkoaHVtYW5vczUpCmBgYAoKIyMjIyBOb3JtYWxpemFyIGxvcyBkYXRvcwoKYGBge3J9CnJoQ2x1c3Rlcl9ub3JtPC1zY2FsZShodW1hbm9zNVsxOjJdKSAKYGBgCgojIyMjIFNhY2FyIG51bWVybyBkZSBjbHVzdGVycwoKZnZpel9uYmNsdXN0KCkgaGVscHMgdG8gZGV0ZXJtaW5lIGFuZCB2aXN1YWxpemUgdGhlIG9wdGltYWwgbnVtYmVyIG9mIGNsdXN0ZXJzCgpgYGB7cn0KZnZpel9uYmNsdXN0KHJoQ2x1c3Rlcl9ub3JtLCBrbWVhbnMsIG1ldGhvZD0id3NzIikrICMgd3NzIG1ldGhvZCBjb25zaWRlcnMgdG90YWwgd2l0aGluIHN1bSBvZiBzcXVhcmUKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQ9NCwgbGluZXR5cGU9MikrICAgICAgICAgICAjIG9wdGltYWwgbnVtYmVyIG9mIGNsdXN0ZXJzIGlzIGNvbXB1dGVkIHdpdGggdGhlIGRlZmF1bHQgbWV0aG9kID0gImV1Y2xpZGVhbiIKICBsYWJzKHN1YnRpdGxlID0gIkVsYm93IG1ldGhvZCIpCgpgYGAKCiMjIyMgVmVyIGRhdG9zIGRlIGxvcyBjbHVzdGVycwoKYGBge3J9CnJoX2NsdXN0ZXIyPC1rbWVhbnMocmgxX25vcm0sNCkKcmhfY2x1c3RlcjIKYGBgCgojIyMgVmlzdWFsaXphciBjbHVzdGVyaW5nCgpgYGB7cn0KZnZpel9jbHVzdGVyKHJoX2NsdXN0ZXIyLGRhdGE9cmhDbHVzdGVyX25vcm0pCmBgYAoKTGEgZ3LDoWZpY2EgYW50ZXJpb3IgbXVlc3RyYSA0IGNsdXN0ZXJzIHF1ZSBhbmFsaXphbiBsYSByZWxhY2nDs24gZW50cmUgZWRhZCB5IGTDrWFzIHRyYWJhamFkb3MuIEVsIGNsdXN0ZXIgdmVyZGUgbXVlc3RyYSBxdWUgdW4gYWx0byBuw7ptZXJvIGRlIHBlcnNvbmFzIHRhYmFqYWJhIG3DoXMgZMOtYXMgcXVlIGVsIHByb21lZGlvIHkgdGVuw61hIHVuYSBlZGFkIHNpbWlsYXIgYWwgcHJvbWVkaW8uIEVsIHB1bnRvIG5hcmFuamEgbXVlc3RyYSBxdWUgcG9jb3MgdXN1YXJpb3MgdHJhYmFqYWJhbiBtw6FzIGTDrWFzIHF1ZSBlbCBwcm9tZWRpbyB5IGFsIGlndWFsIHF1ZSBlbCBwdW50byBhbnRlcmlvciwgdGVuw61hbiB1bmEgZWRhZCBwcm9tZWRpby4gRW4gZWwgY2FzbyBkZWwgcHVudG8gYXp1bCB5IGVsIG1vcmFkbywgYW1ib3MgbXVlc3RyYW4gcXVlIHVuIG1heW9yIGdydXBvIGRlIHBlcnNvbmFzIGxhYm9yYWJhICcyIGTDrWFzJywgcGVybyB0ZW7DrWEgbWF5b3IgdmFyaWFiaWxpZGFkIGVuIGxhIGVkYWQuCgojIyMjIEFncmVnYXIgbGEgaW5mbyBhbCBkYXRhIHNldCBvcmlnaW5hbAoKYGBge3J9Cmh1bWFub3M2PC1odW1hbm9zNQpodW1hbm9zNiRDbHVzdGVyczwtcmhfY2x1c3RlcjIkY2x1c3RlcgpzdW1tYXJ5KGh1bWFub3M2KQpgYGAKCiMjIyBDcmVhciBEYXRhc2V0CgpsZXRzIGNyZWF0ZSBhIGRhdGFzZXQgc28gd2UgY2FuIGlkZW50aWZ5IHNvbWUgY2hhcmFjdGVyaXN0aWNzIG9mICJFZGFkIiBieSBjbHVzdGVyCgpgYGB7cn0KaHVtYW5vczc8LWh1bWFub3M2ICU+JSBncm91cF9ieShDbHVzdGVycywgRVNUQURPLkNJVklMKSAlPiUgIHN1bW1hcmlzZShFREFEPW1heChFREFEKSxESUFTLlRSQUJBSkFET1M9bWVhbihESUFTLlRSQUJBSkFET1MpKSAlPiUgZHBseXI6OmFycmFuZ2UoZGVzYyhFREFEKSkKc3VtbWFyeShodW1hbm9zNykKYGBgCgojIyMjIEFncnVwYXIgY2x1c3RlcnMgcG9yIG5vbWJyZQoKYGBge3J9Cmh1bWFub3M2JENsdXN0ZXJfTmFtZXM8LWZhY3RvcihodW1hbm9zNiRDbHVzdGVycyxsZXZlbHMgPSBjKDEsMiwzLDQpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHM9YygiSm92ZW4iLCAiQXZhbnphZG8gIiwgIiBBZHVsdG8iLCAiSnViaWxhZG8iKSkKc3VtbWFyeShodW1hbm9zNikKYGBgCgpFbnRyZSBtw6FzIGpvdmVuIG3DoXMgZMOtYXMgdHJhYmFqYWRvcwoKIyMjIyBBZ3J1cGFyIHBvciBjbHVzdGVycyB5IHJlc3VtaXIgY29sdW1uYXMKCmBgYHtyfQpodW1hbm9zOCA8LSBodW1hbm9zNiAlPiUgZ3JvdXBfYnkoQ2x1c3Rlcl9OYW1lcywgRVNUQURPLkNJVklMKSAlPiUgZHBseXI6OiBzdW1tYXJpemUoRURBRD1tYXgoRURBRCksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRElBUy5UUkFCQUpBRE9TID1tZWFuKERJQVMuVFJBQkFKQURPUyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIENvdW50PW4oKSkKYGBgCgojIyMjIENvbnZlcnRpciBhIHRhYmxhCgpgYGB7cn0KY2x1c3RlcnMyPC1hcy5kYXRhLmZyYW1lKGh1bWFub3M4KQpjbHVzdGVyczIKYGBgCgojIyMgVmlzdWFsaXphciBncmFmaWNvcwoKIyMjIyBWZXIgbG9zIGRpYXMgdHJhYmFqYWRvcyBlbiBnZW5lcmFsIGp1bnRvIGNvbiBsYSBlZGFkCgpgYGB7cn0KZ2dwbG90KGh1bWFub3M4LGFlcyh4PXJlb3JkZXIoQ2x1c3Rlcl9OYW1lcyxDb3VudCkseT1Db3VudCxmaWxsPUNsdXN0ZXJfTmFtZXMpKSArCiAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiKQpgYGAKCkxhIGdyw6FmaWNhIGFudGVyaW9yIG5vcyBtdWVzdHJhIGxhIGNhbnRpZGFkIGRlIGTDrWFzIHRyYWJhamFkb3MgZGUgYWN1ZXJkbyBhIGxhIGVkYWQgZGUgbG9zIGVtcGxlYWRvcy4gRW4gZXN0ZSBjYXNvLCB2ZW1vcyBxdWUgZWwgZ3J1cG8gZGUgZWRhZCAnam92ZW4nIHRlbsOtYW4gYXByb3guIDMxIGHDsW9zIHkgcmVwcmVzZW50YSB1biBiYWpvIHBvcmNlbnRhamUgZGUgbG9zIGVtcGxlYWRvcy4gUGFyYSAnYXZhbnphZG8nIHNvbiBsb3MgZW1wbGVhZG9zIHF1ZSB0aWVuZW4gYXJyaWJhIGRlIDMyIGHDsW9zIHkgbGFib3Jhcm9uIGxhIG1heW9yIGNhbnRpZGFkIGRlIGTDrWFzICgxMDY3KS4gUGFyYSAnanViaWxhZG8nLCBzb24gbGFzIHBlcnNvbmFzIGNvbiB1biBhcHJveC4gZGUgNTAgYcOxb3MgeSBxdWUgbGFib3Jhcm9uIGR1cmFudGUgMTAyIGTDrWFzLiBGaW5hbG1lbnRlLCBwYXJhIGVsIGdydXBvIGRlICdhZHVsdG8nIChlbCBtw6FzIGVsZXZhZG8pLCBzb24gYXF1ZWxsb3MgcXVlIGxhYm9yYXJvbiB1biBwcm9tZWRpbyBkZSA0NCBkw61hcyB5IHRpZW5lbiBsYSBlZGFkIGRlIDUyIGHDsW9zLgoKIyMjIyBEaWFzIHRyYWJhamFkb3MgcG9yIG5vbWJyZSBkZSBjbHVzdGVycwoKYGBge3J9CmdncGxvdChodW1hbm9zOCwgYWVzKHg9Q2x1c3Rlcl9OYW1lcyx5PURJQVMuVFJBQkFKQURPUyxmaWxsPSBDbHVzdGVyX05hbWVzLGxhYmVsPXJvdW5kKERJQVMuVFJBQkFKQURPUyxkaWdpdHM9MikpKSArIAogIGdlb21fY29sKCkgKyAKICBnZW9tX3RleHQoKQpgYGAKCkxhIGdyw6FmaWNhIGFudGVyaW9yIG5vcyBtdWVzdHJhIGxhIGNhbnRpZGFkIGRlIGTDrWFzIHRyYWJhamFkb3MgZGUgYWN1ZXJkbyBhIGxvcyBkw61hcyB0cmFiYWphZG9zLiBFbiBlc3RlIGNhc28sIGVzdG8gbm9zIG11ZXN0cmEgcXVlIGVsIGdydXBvIGNvbiBtYXlvciBiYWphcyBmdWVyb24gZGVsIHNlZ21lbnRvICdhZHVsdG8nIHkgZXMgZWwgcXVlIGxhYm9yw7MgZW4gcHJvbWVkaW8gdW4gbWVub3IgbsO6bWVybyBkZSBkw61hcyBjb250cmEgJ2F2YW56YWRvJyBxdWUgZXMgZWwgc2VndW5kbyBncnVwbyBtw6FzIGJham8geSBsYWJvcsOzIGVsIG1heW9yIG7Dum1lcm8gZGUgZMOtYXMgZW4gcHJvbWVkaW8uCgojIyMjIEVkYWQgcG9yIG5vbWJyZSBkZSBjbHVzdGVycwoKYGBge3J9CmdncGxvdChodW1hbm9zOCxhZXMoeD1DbHVzdGVyX05hbWVzLHk9RURBRCxmaWxsPSBDbHVzdGVyX05hbWVzLGxhYmVsPXJvdW5kKEVEQUQsZGlnaXRzPTIpKSkgKyAKICBnZW9tX2NvbCgpICsgCiAgZ2VvbV90ZXh0KCkKYGBgCgpMYSBncsOhZmljYSBhbnRlcmlvciBub3MgbXVlc3RyYSBsYSBlZGFkIHByb21lZGlvIGRlIGNhZGEgdW5vIGRlIGxvcyBncnVwb3MuIENvbW8gZXhwbGljYW1vcyBhbnRlcmlvcm1lbnRlLCBzZSBtdWVzdHJhIHF1ZSAnYWR1bHRvJyBlcyBlbCBkZSBlbXBsZWFkb3MgY29uIG1heW9yIGVkYWQgeSAnam92ZW4nIGVzIGVsIGRlIHBlcnNvbmFzIGRlIG1lbm9yIGVkYWQuCgojIyMjIERpYXMgdHJhYmFqYWRvcyBwb3Igbm9tYnJlIGRlIGNsdXN0ZXJzCgpgYGB7cn0KZ2dwbG90KGh1bWFub3M2LCBhZXMoeD1DbHVzdGVyX05hbWVzLCB5PUVEQUQsIGZpbGw9Q2x1c3Rlcl9OYW1lcykpICsKICBnZW9tX2JveHBsb3QoKSsKICBnZ3RpdGxlKCJEaXNwZXJzaW9uIG9mICdFZGFkJyBieSBDbHVzdGVycyBOYW1lcyIpCmBgYAoKTGEgZ3LDoWZpY2EgYW50ZXJpb3Igbm9zIG11ZXN0cmEgbGEgZGlzcGVyc2nDs24gZGUgYWN1ZXJkbyBhIGxhIGVkYWQgZGUgbG9zIGVtcGxlYWRvcy4gRW4gZWwgY2FzbyBkZSAnYWR1bHRvJywgdGllbmUgdW5hIGdyYW4gY2FudGlkYWQgZGUgcHVudG9zIGF0w61waWNvcyBsbyBjdWFsIGluZGljYSBxdWUgaGF5IGRhdG9zIGZ1ZXJhIGRlIHNlcmllLiBFbiBlbCBjYXNvIGRlICdqdWJpbGFkbycsIHZlbW9zIHF1ZSBlcyBlbCBncnVwbyBjb24gbWF5b3IgZGlzcGVyc2nDs24sIG1vc3RyYW5kbyBkYXRvcyBkZSBlZGFkIGVudHJlIDI1IHkgMzIgYcOxb3MuCgojIyMjIFNhbGFyaW8gZGlhcmlvIHBvciBub21icmUgZGUgY2x1c3RlcnMKCmBgYHtyfQpnZ3Bsb3QoaHVtYW5vczYsIGFlcyh4PUNsdXN0ZXJfTmFtZXMsIHk9RElBUy5UUkFCQUpBRE9TLCBmaWxsPUNsdXN0ZXJfTmFtZXMpKSArCiAgZ2VvbV9ib3hwbG90KCkrCiAgZ2d0aXRsZSgiRGlzcGVyc2lvbiBvZiAnRGlhc19UcmFiYWphZG9zJyBieSBDbHVzdGVycyBOYW1lcyIpCmBgYAoKTGEgZ3LDoWZpY2EgYW50ZXJpb3IgbXVlc3RyYSBsYSBkaXNwZXJzacOzbiBkZSBhY3VlcmRvIGEgZMOtYXMgdHJhYmFqYWRvcyB5IGxvcyBncnVwb3MgYW50ZXJpb3IgZXhwbGljYWRvcy4gVmVtb3MgcXVlICdhdmFuemFkbycgZXMgZWwgZ3VycG8gY29uIG1heW9yIGRpc3BlcnNpw7NuLCBtb3N0cmFuZG8gcXVlIGVsIHByb21lZGlvIGRlIGxvcyBlbXBsZWFkb3MgbGFib3Jhcm9uIGVudHJlIDU1MCB5IDEzMDAgZMOtYXMuIEVzIGVsIGdydXBvIGNvbiBtYXlvciBuw7ptZXJvIGRlIGVtcGxlYWRvcyBxdWUgdHJhYmFqYXJvbiBlbiBlc3RlIHBlcmlvZG8gZGUgdGllbXBvLiBFbiBlbCBjYXNvIGRlICdhZHVsdG8nIHkgJ2p1YmlsYWRvJywgc29uIGFxdWVsbG9zIGdydXBvcyBxdWUgbXVlc3RyYW4gdW5hIGRpc3BlcnNpw7NuIGJhamEgeSB1bmEgdmFyaWVkYWQgZGUgcHVudG9zIGF0w61waWNvcywgbWllbnRyYXMgcXVlICdqb3ZlbicgZGVzdGFjYSB1bmEgYmFqYSBkaXNwZXJzacOzbiB5IHVuYSBtZWRpYSBkZSBtw6FzIGRlIDUwMCBkw61hcyB0cmFiYWphZG9zLgoKIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya29yYW5nZSI+KipDbHVzdGVyIDMqKgoKIyMjIEltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MKCmBgYHtyfQpjbHVzdGVyMzwtcmVhZC5jc3YoIi9Vc2Vycy92YW5lc3NhZWxpem9uZG8vRGVza3RvcC9UZWMvU2VtZXN0cmUgNy9GT1JNL0VxdWlwbyAyLjQvQmFzZXMgZGUgZGF0b3MvSFJfQmFqYXMgMi5jc3YiKSAKc3VtbWFyeShjbHVzdGVyMykKc3RyKGNsdXN0ZXIzKQpgYGAKCiMjIyBOdW1lcm8gZGUgY2x1c3RlcnMKCiMjIyMgSnVudGFyIGxvcyBkYXRvcyByZWxhY2lvbmFkb3MgYSBlZGFkIGVuIGHDsW9zCgpgYGB7cn0KCm5ld2JkPC1jbHVzdGVyMwpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoTk8uREUuQkFKQVMpKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoQVBFTExJRE9TKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKE5PTUJSRSkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChGRUNIQS5ERS5OQUNJTUlFTlRPICkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChHRU5FUk8gKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKEZFQ0hBLkRFLkFMVEEgKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKE1PVElWTy5ERS5CQUpBICkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChOTy5DUkVESVRPLklORk9OQVZJVCApKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoQkFKQSApKQoKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKERFUEFSVEFNRU5UTyApKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoTk8uU0VHVVJPLlNPQ0lBTCApKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoRkFDVE9SLkNSRUQuSU5GT05BVklUICkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChMVUdBUi5ERS5OQUNJTUlFTlRPICkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChDVVJQICkpCm5ld2JkIDwtIHN1YnNldCAobmV3YmQsIHNlbGVjdCA9IC1jIChDQUxMRSApKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoTlVNRVJPLklOVEVSTk8gKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKENPTE9OSUEgKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKENPRElHTy5QT1NUQUwgKSkKbmV3YmQgPC0gc3Vic2V0IChuZXdiZCwgc2VsZWN0ID0gLWMgKE1VTklDSVBJTyApKQpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoRVNUQURPICkpCgpuZXdiZCA8LSBzdWJzZXQgKG5ld2JkLCBzZWxlY3QgPSAtYyAoVEFSSkVUQS5DVUVOVEEgKSkKCiNuZXdiZDwtY2x1c3RlcjMgJT4lIHNlbGVjdChFREFELFNBTEFSSU8uRElBUklPLklNU1MsRElBUy5UUkFCQUpBRE9TKQpzdW1tYXJ5KG5ld2JkKQpgYGAKCiMjIyMgTm9ybWFsaXphciBkYXRvcwoKYGBge3J9Cm5ld2Jkbm9ybTwtc2NhbGUobmV3YmRbMjoxXSkKYGBgCgojIyMjIEdyYWZpY2EgcGFyYSB2ZXIgbnVtZXJvIG9wdGltbyBkZSBjbHVzdGVycwoKYGBge3J9CmZ2aXpfbmJjbHVzdChuZXdiZG5vcm0sIGttZWFucywgbWV0aG9kPSJ3c3MiKSsgIyB3c3MgbWV0aG9kIGNvbnNpZGVycyB0b3RhbCB3aXRoaW4gc3VtIG9mIHNxdWFyZQogIGdlb21fdmxpbmUoeGludGVyY2VwdD00LCBsaW5ldHlwZT0yKSsgICAgICAgICAgICMgb3B0aW1hbCBudW1iZXIgb2YgY2x1c3RlcnMgaXMgY29tcHV0ZWQgd2l0aCB0aGUgZGVmYXVsdCBtZXRob2QgPSAiZXVjbGlkZWFuIgogIGxhYnMoc3VidGl0bGUgPSAiRWxib3cgbWV0aG9kIikKYGBgCgojIyMjIFZpc3VhbGl6YXIgaW5mb3JtYWNpb24KCmBgYHtyfQpuZXdiZDJjbHVzPC1rbWVhbnMobmV3YmRub3JtLDQpCm5ld2JkMmNsdXMKYGBgCgojIyMgVmVyIHJlc3VsdGFkb3MgZGUgY2x1c3RlcnMKCmBgYHtyfQpmdml6X2NsdXN0ZXIobmV3YmQyY2x1cyxkYXRhPW5ld2Jkbm9ybSkKYGBgCgojIyMjIEFncmVnYXIgbG9zIHJlc3VsdGFkb3MgYWwgZGF0YXNldCBvcmlnaW5hbCBwYXJhIGludGVycHJldGFjaW9uCgpgYGB7cn0KbmV3YmQzPC1uZXdiZCAKbmV3YmQzJENsdXN0ZXJzPC1uZXdiZDJjbHVzJGNsdXN0ZXIKc3VtbWFyeShuZXdiZDMpCmBgYAoKIyMjIyBDcmVhciBkYXRhc2V0cyBwYXJhIHZlciBsYSBpbmZvIGRlIGNhcmFjdGVyaXN0aWNhcyBwb3IgZWRhZCBwb3IgY2x1c3RlcnMKCmBgYHtyfQpuZXdiZDQ8LW5ld2JkMyAlPiUgZ3JvdXBfYnkoQ2x1c3RlcnMpICU+JSBzdW1tYXJpc2UoRURBRD1tYXgoRURBRCksU0FMQVJJTy5ESUFSSU8uSU1TUz1tZWFuKFNBTEFSSU8uRElBUklPLklNU1MpKSAlPiUgZHBseXI6OmFycmFuZ2UoZGVzYyhFREFEKSkKc3VtbWFyeShuZXdiZDQpCmBgYAoKIyMjIyBBZ3J1cGFyIGNsdXN0ZXJzIHBvciBub21icmUKCmBgYHtyfQpuZXdiZDMkQ2x1c3Rlcl9OYW1lczwtZmFjdG9yKG5ld2JkMyRDbHVzdGVycyxsZXZlbHMgPSBjKDEsMiwzLDQpLCAKICAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHM9YygiSm92ZW4iLCAiQXZhbnphZG8gIiwgIiBBZHVsdG8iLCAiSnViaWxhZG8iKSkKc3VtbWFyeShuZXdiZDMpCmBgYAoKIyMjIyBBZ3J1cGFyIHBvciBub21icmUgeSBwb3IgY29sdW1uYQoKYGBge3J9Cm5ld2JkNSA8LSBuZXdiZDMlPiUgZ3JvdXBfYnkoQ2x1c3Rlcl9OYW1lcykgJT4lIGRwbHlyOjpzdW1tYXJpemUoRURBRD1tYXgoRURBRCksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU0FMQVJJTy5ESUFSSU8uSU1TUyA9bWVhbihTQUxBUklPLkRJQVJJTy5JTVNTKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ291bnQ9bigpKQpgYGAKCiMjIyBWaXN1YWxpemFyIGdyYWZpY2FzCgojIyMjIFBvbmVyIGNvbW8gdGFibGEgbG9zIGRhdG9zCgpgYGB7cn0KY2x1c3RlcnNzYWxhcmlvPC1hcy5kYXRhLmZyYW1lKG5ld2JkNSkKY2x1c3RlcnNzYWxhcmlvCmBgYAoKIyMjIyBHcmFmaWNhciBwb3Igbm9tYnJlCgpgYGB7cn0KZ2dwbG90KG5ld2JkNSxhZXMoeD1yZW9yZGVyKENsdXN0ZXJfTmFtZXMsQ291bnQpLHk9Q291bnQsZmlsbD1DbHVzdGVyX05hbWVzKSkgKwogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikKYGBgCgojIyMjIFNhbGFyaW8gZGlhcmlvIHBvciBudW1lcm8gZGUgY2x1c3RlcnMKCmBgYHtyfQpnZ3Bsb3QobmV3YmQ1LCBhZXMoeD1DbHVzdGVyX05hbWVzLHk9U0FMQVJJTy5ESUFSSU8uSU1TUyxmaWxsPSBDbHVzdGVyX05hbWVzLGxhYmVsPXJvdW5kKFNBTEFSSU8uRElBUklPLklNU1MsZGlnaXRzPTIpKSkgKyAKICBnZW9tX2NvbCgpICsgCiAgZ2VvbV90ZXh0KCkKYGBgCgpBcXVpIG5vcyBwb2RlbW9zIGRhciBjdWVudGEgYWNlcmNhIHF1ZSBsb3Mgc3VlbGRvcyBubyB2YXJpYW4gbXVjaG8gZW50cmUgZWRhZGVzIHBlcm8gZXMgaW1wb3J0YW50ZSBkZWNpciBxdWUgc2UgZGVub3RhIHBvciBjZW50YXZvcyB1bmEgbWF5b3JpYSBlbiBlbCBzdWVsZG8gZGUgbG9zIGpvdmVuZXMgZXNwZWNpZmljYW1lbnRlIG3DoXMgcXVlIGVuIG90cm9zIHJhbmdvcyBkZSBlZGFkZXMuCgojIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrb3JhbmdlIj4qKkNsdXN0ZXIgNCoqCgoqSWRlbnRpZmljYWNpw7NuIGRlIGNhcmFjdGVyw61zdGljYXMgZGUgY2zDunN0ZXJzIHNlbGVjY2lvbmFkb3MqCgojIyMgR3JhZmljYXIgZWwgbm8uIGRlIGRhdG9zIG9ic2VydmFkb3MgcG9yIEdlbmVybwoKYGBge3J9CmdncGxvdChyaDQsYWVzKHg9cmVvcmRlcihDbHVzdGVyX05hbWVzLENvdW50KSx5PUNvdW50LGZpbGw9R0VORVJPKSkgKwogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikKYGBgCgojIyMgVmVyIGxvcyBkaWFzIHRyYWJhamFkb3MgZW4gZ2VuZXJhbCBqdW50byBjb24gbGEgZWRhZCB5IEVzdGFkbyBjaXZpbAoKYGBge3J9CmdncGxvdChodW1hbm9zOCxhZXMoeD1yZW9yZGVyKENsdXN0ZXJfTmFtZXMsQ291bnQpLHk9Q291bnQsZmlsbD1FU1RBRE8uQ0lWSUwpKSArCiAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiKQpgYGAKCiMjIyBHcmFmaWNhciBwb3Igbm9tYnJlCgpgYGB7cn0KZ2dwbG90KG5ld2JkNSxhZXMoeD1yZW9yZGVyKENsdXN0ZXJfTmFtZXMsQ291bnQpLHk9Q291bnQsZmlsbD1TQUxBUklPLkRJQVJJTy5JTVNTKSkgKwogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikKYGBgCgojIyMjIEdyw6FmaWEgdGlwbyBnZ2FsbHV2aWFsCgoqRW5jb250cmFyIGFzb2NpYWNpb25lcyBlbnRyZSBsYXMgY2F0ZWdvcsOtYXMgeSBsYXMgdmFyaWFibGVzIGNvbiBsb3MgY2x1c3RlcnMgY3JlYWRvcyoKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpCmxpYnJhcnkoZ2dwbG90MikKI2luc3RhbGwucGFja2FnZXMoImdnYWxsdXZpYWwiKQpsaWJyYXJ5KGdnYWxsdXZpYWwpCgpyaF9sbHV2aWE8LXJoMgpzdW1tYXJ5KHJoX2xsdXZpYSkKCnJoX2xsdXZpYTwtcmgyICU+JSBmaWx0ZXIoQ2x1c3RlcnM9PTEgfCBDbHVzdGVycz09MykgJT4lIGFycmFuZ2UoQ2x1c3RlcnMpCmdncGxvdChhcy5kYXRhLmZyYW1lKHJoX2xsdXZpYSksCiAgICAgICBhZXMoeT1TQUxBUklPLkRJQVJJTy5JTVNTLCBheGlzMT1FREFELCBheGlzMj1ESUFTLlRSQUJBSkFET1MpKSArCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbD1DbHVzdGVyX05hbWVzKSwgd2lkdGggPSAxLzEyKSArCiAgZ2VvbV9zdHJhdHVtKHdpZHRoID0gMS8xMiwgZmlsbCA9ICJibGFjayIsIGNvbG9yID0gImdyZXkiKSArCiAgZ2VvbV9sYWJlbChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSkgKwogIHNjYWxlX3hfZGlzY3JldGUobGltaXRzID0gYygiRWRhZCIsICJEw61hcyBUcmFiYWphZG9zIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArCiAgc2NhbGVfZmlsbF9icmV3ZXIodHlwZSA9ICJxdWFsIiwgcGFsZXR0ZSA9ICJTZXQxIikgKwogIGdndGl0bGUoIkZPUk0gU2FsYXJpbyBEaWFyaW8gcG9yIEVkYWQgeSBsb3MgRGlhcyBUcmFiYWphZG9zIikKCmBgYAoKQ29uIGVzdGEgZ3LDoWZpY2EgbGx1dmlhbCBzZSBhbmFsaXphcm9uIHRyZXMgdmFyaWFibGVzLCBlbCBzYWxhcmlvIG3DrW5pbW8sIGxhcyBlZGFkZXMgeSBsb3MgZMOtYXMgdHJhYmFqYWRvcywgZXN0YXMgdmFyaWFibGVzIHV0aWxpemFuZG8gbG9zIGNsdXN0ZXJzIG5hbWVzIGRlIHNhbGFyaW9zLCBwb3IgbG8gcXVlIG5vcyBkZWphIHRlbmllbmRvIGRvcyBncnVwb3MsIGFxdWVsbG9zIGNvbiBlbCBtZW5vciBzYWxhcmlvICJCYWpvIiB5IGFxdWVsbG9zIHF1ZSB0aWVuZW4gdW4gc2FsYXJpbyBtw6FzIGFsdG8gZGUgbG8gY29tw7puICJBcnJpYmEgZGVsIFByb20iLiBEZSBlc3RlIG1vZG8gcG9kZW1vcyBvYnRlbmVyIGluZm9ybWFjacOzbiBhY2VyY2EgZGVsIHNhbGFyaW8gZGlhcmlvIHF1ZSBsb3MgdHJhYmFqYWRvcmVzIGRlIEZPUk0gdGllbmVuIGVuIGJhc2UgZGUgbGFzIGVkYWRlcyB5IGxvcyBkw61hcyB0cmFiYWphZG9zLgoKQ29uIGxhIGdyw6FmaWNhIHBvZGVtb3Mgb2JzZXJ2YXIgcXVlIHNlIHRpZW5lIHVuIGFteW9yIGdydXBvIGRlIGVtcGxlYWRvcyBxdWUgdGllbmVuIHVuIHNhbGFyaW8gIkFycmliYSBkZWwgcHJvbSIsIHByaW5jaXBhbG1lbnRlIGhheSBlbXBsZWFkb29zIGRlIHVuYSBlZGFkIGRlIDMyIGHDsW9zIGNvbiB1biBzYWxhcmlvIGRlIGVudHJlIDUwMCB5IDEsMDAwIHBlc29zLiBVbmEgcGVxdWXDsWEgcGFydGUgZGUgZXN0b3MgZW1wbGVhZG9zIGhhbiB0cmFiYWphZG8gNzMwIGTDrWFzLCBwZXJvIGxhIG90cmEgbWF5b3LDrWEgdGllbmVuIHVuIHByb21lZGlvIGRlIDg4IGTDrWFzIHRyYWJhamFkb3MuIFBvZGVtb3Mgb2JlcnZhciBxdWUgZW4gc3UgbWF5b3LDrWEgbG9zIGVtcGxlYWRvcyBoYW4gdHJhYmFqYWRvIDg4IGTDrWFzIG8gbWVub3MsIHkgcXVlIHRpZW5lbiB1bmEgZWRhZCBkZSBlbnRyZSBsb3MgMjAgeSAzNSBhw7Fvcy4gVG9kbyBsbyBtZW5jaW9uYWRvIG5vcyBsbGV2YSBhIGluZmVyaXIgcXVlIGVuIEZPUk0gc2UgdGllbmUgdW5hIGFsdGEgcm90YWNpw7NuIHlhIHF1ZSBtdXkgcG9jb3MgdGllbmVuIGFudGlndWVkYWQgZW4gbGEgZW1wcmVzYSB5IGVuIHN1IG1heW9yw61hIG5vIHRpZW5lbiBtw6FzIGRlIDMgbyA0IG1lc2VzLgoKIyMgPHNwYW4gc3R5bGUgPSAiY29sb3I6ZGFya2dyZWVuIj4qKkluc2lnaHRzKioKCjEgLkVsIHNhbGFyaW8gZGlhcmlvIHByb21lZGlvIGRlIEZPUk0gZXMgZGUgXCQxODAgcGVzb3MgbWV4aWNhbm9zLCBlcyBkZWNpciwgXCQ1LDQwMCBwZXNvcyBtZW5zdWFsZXMuIERlIGFjdWVyZG8gYSBkYXRvcyBjb21wYXJ0aWRvcyBwb3IgbGEgSU5FR0ksIHNlIHByZXbDqSBxdWUgcGFyYSAyMDIyIGVsIHNhbGFyaW8gbcOtbmltbyBlbiBNw6l4aWNvIHNlYSBkZSBcJDUsMjU1IHBlc29zIG1lbnN1YWxlcy4gRXN0byByZWZsZWphIHF1ZSBlbCBzYWxhcmlvIG1lbnN1YWwgZGUgRk9STSBlcyAyJSBtYXlvciBhbCBzYWxhcmlvIG3DrW5pbW8gZGVsIHBhw61zLgoKMi4gIFNlIGRlc3RhY2FuIHRyZXMgcmF6b25lcyBwcmluY2lwYWxlcyBkZSBiYWphcyBkZSBlbXBsZWFkb3M6IGJhamFzIHBvciBmYWx0YXMsIHJlbnVuY2lhIHZvbHVudGFyaWEgbyB0w6lybWlubyBkZSBjb250cmF0by4gRW4gc3UgbWF5b3LDrWEsIGh1Ym8gdW5hIGJhamEgcG9yIGZhbHRhcyBkZWwgcHVlc3RvIGRlIGF5dWRhbnRlIGdlbmVyYWwgeSByZW51bmNpYSB2b2x1bnRhcmlhIHBhcmEgZWwgbWlzbW8gcHVlc3RvLgoKMy4gIEh1Ym8gdW4gYWx0byBuw7ptZXJvIGRlIGJhamFzIGRlIGVtcGxlYWRvcyBxdWUgdHJhYmFqYXJvbiBtw6FzIGRlIDIwMCBkw61hcywgZXMgZGVjaXIsIGxhIG1heW9yw61hIGRlIGxvcyBleC1lbXBsZWFkb3MgZXN0dXZpZXJvbiBlbiBGT1JNIG3DoXMgZGUgMSBhw7FvIHkgdGVuw61hbiB1biBzYWxhcmlvIHByb21lZGlvIGRlIFwkMTgwIHBlc29zLgoKNC4gIExvcyBzdWVsZG9zIGRlIGxvcyBlbXBsZWFkb3Mgbm8gdmFyw61hbiBtdWNobyBkZXBlbmRpZW5kbyBkZSBsYSBlZGFkLiBTaW4gZW1iYXJnbywgdmVtb3MgcXVlIGhheSBtYXlvciByb3RhY2nDs24gcGFyYSBlbCBncnVwbyAnYWR1bHRvJwoKIyAqKlNlY2Npw7NuIDQqKgoKIyMjICpSZXN1bHRhZG9zIFJlbGV2YW50ZXMgeSBTdWdlcmVuY2lhcyoKCioqTWVhbmluZ2Z1bCBJbnNpZ2h0cyoqCgoqSW5mb3JtYWNpw7NuIHkgY29uY2x1c2lvbmVzIHF1ZSBzZSBsb2dyYXJvbiBvYnRlbmVyIGEgdHJhdsOpcyBkZWwgYW7DoWxpc2lzIGRlIGxhcyBiYXNlcyBkZSBkYXRvcyBkZSBGT1JNIHkgbGEgaW5kdXN0cmlhIGF1dG9tb3RyaXouKgoKMS4gIFBhcmEgbGEgZW1wcmVzYSBkZSBGT1JNLCBzZSBlc3BlcmEgcXVlIGV4aXN0YSB1biBjcmVjaW1pZW50byBlbiBsb3MgcHLDs3hpbW9zIGHDsW9zIGVuIGxvIHF1ZSBlcyBsYSBwcm9kdWNjacOzbiBkZSBsw6FtaW5hcyBwcm9jZXNhZGFzLCBzZSBlc3BlcmEgcXVlIGVzdGUgdGVuZ2EgdW4gYXVtZW50byBjb25zdGFudGUsIHBvciBsbyBxdWUgc2Vyw61hIHVuYSB2ZW50YWphIGNvbXBldGl0aXZhIHByZXBhcmFyIGxvcyBwcm9jZXNvcyBkZSBsw6FtaW5hcyBkZXNkZSBlc3RlIGHDsW8gcGFyYSBxdWUgZW4gbG9zIHByw7N4aW1vcyBhw7FvcyBxdWUgZXN0ZSBwcm9jZXNvIGRlIGxhbWluYWRvIGF1bWVudGUgbm8gZXhpc3RhbiB0YW50b3MgZXJyb3JlcyB5IHBlcmZlY2Npb25hciBlbCBwcm9jZXNvLgoKMi4gIExvcyBjbGllbnRlcyBxdWUgdGllbmVuIG1heW9yZXMgcGVkaWRvcyBlbiBlc3RlIGNhc28gZXMgSEVMTEEgZW4gcHJpbWVyIGx1Z2FyIHkgVFJNWCBlbiBzZWd1bmRvIGx1Z2FyLiBIRUxMQSBlcyBlbCBjbGllbnRlIG3DoXMgc2lnbmlmaWNhdGl2byBjb24gY2FzaSBlbCB0cmlwbGUgZGUgcGVkaWRvcyBxdWUgZWwgc2lndWllbnRlIGNsaWVudGUgY29uIG1heW9yZXMgcGVkaWRvcywgVFJNWC4gSEVMTEFTIHRlbmllbmRvIG3DoXMgZGUgMjUwLDAwMCBwZWRpZG9zLCBjb24gdW5hIGZ1ZXJ0ZSBkaXNwZXJzacOzbiwgeWEgcXVlIG11ZXN0cmEgcXVlIGEgcGFydGUgZGUgdGVuZXIgdW4gZ3JhbmRlIHJhbmdvIGRlIHBlZGlkb3MgcXVlIHZhcsOtYW4gZGUgZW50cmUgNSwwMDAgcGVkaWRvcyBhIDMwLDAwMCBwZWRpZG9zLCB0aWVuZW4gdGFtYmnDqW4gdW5hIGRpc3BlcnNpw7NuIGZ1ZXJ0ZSBlbiBkw7NuZGUgaGFuIGxsZWdhZG8gYSByZWFsaXphciBtw6FzIGRlIDUwLDAwMCBwZWRpZG9zLiBQb3Igb3RybyBsYWRvIFRSTVgsIHVuIGNsaWVudGUgcXVlIHRpZW5lIHVuIHJhbmdvIGRlIHBlZGlkb3MgZW50cmUgbG9zIDUsMDAwIHkgbG9zIDEwLDAwMCBwZWRpZG9zLCBwZXJvIHRpZW5lIHVuYSBkaXNwZXJzacOzbiBxdWUgbXVlc3RyYSBxdWUgZW4gYWxnw7puIHB1bnRvIGRlIHN1IGhpc3RvcmlhbCByZWFsaXphcm9uIGNlcm8gcGVkaWRvcywgZXN0byBub3MgbGxldmEgYSBwcmVndW50YXJub3MsIGEgcXVlIHNlIGRlYmnDsyBlbCBxdWUgVFJNWCBubyBoYXlhIHJlYWxpemFkbyBuaW5nw7puIHBlZGlkbyBlbiBhbGfDum4gbWVzLgoKMy4gIEVsIHByb21lZGlvIGRlbCBTYWxhcmlvIERpYXJpbyBwb3IgZWwgSU1TUyBlcyBkZSBcJDIzNiBwZXNvcy4gU2UgZW5jb250csOzIHF1ZSBzZSB0aWVuZW4gdHJlcyBtb3Rpdm9zIHByaW5jaXBhbGVzIGRlIGJhamFzOiBmYWx0YXMsIHJlbnVuY2lhcyB2b2x1bnRhcmlhcyBvIHTDqXJtaW5vIGRlIGNvbnRyYXRvIHkgc2UgdHV2aWVyb24gbcOhcyBiYWphcyBkZSBwYXJ0ZSBkZWwgZ2VuZXJvIGZlbWVuaW5vLiBQdWRpbW9zIGRhcm5vcyBjdWVudGEgZGUgaWd1YWwgZm9ybWEgcXVlIGxhIG1heW9yw61hIGRlIGxvcyBleC1lbXBsZWFkb3MgZXN0dXZpZXJvbiBtZW5vcyBkZSB1biBhw7FvIHRyYWJhamFuZG8gZW4gRk9STS4gWSBjb24gZWwgYW7DoWxpc2lzIGRlIHJlc2FsdMOzIHF1ZSBlbCBnZW5lcm8gZmVtZW5pbm8gdGllbmUgdW4gbWF5b3Igc2FsYXJpbyBkaWFyaW8gdG90YWwuCgo0LiAgU3RhYmlsdXMgMSB2aWVuZSBzaWVuZG8gZWwgY2xpZW50ZSBhbCBjdWFsIEZPUk0gbGUgZGVkaWNhIG3DoXMgdGllbXBvIGRlIHByb2R1Y2Npw7NuLiBUYW1iacOpbiBwdWRpbW9zIGFuYWxpemFyIHF1ZSBsb3MgY2xpZW50ZXMgdGllbmVuIHVuIHJhbmdvIGRlIHBlZGlkb3MgZW50cmUgNTAgeSAyMDAgcGVkaWRvcywgc2llbmRvIDE1MCBsYSBtb2RhLgoKNS4gIENvbiBsYSBpbmZvcm1hY2nDs24gb2J0ZW5pZGEgZGUgbGFzIGJhc2VzIGRlIGRhdG9zIGRlIEZPUk0sIHBvZGVtb3MgdmVyIHF1ZSAqKkp1bmlvKiogZXMgZG9uZGUgbWF5b3IgbWVybWEgc2UgZ2VuZXJhLCBlc3RvIHB1ZWRlIHNlciBkZWJpZG8gYSBxdWUgZW4ganVuaW8gdGllbmVuIG1heW9yIHByb2R1Y2Npw7NuLiBVbiBkYXRvIGltcGFjdGFudGUgZXMgcXVlIGxhIG1heW9yw61hIGRlIGxhcyB2ZWNlcyBsYSBlbXByZXNhIHRpZW5lIHVuYSBtZXJtYSBjb25zdGFudGUsIGVzdGEgdmFyaWEgcGVybyBjYXNpIHRvZG9zIGxvcyBtZXNlcyBjdWVudGFuIGNvbiBhbCByZWRlZG9yIGRlIDUgdG9uZWxhZGFzIGRlIG1lcm1hLCB5IGFscmVkZWRvciBkZSAzIHRvbmVsYWRhcyBhIDQgdG9uZWxhZGFzIGRlIG1lcm1hIGNhZGEgNCBtZXNlcywgZGUgYWN1ZXJkbyBjb24gbGFzIGZlY2hhcyBxdWUgbm9zIGRpZXJvbiBlbiBlc3RhIGJhc2UgZGUgZGF0b3Mgc2UgYW5hbGl6byBxdWUgZGUgZW5lcm8gYSBtYXJ6byBleGlzdGnDsyB1bmEgZ3JhbiBjYW50aWRhZCBkZSBtZXJtYSBxdWUgbGxlZ28gYWwgcmVkZWRvciBkZSAxNyB0b25lbGFkYXMgZGUgbWVybWEsIHBvciBsbyB0YW50byBzZSBkZWJlIGRlIGFuYWxpemFyIGVuIGxhIGVtcHJlc2EgcXVlIGZ1ZSBsbyBxdWUgc3VjZWRpw7MgZW4gZXN0ZSBsYXBzbyBkZSB0aWVtcG8sIHBvZHLDrWFtb3MgaW5mZXJpciBxdWUgdW5hIGRlIGxhcyBjYXVzYXMgZXMgcXVlIGFsZ8O6biBjbGllbnRlIGhheWEgY2FuY2VsYWRvIHN1cyBwZWRpZG9zLgoKNi4gIEV4aXN0ZSBtdWNobyBzY3JhcCBlbiBsYSBldGFwYSBkZSBQUkUtUFJPRFVDQ0lPTiwgc2UgYW5hbGl6w7MgcXVlIGVzIGxhIGFyZWEgcXVlIG3DoXMgZ2VuZXJhIHNjcmFwLCByZXByZXNlbnRhbmRvIGVsIDg1JSBkZWwgdG90YWwuIFBhcmEgZWxsbyBzZSBuZWNlc2l0YSByZWFsaXphciB1bmEgbG9nw61zdGljYSBkZSBwcm9jZXNvIHBhcmEgZWZpY2llbnRpemFybGEgeSBzZSBsb2dyZSBtZWRpciBsYSBjYW50aWRhZCBleGFjdGEgcXVlIHNlIHJlcXVpZXJlIGRlIG1hdGVyaWFsIHBhcmEgY2FkYSBwZWRpZG8geSBhbCBpZ3VhbCBxdWUgdGVuZXIgbWVqb3IgbWVkaWRhcyBkZSByZWNvcnRlcyB5IHN1YWplcyBwYXJhIHRlbmVyIGVsIG1heW9yIHByb3ZlY2hvIGRlIGxvcyBtYXRlcmlhbGVzLgoKNy4gIExhcyBwcmluY2lwYWxlcyBjYXVzYXMgZGUgYmFqYXMgZGUgZW1wbGVhZG9zIHNlIGRlYmUgYSB0cmVzIHJhem9uZXMuIEJhamFzIHBvciBmYWx0YXMsIHJlbnVuY2lhIHZvbHVudGFyaWEgbyB0w6lybWlubyBkZSBjb250cmF0byB5IG5vcyBkYW1vcyBjdWVudGEgcXVlIGVsIHB1ZXN0byBjb24gbcOhcyByb3RhY2nDs24gZW4gbGEgZW1wcmVzYSBlcyBlbCBkZSBheXVkYW50ZSBnZW5lcmFsLiBQb3IgbG8gdGFudG8gcG9kZW1vcyBvYnNlcnZhciBxdWUgZXhpc3RlIHVuYSBtYWxhIGdlc3Rpw7NuIGFkbWluaXN0cmF0aXZhIG8gcXVlIGxvcyBlbXBsZWFkb3Mgbm8gZXN0w6FuIDEwMCUgZmVsaWNlcyBwb3IgbG8gdGFudG8gbm8gc2UgZXN0w6FuIGVzZm9yemFuZG8gbG8gc3VmaWNpZW50ZS4gTGEgcHJpbmNpcGFsIGNhdXNhIGRlIGJhamFzIGVuIGxhIGVtcHJlc2EgZXMgZGViaWRvIGEgZmFsdGFzLCBFbiBudW1lcm8gZGUgYmFqYXMgcG9yIHNleG8gbWFzY3VsaW5vIHkgZmVtZW5pbm8gbGFzIG11amVyZXMgc29uIGxhcyBxdWUgbcOhcyBmYWx0YW4gZ2VuZXJhbmRvIDUzIGJhamFzIGVuIHRvdGFsLHBlcm8gbG8gaW1wb3J0YW50ZSBlcyBxdWUgcGFyYSBsb3MgaG9tYnJlcyB0YW1iacOpbiBlcyBzdSBtYXlvciBlcyBsYSByYXrDs24gZGUgYmFqYSwgbG8gY3VhbCBlcyBwb3IgZmFsdGFzIHlhIHF1ZSBzZSBoYW4gcHJlc2VudGFkbyAyNSBiYWphcy4gVG9tYW5kbyBlbiBjdWVudGEgbGEgbGVqYW7DrWEgZGUgbGEgcGxhbnRhIGVzdG8gcHVlZGUgc2VyIHVuIGZhY3RvciBxdWUgZXN0w6kgZ2VuZXJhbmRvIGJhamFzLiBFc3RvcyBkYXRvcyBub3MgcGVybWl0ZW4gdmVyIHVuYSBncsOhZmljYSBkZSBkaXNwZXJzacOzbiBxdWUgbm9zIGFycm9qYSBxdWUgbG9zIGV4LWVtcGxlYWRvcyB0aWVuZW4gdW4gdGllbXBvIGRlIGR1cmFjacOzbiBtw6FzIGNvcnRvIGEgdW4gYcOxby4KCjguICBMb3MgY2xpZW50ZXMgY29uIG1heW9yIERlbGF5IHNvbiBNQUhMRSBZIFBSSU5URUwsIGFsIG1pc21vIHRpZW1wbyBlbmNvbnRyYW1vcyBxdWUgZW50cmUgZXN0b3MgZG9zIGNsaWVudGVzLCBlbCBxdWUgdGllbmUgbWF5b3IgRGVsYXkgZXMgTUFITEUsIHBvciBsbyBxdWUgc2Vyw61hIGJ1ZW5vIHBhcmEgbGEgZW1wcmVzYSBlbCB0ZW5lciB1biBtYXlvciBlbmZvcXVlLCBlbiBhbWJvcywgcGVybyB0YW1iaWVuIHVuIHBvY28gbcOhcyBlbiBNYWhsZSwgcGFyYSBxdWUgdGVuZ2EgbWVqb3IgcmVmZXJlbmNpYSBkZSBlc3RlIGNsaWVudGUgeSBtYXlvciBjb25maWFuemEgY29uIGxhIGVtcHJlc2EgZW4gbGFzIGVudHJlZ2FzCgo5LiAgTGEgaW5kdXN0cmlhIGF1dG9tb3RyaXogZW4gTcOpeGljbyBzZSBtYW50ZW5kcsOhIGVuIGNvbnN0YW50ZSBjcmVjaW1pZW50byBlbiB1biBsYXBzbyBkZSAzIGHDsW9zIGVuIHVuIGZ1dHVyby4gQ29uIHVuIHByb27Ds3N0aWNvIGRlIHVuIDk1JSBsbyBjdWFsIGVzIG11eSDDs3B0aW1vIGEgcXVlIHN1Y2VkYS4gU2kgc2UgYW5hbGl6YSBoYXN0YSBlbCBhw7FvIDIwMjUsIGV4aXN0ZSB1biAxNiUgZGUgY3JlY2ltaWVudG8gZW4gbGEgaW5kdXN0cmlhLCBwb3IgbG8gcXVlIGEgRk9STSwgbGUgY29udmllbmUgaG95IGVuIGTDrWEgY29udGludWFyIGNvbiBsYSBtYW5vIGRlIG9icmEgZW4gTcOpeGljbyB5IHNlZ3VpciB2ZW5kaWVuZG8gYSBjb21wYcOxw61hcyBleHRyYW5qZXJhcy4gUG9yIGxhIHBhcnRlIGRlIEVVQSwgc2UgZXNwZXJhIHVuIGNyZWNpbWllbnRvIHBhcmEgZWwgMjAyNSBkZSB1biAyMCUgLCBwb3IgbG8gcXVlIG5vcyBkZXRlcm1pbsOzIHF1ZSBsYSBpbmR1c3RyaWEgYXV0b21vdHJpeiBlc3RhZG8gdW5pZG9zIHNlIG1hbnRpZW5lIGVuIGNvbnN0YW50ZSBjcmVjaW1pZW50byBhw7FvIHRyYXMgYcOxby4KCipTdWdlcmVuY2lhcyogMS4gU2UgdGllbmUgdW5hIGFsdGEgZGlmZXJlbmNpYSBkZSBwZWRpZG9zIGVudHJlIGxvcyBjbGllbnRlcyBlbiBkb25kZSBleGlzdGVuIGNsaWVudGVzIHF1ZSBwaWRlbiB0cmVzIHZlY2VzIG3DoXMgcXVlIG90cm8sIHBvZHLDrWEgc2VyIGludGVyZXNhbnRlIGFuYWxpemFyIGEgbG9zIGNsaWVudGVzIHF1ZSBsZXMgaGFjZW4gbWF5b3IgcGVkaWRvcyB5IHJlYWxpemFyIGVzdHJhdGVnaWFzIGRlIHZlbnRhIHBhcmEgYXRyYWVyIGEgY2xpZW50ZXMgY29uIGRpY2hhcyBjYXJhY3RlcsOtc3RpY2FzIGVuY29udHJhZGFzLiBUYW1iacOpbiBzZSB2ZSBxdWUgc2UgdGllbmUgdW5hIGFsdGEgdmFyaWFjacOzbiBlbnRyZSBsb3MgcGVkaWRvcyBxdWUgaGFjZW4gbG9zIGNsaWVudGVzIG1lcyB0cmFzIG1lcywgc3VnaWVybyBoYWNlciB1bmEgaW52ZXN0aWdhY2nDs24geSBhbsOhbGlzaXMgZGVsIHBvcnF1ZSBkZSBlc3RvcyBjYW1iaW9zIHkgYSBxdWUgc2UgZGViZSBlbCBxdWUgZW4gYWxndW5vcyBtZXNlcyBzZSBvYnRlbmdhIGNlcm8gcGVkaWRvcyBwb3IgbG9zIGNsaWVudGVzIGN1YW5kbyBlbiBvdHJvcyBzZSB0aWVuZW4gcGVkaWRvcyBhbHRvcywgZGUgZXNlIG1vZG8gaWRlbnRpZmljYXIgbGEgdmFyaWFibGUgbyBjYXVzYW50ZSB5IGVuY29udHJhciBhbGd1bmEgc29sdWNpw7NuIG8gb3BvcnR1bmlkYWQgYSBpbXBsZW1lbnRhciBlbiBsb3MgcHJvY2Vzb3Mgb3BlcmFjaW9uYWxlcyBkZSBsYSBlbXByZXNhLgoKMi4gIENyZWFyIHVuYSBtZWpvciBjdWx0dXJhIG9yZ2FuaXphY2lvbmFsIHBhcmEgZXZpdGFyIHRhbnRvIHJvdGFtaWVudG8sIGNvbiBsb3MgZGlmZXJlbnRlcyBoYWxsYXpnb3MgcHVkaW1vcyBlbmNvbnRyYXIgcXVlIHNlIHRpZW5lIHVuIGFsdG8gbsO6bWVybyBkZSBiYWphcyB5IHF1ZSBubyBleGlzdGUgYW50aWd1ZWRhZCBlbiBsYSBlbXByZXNhLCBwb3IgbG8gcXVlIGxhIG1heW9yw61hIGRlIGxvcyBlbXBsZWFkb3MgdGllbmVuIGFwZW5hcyA0IG1lc2VzIGVuIGxhIGVtcHJlc2EuIFN1Z3VpZXJvIGhhY2VyIHVuYSBpbnZlc3RpZ2FjacOzbiBkZSBwYXJ0ZSBkZSBsIGhhcmVhIGRlIHJlY3Vyc29zIGh1bWFub3MgcGFyYSBjb25vY2VyIGNvbW8gc2Ugc2llbnRlbiBsb3MgZW1wbGVhZG9zIHRyYWJhamFuZG8gZW4gRk9STSB5IHF1ZSBzZSBkZSB1bmEgc29sdWNpw7NuIGVuIGxhIGN1YWwgc2UgdGVuZ2EgdHJhYmFqbyBlbiBlcXVpcG8geSBxdWUgbG9zIGVtcGxlYWRvcyB0ZW5nYW4gbGEgbW90aXZhY2nDs24gZGUgc2VndWlyIHRyYWJhamFuZG8gY29uIEZPUk0uIEVzdG8gcHVlZGUgc2VyIGNvbiBkaWZlcmVudGVzIGdyYXRpZmljYWNpb25lcywgcHJlbWlvIHkgZGlzdGludGl2b3MgcGFyYSBkZXN0YWNhciBsb3MgbGFib3JlcyBxdWUgY2FkYSB1bm8gZGUgZWxsb3MgYXBvcnRhbiB5IGRlIGVzZSBtb2RvIGluY2VudGl2YXIgYSBxdWUgY2FkYSB1bm8gZGUgZWxsb3MgcHVlZGUgYXBvcnRhciB5IHNlciBlc2N1Y2hhZG8geSBub3RhZG8uCgozLiAgUmVhbGl6YXIgdW5hIGVzdHJhdGVnaWEgbyBwcm9jZXNvIG9wZXJhY2lvbmFsIGVuIGVsIGN1YWwgc2UgcHVlZGFuIG1lZGlyIGxhcyBjYW50aWRhZGVzIGRlIHBlZGlkb3MgcXVlIHNlIHByb2R1Y2VuIHBvciBtZXMuIE1lZGlyIGxhIGNhbnRpZGFkIGV4YWN0YSBkZSBzY3JhcCB5IG1lcm1hIHF1ZSBzZSBwcm9kdWNlIGUgaWRlbnRpZmljYXIgZW4gcXVlIHBhcnRlIGV4YWN0YSBkZWwgcHJvY2VzbyBkZSBwcm9kdWNjacOzbiBlcyBlbiBkb25kZSBzZSBnZW5lcmEgbcOhcyBwYXJhIGRlIGVzZSBtb2RvIGNyZWFyIHVuYSBlc3RyYXRlZ2lhIG8gbW9kaWZpY2FyIHByb2Nlc29zIGRlIGNvcnRlcyBvIGRlbCB1c28gZGUgc3VzIG1hdGVyaWFsZXMgcGFyYSBvYnRlbmVyIHVuIG1heW9yIHJlbmRpbWVudG8gZGUgc3VzIG1hdGVyaWFsZXMsIGVzdG8gbGUgcGVybWl0aXLDrWEgYSBGT1JNIHRlbmVyIG1lbm9zIGdhc3RvcyBlIGluY3JlbWVudGFyIHN1cyBpbmdyZXNvcy4KCiMjIyAqUmVmbGV4acOzbioKCioqwr9RdcOpIGVzIEJ1c2luZXNzIEFuYWx5dGljcz8qKgoKRXMgdW5hIGNvbWJpbmFjacOzbiBkZSBoYWJpbGlkYWRlcywgdGVjbm9sb2fDrWFzIHkgcHLDoWN0aWNhcyBwYXJhIGxhIGV4cGxvcmFjacOzbiBlIGludmVzdGlnYWNpw7NuIGRlbCBmdW5jaW9uYW1pZW50byB5IGxvcyBwcm9jZXNvcyBlbXByZXNhcmlhbGVzIHF1ZSBzZSBoYW4gdGVuaWRvIGFudGVyaW9ybWVudGUgcG9yIHVuIGVtcHJlc2EsIHBhcmEgZGUgZXNlIG1vZG8gb2J0ZW5lciBpbmZvcm1hY2nDs24sIHBvZGVyIGFuYWxpemFyIGRpY2hhIGluZm9ybWFjacOzbiBxdWUgc2UgZXh0cmFlIHkgYXPDrSBpbXB1bHNhciBsYSBwbGFuaWZpY2FjacOzbiBlc3RyYXTDqWdpY2EgZW1wcmVzYXJpYWwuIEJ1c2luZXNzIEFuYWx5dGljcyBwdWVkZSBkZXNjdWJyaXIgcGF0cm9uZXMgeSBwcmVkZWNpciB0ZW5kZW5jaWFzIGNvbnNpZGVyYW5kbyBkaWZlcmVudGVzIGZhY3RvcmVzLgoKLSAgIEV4aXN0ZW4gZGlmZXJlbnRlcyBydWJyb3MgZGVsICoiQnVzaW5lc3MgQW5hbHl0aWNzIio6CgogICAgMS4gIEFuw6FsaXNpcyBEZXNjcmlwdGl2bwoKICAgIDIuICBBbsOhbGlzaXMgZGUgRGlhZ27Ds3N0aWNvCgogICAgMy4gIEFuw6FsaXNpcyBQcmVkaWN0aXZvCgogICAgNC4gIEFuw6FsaXNpcyBQcmVzY3JpcHRpdm8KCioqMyBvYmpldGl2b3MgZGVMIHVzbyBkZSBsYSBoZXJyYW1pZW50YSBkZSBCdXNpbmVzcyBBbmFseXRpY3MqKgoKMS4gIERldGVybWluYXIgcXXDqSBjb25qdW50b3MgZGUgZGF0b3Mgc29uIHNpZ25pZmljYW50ZXMgeSDDunRpbGVzIHBhcmEgcG9kZXIgYW5hbGl6YXIgeSBjb25vY2VyIGVsIGRlc2VtcGXDsW8gZGUgbGEgZW1wcmVzYSB5IGN1w6FsZXMgcHVlZGVuIGF1bWVudGFyIGxvcyBpbmdyZXNvcyB5IGRpc21pbnVpciBsb3MgY29zdG9zLgoKKkVqZW1wbG86KiBwcm9kdWN0aXZpZGFkIHkgZWZpY2VuY2lhLgoKMi4gIEFuYWxpemFyIHkgdHJhbnNmb3JtYXIgbG9zIGRhdG9zIGVuIGluZm9ybWFjacOzbiDDunRpbCwgaWRlbnRpZmljYXIgeSBhbnRpY2lwYXIgdGVuZGVuY2lhcyB5IHJlc3VsdGFkb3MuIFNpbXBsaWZpY2FyIGluZm9ybWFjacOzbiBwYXJhIGhhY2VybGEgbcOhcyBzZW5jaWxsYSBkZSBlbnRlbmRlciB5IHZpc3VhbC4KCjMuICBUb21hciBkZWNpc2lvbmVzIGVtcHJlc2FyaWFsZXMgbcOhcyBpbnRlbGlnZW50ZXMgYmFzYWRhcyBlbiBkYXRvcy4KCipFamVtcGxvOiogQW7DoWxpc2lzIGRlbCBjb21wb3J0YW1pZW50byBkZSBsb3MgY2xpZW50ZXMsIGRpc21pbnVjacOzbiBkZSBjb3N0bywgZXZpdGFyIG1lcm1hcywgYXByb3ZlY2hhbWllbnRvIGRlIHRpZW1wb3MgeSBtYXRlcmlhbGVzLCBlZmljaWVuY2lhIHkgZWZpY2FjaWEuCgoqKsK/UXXDqSBlcyBCdXNpbmVzcyBJbnRlbGlnZW5jZT8qKiBFcyBsYSBoZXJyYW1pZW50YSBxdWUgcGVybWl0ZSBhIGFxdWVsbG9zIGVuIGVsIMOhbWJpdG8gZGUgbG9zIG5lZ29jaW9zIG9idGVuZXIgaW5mb3JtYWNpw7NuIHNpZ25pZmljYXRpdmEgeSByZWxldmFudGUgaGlzdMOzcmljYSwgYWN0dWFsLCBkZSBjb21wb3J0YW1pZW50b3MsIGRlIGV4dGVybm9zIGEgbGEgZW1wcmVzYSwgZGUgaW50ZXJub3MsIHkgb3Ryb3MuIEVzdGUgc2UgZW5jYXJnYSBkZSBhZ3J1cGFyIGxvcyBkYXRvcyBxdWUgc2UgcXVpZXJhbiBhbmFsaXphciB5IGNyZWFyIHVuYSBiYXNlIGRlIGRhdG9zIGNvbiBpbmZvcm1hY2nDs24gdmFsaW9zYSB5IGRlIGVzdGUgbW9kbyB0cmFuc2Zvcm1hciBsYSBpbmZvcm1hY2nDs24gYSBoYWxsYXpnb3MgcXVlIHNlIHB1ZWRhbiB1dGlsaXphciBwYXJhIGVuY29udHJhciBvcG9ydHVuaWRhZGVzIGRlIG5lZ29jaW8gbyByZWFsaXphciBhbGfDum4gdGlwbyBkZSBtZWpvcmFzIG8gbG9ncmFyIHJlYWxpemFyIGRlY2lzaW9uZXMgbcOhcyBhc2VydGl2YXMgeSBjb24gbWVub3Mgcmllc2dvcy4gQ29uY3JldGFuZG8gbG8gcXVlIGVzIEJ1c2luZXNzIEludGVsbGlnZW5jZSBwb2RlbW9zIGRlY2lyIHF1ZSBhZ3J1cGEgZGF0b3MgcGFyYSBhcHJvdmVjaGFybG9zIHkgc2UgY29udmllcnRhbiBlbiBpbmZvcm1hY2nDs24gcXVlIGF5dWRhIGEgaWRlbnRpZmljYXIgcHJvYmxlbWFzLCByaWVzZ29zIHkgb3BvcnR1bmlkYWRlcyBkZSB1bmEgZW1wcmVzYS4KCioqwr9DdcOhbCBlcyBsYSByZWxhY2nDs24gZW50cmUgQnVzaW5lc3MgQW5hbHl0aWNzIHkgQnVzaW5lc3MgSW50ZWxsaWdlbmNlPyoqCgpCSSBzaXJ2ZSBwYXJhIGV2YWx1YXIsIG9wdGltaXphciB5IGNvb3JkaW5hciBsYXMgb3BlcmFjaW9uZXMgaW50ZXJuYXMgZGUgdW5hIGVtcHJlc2EuIFRyYXRhIGRlIGFwcm92ZWNoYXIgdG9kbyBlbCBwb3RlbmNpYWwgZGUgbG9zIGRhdG9zIHF1ZSBnZW5lcmEgdW5hIGVtcHJlc2EgZW4gdG9kYXMgc3VzIGFjdGl2aWRhZGVzIGRpYXJpYXMgeSBhbmFsaXphciBlc3RvcyBkYXRvcyBwYXJhIG9idGVuZXIgaW5mb3JtYWNpw7NuIGRlIHZhbG9yIHNvYnJlIGxhIHRvbWEgZGUgZGVjaXNpb25lcy5BeXVkYSBwYXJhIGVudGVuZGVyIGVsIGhpc3TDs3JpY28geSBlbCBjb21vIGV2b2x1Y2lvbmFuIGxvcyBkYXRvcy4gWSBjb21vIG1lbmNpb25hbW9zIGFudGVyaW9ybWVudGUgQnVzaW5lc3MgQW5hbHl0aWNzIGNvbiBlbCBhbmFsaXNpcyBkZSBsYSBpbmZvcm1hY2nDs24gZGUgdW5hIGVtcHJlc2EgbG9ncmEgcHVlZGUgbGxlZ2FyIGEgZGVzdWJyaXIgcGF0cm9uZXMsIGV4cGxpY2FjaW9uZXMgZGVsIHBvcnF1ZSBkZSBsb3MgbWlzbW9zIHkgcHJlZGVjaXIgdGVuZGVuY2lhcyBvIGhlY2hvcyBxdWUgcHVlZGVuIGxsZWdhciBhIHBhc2FyIGVuIGVsIG5lZ29jaW8uCgpFc3RvcyBkb3MgdMOpcm1pbm9zIHRpZW5lbiB1bmEgYWx0YSByZWxhY2nDs24gZW50cmUgZWxsYXMgeWEgcXVlIGVuIHBvY2FzIHBhbGFicmFzIGxhIEludGVsaWdlbmNpYSBkZSBOZWdvY2lvcyBlcyBlbCBoYWNlciBhbsOhbGlzaXMgZGUgbG9zIGRhdG9zIG9idGVuaWRvcyB5IEFuYWzDrXRpY2EgZGUgTmVnb2Npb3MgZXMgcHJlZGljY2nDs24gYSBwYXJ0aXIgZGUgbG9zIGRhdG9zIHF1ZSBzZSBvYnR1dmllcm9uIGNvbiBlbCBhbsOhbGlzaXMuIFVuYSBjb24gbGxldmEgYSBsYSBvdHJhIHkgdHJhYmFqYW4ganVudGFzIHBhcmEgb2J0ZW5lciBlbCByZXN1bHRhZG8gYnVzY2FkbyBkZSB1biBhbsOhbGlzaXMgZGUgZGF0b3MgcXVlIGNvbnRlbmdhIGxhIGluZm9ybWFjacOzbiByZWxldmFudGUgeSBzaWduaWZpY2F0aXZhIHF1ZSBub3MgcHVlZGEgbW9zdHJhciBwcmVkaWNjaW9uZXMgZGVsIGNvbXBvcnRhbWllbnRvIHlhIHNlYSBkZSBsYSBlbXByZXNhLCBkZSBsYSBlY29ub23DrWEsIGRlIGxvcyBpbmdyZXNvcywgZGUgbG9zIGNsaWVudGVzIHkgbcOhcy4gQW1iYXMgc29uIG5lY2VzYXJpYXMgcGFyYSBleHRyYWVyIHVuIGJ1ZW4gYW7DoWxpc2lzIGRlIGxhIGluZm9ybWFjacOzbiBkZSB1bmEgZW1wcmVzYSwgeWEgcXVlIHVuYSBhbmFsaXMgZG9zLCBsb3Mgb3JnYW5pemEgeSBleHRyYSBhcXVlbGxvcyByZWxldmFudGVzIHkgbGEgb3RyYSBwdWVkZSBsb2dyYXIgbGFzIHBlZGljY2lvbmVzIHkgYW7DoWxpc2lzLgoKKirCv1F1w6kgc29uIGxvcyBLZXkgUGVyZm9ybWFuY2UgSW5kaWNhdG9ycz8qKiBMb3MgS1BJcyBzb24gc29uIGluZGljYWRvcmVzIHF1ZSBtaWRlbiBlbCBkZXNlbXBlw7FvIHlhIHNlYSBkZSB1bmEgZW1wcmVzYSBvIG9wZXJhY2lvbmVzIGVuIHVuYSBhcmVhIGVuIHBhcnRpY3VsYXIuIFNvbiBtw6l0cmljYXMgcXVlIHNlIHV0aWxpemFuIHBhcmEgb2J0ZW5lciBpbmZvcm1hY2nDs24gc29icmUgbGEgZWZpY2llbmNpYSB5IHByb2R1Y3RpdmlkYWQgZGUgYWNjaW9uZXMgcXVlIHNlIGxsZXZhbiBhIGNhYm8gZW4gdW4gZW1wcmVzYSB5IGRlIGVzZSBtb2RvIHBvZGVyIGxvZ3JhciB0b21hciB1bmEgZGVjaXNpw7NuIG3DoXMgZmFjaWxtZW50ZSB5IGNvbiBtw6FzIGFzZXJ0aXZpZGFkLiBMb3MgS1BJcyBwdWVkZW4gYnJpbmRhciBkaXZlcnNhcyB2ZW50YWphcyBjb21vIG9idGVuZXIgaW5mb3JtYWNpw7NuIHZhbGlvc2EgeSDDunRpbCB5YSBzZWEgZGUgYWxnbyBxdWUgbm8gZXN0w6EgZnVuY2lvbmFuZG8gYmllbiBlbiBsYXMgb3BlcmFjaW9uZXMgZGUgbGEgZW1wcmVzYSBvIGRlIGFsZ28gZW4gcGFydMOtY3VsYXIgcXVlIGxvIGVzdMOhIGhhY2llbmRvIGNyZWNlciB5IHF1ZSBlc3TDoSBmdW5jaW9uYW5kbyBkZSBsYSBtYW5lcmEgY29ycmVjdGEuIFRhbWJpw6luIGRldGVybWluYXIgZXN0cmF0Z2lhcywgdG9tYXIgZGVjaXNpb25lcyBvcG9ydHVuaWRhcyB5IG1lZGlyIHJlc3VsdGFkb3MgZGUgYWNjaW9uZXMgbyBvcGVyYWNpb25lcyBkZSBsYSBlbXByZXNhLgoKRXhpc3RlbiBLUElzIGVuIGVsIGFyZWEgZGUgdmVudGFzLCBvcGVyYWNpb25hbCwgcmV0YWlsLCByZWRlcyBzb2NpYWxlcywgbG9nw61zdGljYSwgcHJvZHVjY2nDs24sIGZpbmFuY2llcmEsIG1hcmtldGluZywgcmVjdXJzb3MgaHVtYW5vcywgY2xpZW50ZXMsIGVudHJlIG90cm9zLiBZIGNhZGEgdW5hIGRlIGVzdGFzIGFyZWFzIHB1ZWRlbiBsbGVnYXIgYSB0b21hciB1biBtdXkgZnVlcnRlIGx1Z2FyIGVuIGxhIGVtcHJlc2EsIHRlbmVyIEtQSXMgcGFyYSBjYWRhIHVuYSBkZSBsYXMgYXJlYXMsIGRhcsOtYSBsYSBvcG9ydHVuaWRhZCBkZSBhZHF1aXJpciBpbmZvcm1hY2nDs24gZXNlbmNpYWwsIG1lam9yYXIgZW4gYXF1ZWxsbyBxdWUgbGEgZW1wcmVzYSBlc3TDoSBmYWxsYW5kbyB5IGVuY29udHJhciBhcmVhcyBkZSBvcG9ydHVuaWRhZCwgYXPDrSBjb21vIHNlZ3VpciBkZWRpY2FuZG9sZSBlbiBhbGdvIHF1ZSBsZSBoYSBlc3RhZG8gZGFuZG8gYnVlbm9zIGZydXRvcy4gQSB0cmF2w6lzIGRlIGVzdGFzIGhlcnJhbWllbmRhcyBkZSBtZWRpY2nDs24gZXMgcG9zaWJsZSBkZSBlbmNvbnRyYXIgaW5mb3JtYWNpw7NuIGVzY29uZGlkYSB5IG11eSByZWxldmFudGUgcGFyYSBsYSBlbXByZXNhIHF1ZSBwdWVkZSBsbGVnYXIgYSBzZXIgbGEgZGlmZXJlbmNpYSBkZSB1biBuZWdvY2lvIGV4aXRvc28uCgoqKlByb3B1ZXN0YSB5IERlc2NyaXBjacOzbiBkZSAzIEtQSXMqKgoKKktQSSBQcm9kdWNjacOzbjoqIC0gQ29tbyBzZSBtZW5jaW9uw7MgYW50ZXJpb3JtZW50ZSBleGlzdGUgdW5hIHZhcmllZGFkIGRlIGFyZWFzIGRlIEtQSXMgcGVybyBlbiBlc3RlIGNhc28gcXVpc2UgZGFybGUgdW4gbWF5b3IgZW5mb3F1ZSBhbCBhcmVhIGRlICoqUHJvZHVjY2nDs24qKiwgeWEgcXVlIHBhcmEgbnVlc3RybyBzb2NpbyBmb3JtYWRvciAqKkZPUk0qKiB5IGVsIGFuw6FsaXNpcyBxdWUgaGVtb3MgaGVjaG8sIHBvZGVtb3MgZGFybm9zIGN1ZW50YSBxdWUgZXhpc3RlbiBtdWNoYXMgYXJlYXMgZGUgb3BvcnR1bmlkYWQgcGFyYSBsYSBlbXByZXNhIGVuIGVzdGEgYXJlYS4gWSBjb24gbGEgaW5kdXN0cmlhIGVuIGxhIHF1ZSBzZSBlbmN1ZW50cmEgRk9STSwgY3JlbyBxdWUgc3UgbWF5b3IgaW1wYWN0byBkZSBwcm9kdWN0aXZpZGFkIGUgaW5ncmVzb3MgcHVlZGUgdmVuaXIgZGUgZXN0YSBhcmVhIGVuIGVzcGVjaWZpY28uCgoqKjEuIENvc3RlbyBkZSBtYXRlcmlhbGVzLioqIEVzdGEgbcOpdHJpY2EgZXMgdW4gY2FsY3VsbyBlbiBlbCBjdWFsIHNlIG9idGllbmUgbG9zIGNvc3RlcyBkZSBjYWRhIHVubyBkZSBsb3MgbWF0ZXJpYWxlcywgZXN0byBsZSBwZXJpbWl0ZSBhIEZPUk0gY29ub2NlciBsYSBldmFsdWFjacOzbiBkZSBsb3MgcHJlY2lvcyBkZSBhZHF1aXNpY2nDs24gcXVlIHNlIHRpZW5lIGVuIGNhZGEgdW5vIGRlIHN1cyBtYXRlcmlhbGVzLgoKKsK/UG9ycXXDqSBzdSBpbXBvcnRhbmNpYT8geSDCv1BhcmEgcXXDqSBlbCBLUEk/KiAtIEVzIGltcG9ydGFudGUgdGVuZXIgY2xhcm8gY3VhbGVzIHNvbiBsb3MgcHJlY2lvcyBwYXJhIGFubGl6YXIgZWwgaW5jcmVtZW50byBvIGRlc2NlbnNvIGRlIGxvcyBwcmVjaW9zIGVuIGVsIGFyZWEgZXh0ZXJuYSBkZSBsYSBpbmR1c3RyaWEuIENvbm9jZXIgbGEgc2l0dWFjacOzbiBhY3R1YWwgZGUgbGEgaW5kdXN0cmlhIGVuIHF1ZSBsYSBlbXByZXNhIHNlIG1hbnRpZW5lIGVzIG11eSBpbXBvcnRhbnRlIHBhcmEgdGVuZXIgaW5mb3JtYWNpw7NuIHkgcG9kZXIgdG9tYXIgbWVqb3JlcyBkZWNpc2lvbmVzLCBhc2kgY29tbyB0YW1iacOpbiBhIG5pdmVsYXIgbG9zIHByZWNpb3MgZGUgc3VzIHNlcnZpY2lvcyB5IHByb2R1Y3RvcyBzZWfDum4gc2VhIGVsIG1hcmdlbiBkZSB1dGlsaWRhZCBxdWUgc2UgcXVpZXJlIG9idGVuZXIuIC0gRWwgS1BJIGJyaW5kYXLDoSBpbmZvcm1hY2nDs24gc29icmUgbG9zIHByb3ZlZWRvcmVzIGRlIEZPUk0sIGxlcyBkwqFheXVkYXLDoSBhIHRvbWFyIGRlY2lzaW9uZXMgYWNlcmNhIGRlbCBpbnZlbnRhcmlvIHF1ZSBwdWVkZW4gYWRxdWlyaXIgeSBlc3RhYmxlY2VyIGxvcyBwcmVjaW9zIHBhcmEgbWFudGVuZXIgdW4gbWFyZ2VuIGRlIHV0aWxpZGFkLiBEZSBpZ3VhbCBmb3JtYSBwYXJhIGNvbm9jZXIgZWwgY29tcG9ydGFtaWVudG8gZGUgbGEgaW5kdXN0cmlhIHkgZW4gZGFkbyBjYXNvIGRlIHRlbmVyIGNhbWJpb3MgbXV5IGZ1ZXJ0ZXMgYW5hbGl6YXIgeSBldmFsdWFyIGVsIHBvcnF1ZSBkZSBlc29zIGNhbWJnaW9zIHkgZXN0YXIgYWwgdGFudG8gZGUgbGEgaW5kdXN0cmlhIHBhcmEgcG9kZXIgdG9tYXIgZGVjaXNpb25lcyByYXpvbmFkYXMgeSBwbGFuaWZpY2FkYXMgZW4gY2FzbyBkZSBzZXIgbmVjZXNhcmlvIGRlIHRvbWFyIGFjY2nDs24uCgoqKjIuIFJvdGFjacOzbiBkZSBJbnZlbnRhcmlvLioqIEVzdGEgbcOpdHJpY2EgYXl1ZGEgYSBjb25vY2VyIGxhIGVmZWN0aXZpZGFkIGRlIGxvcyByZWN1cnNvcyB5IHBvZGVyIGFuaXZlbGFyIGxvcyBjb3N0b3MgcXVlIHNlIGhhY2VuIHBvciBpbnZlbnRhcmlvLCBkZSB0YWwgRk9STUEgcXVlIGZvcm0gcHVlZGEgY3JlYXIgZXN0cmF0ZWdpaWFzIGRlIHJvdGFjacOzbiBkZSBpbnZlbnRhcmlvIHBhcmEgYmFsYW5lciBsb3MgZ2FzdG9zIHkgYXNlZ3VyYXIgcXVlIHN1cyBnYXN0b3MgbGUgZGFyw6FuIHVuIHJldG9ybm8gZGUgaW52ZXJzacOzbiBsbyBtw6FzIHByb250byBwb3NpYmxlLgoKKsK/Q8OzbW8gc2UgY2FsY3VsYT8geSDCv1BhcmEgcXXDqSBlbCBLUEk/KiAtIFNlIGNhbGN1bGEgZGUgbGEgc2lndWllbnRlIG1hbmVyYTogUm90YWNpw7NuIGRlIGludmVudGFyaW8gPSBDb3N0ZSBkZSBsb3MgUHJvZHVjdG9zIFZlbmRpZG9zIC8gUHJvbWVkaW8gZGUgSW52ZW50YXJpby4gQ3VhbmRvIGEgdHJhdsOpcyBkZWwgY8OhbGN1bG8gc2UgdGllbmUgdW4gcmF0aW8gImJham8iIHNlIGluZGljYSBxdWUgaGF5IHBvY2FzIHZlbnRhcyB5IHVuIGludmVudGFyaW8gbXV5IGV4ZXNpdm8sIHkgY3VhbmRvIHNlIHRpZW5lIHVuIHJhdGlvICJhbHRvIiBpbmRpY2EgZnVlcnRlcyB2ZW50YXMgbyBpbnZlbnRhcmlvIGluc3VmaWNpZW50ZS4gLSBFbCBLUEkgbGUgcGVybWl0aXLDoSBhIEZPUk0gdGVuZXIgaW5mb3JtYWNpw7NuIHNvYnJlIGN1YW50byBpbnZlbnRhcmlvIHNlIGRlYmUgZGUgcGVkaXIsIGN1YWxlcyBlbCBwcm9tZWRpbyBkZSB2ZW50YSBxdWUgc2UgdGluZSB5IHF1ZSBtYXRlcmlhbCBlcyBhcXVlbCBxdWUgdGllbmUgbWF5b3IgdXRpbGlkYWQgeSBkZW1hbmRhIHkgY3VhbCBwb3IgbG8gY29udHJhcmlvIHNlIHRpZW5lIGVuIGVsIGFsbWFuY8OpbiBtw6FzIHRpZW1wby4KCioqMy4gUml0bW8gZGUgcHJvZHVjY2nDs24uKiogQSB0cmF2w6lzIGRlIGVzdGUgS1BJIHNlIHB1ZWRlIHRlbmUgcnVuYSBtZWpvciBtZWRpZGEgZGUgbGEgY2FwY2lkYWQgcXVlIHRpZW5lIGxhIGVtcHJlc2EgZW4gdMOpcm1pbm9zIGRlIHByb2R1Y2Npw7NuLiBMbGVnYSBhIHNlciBtdXkgw7p0aWwgcGFyYSBsYW5pZmljYXIgcGVkaWRvcyB5IGRlY2lkaXIgZWwgdm9sdW1lbiBkZSBwZWRpZG9zIHF1ZSB0dSBlbXByZXNhIHB1ZWRlIHJlYWxpemFyIHNpbiBsbGVnYXIgYWwgcmllc2dvIGRlIHF1ZWRhciBtYWwgY29uIGxvcyBjbGllbnRlcyBvIGRlc2N1YnJpciBxdWUgbm8gdGllbmVuIGxhIGNhcGFjaWRhZCBwYXJhIGVsIHZvbHVtZW4gZGUgcGVkaWRvcyBxdWUgYWNlcHRhcm9uLiBPIHBvciBlbCBjb250cmFyaW8gZGFyc2UgY3VlbnRhIHF1ZSBsYSBlbXByZXNhIHB1ZWRlIGFjZXB0YXIgbWF5b3IgY2FudGlkYWQgZGUgcGVkaWRvcyBkZSBsb3MgcXVlIGFjZXB0YW4sIHBvciBsbyBjdWFsIGVzdG8gaW5kaWNhcsOtYSB1biBkZXNhcHJvdmVjaGFtaWVudG8gZGUgb3BvdHVuaWRhZGVzLgoKKsK/UG9ycXXDqSBzdSBpbXBvcnRhbmNpYT8geSDCv1BhcmEgcXXDqSBlbCBLUEk/KiAtIEVzIG11eSBpbXBvcnRhbnRlIHRvbWFyIGVuIGN1ZW50YSBsYSBjYXBhY2lkYWQgcXVlIHRpZW5lIGxhIGVtcHJlc2EgcGFyYSBkYXJsZSBlbCBtYXlvciByZW5kaW1pZW50byB5IHByb3ZlY2hvIHBvc2libGUgYSBsYXMgaW5zdGFsYWNpb25lcywgZW1wbGVhZG9zIHkgbWF0ZXJpYWxlcyBxdWUgc2UgdGllbmVuIHkgcGFyYSBlbGxvIGVzIGNvbm9jZXIgbGEgbXNpbWEgZW1wcmVzYSBhdHJhdsOpcyBkZSBtZWRpZGFzIGUgaW5mb3JtYWNpw7NuIGV4YWN0YSBkZSBsYSBlbXByZXNhLiAtIENvbiBlc3RlIEtQSSBGT1JNIHRlbmRyw6EgbGEgb3BvcnR1bmlkYWQgZGUgaW5jcmVtZW50YXIgc3UgcHJvZHVjdGl2aWRhZCwgdGVuZXIgbWF5b3JlcyB2ZW50YXMgZ3JhY2lhcyBhIHN1IGNhcGFjaWRhZCB5IHBvciBlbmRlIHVuYSBtYXlvciB1dGlsaWRhZC4gUG9yIG90cm8gbGFkbyBGT1JNIHRhbWJpw6luIHRlbmRyw61hIGxhIG9wb3J0dW5pZGFkIGRlIGNvbm9jZXIgZWwgcmVuZGltaW50byBxdWUgdGllbmVuIHN1cyBtYXF1aW5hcyB5IGV2YWx1YXIgZWwgdHJhYmFqbyBxdWUgc3VzIGVtcGxlYWRvcyBlc3TDoW4gZ2VuZXJhbmRvLgoKKio0LiBBbG1hY8OpbiB5IE1lcm1hLioqIEVzdGUgaW5kaWNhZG9yIHNlIHJlbGFjaW9uYSBjb24gZWwgcmVuZGltaWVudG8gcXVlIHNlIHRpZW5lIGNvbW8gZW1wcmVzYSB5IGRlIGxvcyBtYXRlcmlhbGVzLCBhbCBpZ3VhbCBxdWUgc2UgcHVlZGUgcmVsYWNpb25hciBjb24gbGEgcm90YWNpw7NuIGRlIGludmVudGFyaW8uIEVzdGUgaW5kaWNhZG9yIG5vcyBwdWVkZSBheXVhZHIgYSBhdW1lbnRhciBsYSB5IG1lam9yYXIgbGEgcGxhbmlmaWNhY2nDs24gZGUgbG9nw61zdGljYS4KCirCv0PDs21vIGZ1bmNpb25hPyB5IMK/UGFyYSBxdcOpIGVsIEtQST8qIC0gRXhpc3RlIHVuIHBvcmNlbnRhamUgbXVuZGlhbG1lbnRlIGFjZXB0YWRvIGRlIG9idGVuZXIgbWVybWFzIHNlZ8O6biBlbCBzZWN0b3IgZGUgbGEgZW1wcmVzYSwgcGVybyBzZWfDum4gbGEgaW52ZXN0aWdhY2nDs24gZGUgQklORCBFUlAgKDIwMjApIGVzdGUgdmFyaWEgZW50cmUgZWwgMSUgeSBlbCAyJS4gQ29uIGVzdGEgbcOpdHJpY2Egc2UgbG9ncmFyw61hIG9idGVuZXIgZGF0b3MgY29tbyBlbCDCv1BvcnF1w6k/IHByaW5jaXBhbCBkZSBsYXMgbWVybWFzLiBEZSBkb25kZSBzYWxlbiB5IGdyYWNpYXMgYSBxdWUgcHJvY2VzbyBzZSBlc3TDoSBnZW5lcmFuZG8gbWF5b3IgbWVybWEgZWwgY3VhbCBwcm92b2NhIHVuYSBtYXlvciBwZXJkaWRhIGRlIHV0aWxpZGFkLiAtIEVzdGUgS1BJIGxlIHBlcm1pdGlyw6EgYSBGT1JNIGFuYWxpemFyIHkgY29ub2NlciBlbCBwb3JjZW50YWplIHF1ZSBzZSB0aWVuZSBkZSBtZXJtYSwgZW4gcXVlIHBhcnRlIGRlbCBwcm9jZXNvIGRlIHByb2R1Y2Npw7NuIGVzIGVuIGVsIGN1YWwgc2UgZ2VuZXJhIHVuYSBtYXlvciBwb3JjacOzbiBkZSBsYXMgbWVybWFzIHkgZGUgZXNlIG1vZG8gY3JlYXIgZXN0cmVnaWFzIHBhcmEgbWl0aWdhciBvIGRpc21pbnVpciBlc2UgZXJyb3IgbyBhcXVlbGxvIHF1ZSBlc3TDoSBnZW5lcmFuZG8gbG9zIGdyYW5kZXMgdm9sdW1lbmVzIGRlIG1lcm1hLgoKIyA8c3BhbiBzdHlsZSA9ICJjb2xvcjpkYXJrcmVkIj4qKkNPTkNMVVNJw5NOKioKCkNvbiBlbCBhbsOhbGlzaXMgZGUgbGFzIGRpZmVlcmVudGVzIGJhc2VzIGRlIGRhdG9zIGRlIG51ZXN0cm8gc29jaW8gZm9ybWFkb3IgRk9STSwgaGVtb3MgbG9ncmFkbyBvYnRlbmVyIGluZm9ybWFjacOzbiByZWxldmFudGUgcXVlIG11Y2hhcyB2ZWNlcyBubyB0ZW5lbW9zIGVuIGN1ZW50YSBvIG5vIGVzIGbDoWNpbCBkZSBjYXB0YXIuIEEgdHJhdsOpcyBkZSBlc3RlIGFuw6FsaXNpcyBkZSB1dGlsaXphcm9uIGRpZmVyZW50ZXMgaGVycmFtaWVudGFzLCBwYXJhIHByaW5pY2lwYWxtZW50ZSBsaW1waWFyIGxhcyBiYXNlcyBkZSBkYXRvcyB5IHRlbmVyIHVuaWNhbWVudGUgbGEgaW5mb3JtYWNpw7NuIHNpZ25pZmljYXRpdmEgeSBhY29tb2RhZGEgZGUgbGEgbWVqb3IgbWFuZXJhLiBEZXNwdcOpcyByZWFsaXphbW9zIGRpZmVyZW50ZXMgZ3LDoWZpY29zIGFzaSBjb21vIHBsb3RzLCB0YWJsYXMsIGNydXphZGFzLCB0YWJsYXMgZGUgZnJlY3VlbmNpYSwgZ3LDoWZpY29zIGN1YW50aXRhdGl2b3MgeSBjdWFsaXRhdGl2b3MsIGdyw6FmaWNvcyBkZSBkaXNwZXJzacOzbiwgZW50cmUgb3Ryb3MuIFkgbXV5IGludGVyZXNhbnRlIGNvbiBpbmZvcm1hY2nDs24gbXV5IHJlbGV2YW50ZSBwdWRpbW9zIG9idGVuZXIgcHJlZGljY2lvbmVzIHkgcHJvbsOzc3RpY29zIGEgdHJhdsOpcyBkZSBsYSBpbXBsZW1lbnRhY2nDs24gZGUgdW5hIHJlZ3Jlc2nDs24gbGluZWFsIHBhcmEgbGEgcHJlZGljY2nDs24geSBsYSBmdW5jacOzbiBkZSAiYXV0by5hcmltYSIgcGFyYSBvYnRlbmVyIHVuIHByb27Ds3N0aWNvIHLDoXBpZG8uCgpFbCBoYWNlciBlc3RhIGFjdGl2aWRhZCBub3MgZW1wYXDDsyBkZWwgY29ub2NpbWllbnRvIHNvYnJlIGxhIGltcG9ydGFuY2lhIHF1ZSB0aWVuZW4gbG9zIGRhdG9zIGVuIHVuIG5lZ29jaW8geSBlbiBjYWRhIGRlY2lzacOzbiBxdWUgc2UgdG9tYS4gUHVkaW1vcyBvYnRlbmVyIGluZm9ybWFjacOzbiBlc2VuY2lhbCBxdWUgcHVlZGUgaW1wYWN0YXIgZnVlcnRlbWVudGUgYWwgbmVnb2NpbyB5IHF1ZSBwdWVkZSBsb2dyYXIgbWVqb3LDrWFzIG8gYWJyaXIgbXVjaGFzIG9wb3J0dW5pZGFkZXMgZGUgbmVnb2Npby4KCiMjIFJlZmVyZW5jaWFzCgppbnNpZ2h0c29mdHdhcmUuICgyMDIyLCAyMyBmZWJyZXJvKS4gRWplbXBsb3MgZGUgbG9zIDMwIG1lam9yZXMgS1BJIHkgbcOpdHJpY2FzIGRlIHByb2R1Y2Npw7NuIHBhcmEgbGEgY3JlYWNpw7NuIGRlIGluZm9ybWVzIGVuIDIwMjEuIGluc2lnaHRzb2Z0d2FyZSBTcGFpbi4gUmVjdXBlcmFkbyAyMSBkZSBvY3R1YnJlIGRlIDIwMjIsIGRlIDxodHRwczovL2luc2lnaHRzb2Z0d2FyZS5jb20vZXMvYmxvZy8zMC1tYW51ZmFjdHVyaW5nLWtwaXMtYW5kLW1ldHJpYy1leGFtcGxlcy8+CgpTaWx2YSwgRC4gZGEuICgxOTcwLCAxIGVuZXJvKS4gwr9RdcOpIGVzIGVsIEJ1c2luZXNzIEludGVsbGlnZW5jZT8gWmVuZGVzayBNWC4gUmVjdXBlcmFkbyAyMSBkZSBvY3R1YnJlIGRlIDIwMjIsIGRlIDxodHRwczovL3d3dy56ZW5kZXNrLmNvbS5teC9ibG9nL2JpLWJ1c2luZXNzLWludGVsbGlnZW5jZS1xdWUtZXMvPgoKQXBkLCBSLiAoMjAyMCwgMjQgbm92aWVtYnJlKS4gTG9zIGRpZmVyZW50ZXMgdGlwb3MgZGUgS1BJcyB5IHN1IGdyYW4gaW1wYWN0byBlbiBsYXMgZW1wcmVzYXMuIEFQRCBFc3Bhw7FhLiBSZWN1cGVyYWRvIDIxIGRlIG9jdHVicmUgZGUgMjAyMiwgZGUgPGh0dHBzOi8vd3d3LmFwZC5lcy90aXBvcy1kZS1rcGlzLz4KCldoYXQgaXMgQnVzaW5lc3MgQW5hbHl0aWNzPyBEZWZpbml0aW9uIGFuZCBGQVFzIFx8IEhFQVZZLkFJLiAocy7CoGYuKS4gUmVjdXBlcmFkbyAyMSBkZSBvY3R1YnJlIGRlIDIwMjIsIGRlIDxodHRwczovL3d3dy5oZWF2eS5haS90ZWNobmljYWwtZ2xvc3NhcnkvYnVzaW5lc3MtYW5hbHl0aWNzPgoKUlB1YnMgLSBJbnRyb2R1Y2Npw4MzbiBhIGxvcyBNb2RlbG9zIGRlIEFncnVwYW1pZW50byBlbiBSLiAoMjAxOCwgMjMganVuaW8pLiBSZWN1cGVyYWRvIDIxIGRlIG9jdHVicmUgZGUgMjAyMiwgZGUgPGh0dHBzOi8vcnB1YnMuY29tL3JkZWxnYWRvLzM5OTQ3NT4K