“Actividad R6”
Equipo 4
2022-10-03
Emilio Olvera A01625200
Mayra Campoy Ramos A00226914
Ximena Gutierrez Briseño A00829505
Mariana Ulloa Encinas A01253076
Héctor Javier Villarreal A01570227
Introducción
FORM es una empresa nuevoleonense fundada en 2011, la cual atiende principalmente a clientes dentro del sector automotriz ofreciendo el desarrollo de empaques personalizados con el objetivo de generar ahorros, eficiencias, productividad y rentabilidad. A continuación, se analizaron las bases de datos internas y externas de la empresa con el objetivo de analizar su información y detectar hallazgos para la futura generación de estrategias de mejora.
Producción
Antes de importar la base de datos, se optó por:
1. Se integraron los datos de Julio, Agosto y Septiembre.
2. Se incorporó una nueva columna de “Fecha”.
3. Solo se dejaron los datos de “Tiempo de Maquinas”
4. Se eliminaron los NAs y variables no numéricas de las columnas de: “Láminas procesadas”.
Importar las bases de datos
#file.choose()
bd4 <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/EMI_CARTON.csv")
library(janitor)##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testproduccion <- clean_names(bd4)
summary(produccion)## fecha cliente id_form producto
## Length:3988 Length:3988 Length:3988 Length:3988
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## piezas_prog tmo_min hr_fin estacion_arranque
## Length:3988 Length:3988 Length:3988 Length:3988
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## laminas_procesadas inicio_sep_up fin_inicio_de_sep_up inicio_de_proceso
## Min. : 0 Length:3988 Length:3988 Length:3988
## 1st Qu.: 0 Class :character Class :character Class :character
## Median : 51 Mode :character Mode :character Mode :character
## Mean : 102
## 3rd Qu.: 184
## Max. :1263
##
## fin_de_proceso tiempo_calidad tiempo_materiales
## Length:3988 Length:3988 Min. : 0.000
## Class :character Class :character 1st Qu.: 0.000
## Mode :character Mode :character Median : 0.000
## Mean : 3.187
## 3rd Qu.: 1.000
## Max. :60.000
## NA's :3491produccion <- subset(produccion,select = -c (id_form, producto, hr_fin, inicio_sep_up, fin_inicio_de_sep_up, inicio_de_proceso, fin_de_proceso, tiempo_materiales))
summary(produccion)## fecha cliente piezas_prog tmo_min
## Length:3988 Length:3988 Length:3988 Length:3988
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3988 Min. : 0 Length:3988
## Class :character 1st Qu.: 0 Class :character
## Mode :character Median : 51 Mode :character
## Mean : 102
## 3rd Qu.: 184
## Max. :1263library(data.table)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:data.table':
##
## between, first, last## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(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,
## summarizelibrary(ggplot2)
library(naniar)
library(Hmisc) ## Loading required package: lattice## Loading required package: survival## Loading required package: Formula##
## Attaching package: 'Hmisc'## The following objects are masked from 'package:plyr':
##
## is.discrete, summarize## The following objects are masked from 'package:dplyr':
##
## src, summarize## The following objects are masked from 'package:base':
##
## format.pval, unitslibrary(psych)##
## Attaching package: 'psych'## The following object is masked from 'package:Hmisc':
##
## describe## The following objects are masked from 'package:ggplot2':
##
## %+%, alphalibrary(tidyverse)## ── Attaching packages
## ───────────────────────────────────────
## tidyverse 1.3.2 ──## ✔ tibble 3.1.8 ✔ purrr 0.3.4
## ✔ tidyr 1.2.1 ✔ stringr 1.4.1
## ✔ readr 2.1.2 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ psych::%+%() masks ggplot2::%+%()
## ✖ psych::alpha() masks ggplot2::alpha()
## ✖ plyr::arrange() masks dplyr::arrange()
## ✖ dplyr::between() masks data.table::between()
## ✖ purrr::compact() masks plyr::compact()
## ✖ plyr::count() masks dplyr::count()
## ✖ plyr::failwith() masks dplyr::failwith()
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::first() masks data.table::first()
## ✖ plyr::id() masks dplyr::id()
## ✖ dplyr::lag() masks stats::lag()
## ✖ dplyr::last() masks data.table::last()
## ✖ plyr::mutate() masks dplyr::mutate()
## ✖ plyr::rename() masks dplyr::rename()
## ✖ Hmisc::src() masks dplyr::src()
## ✖ plyr::summarise() masks dplyr::summarise()
## ✖ Hmisc::summarize() masks plyr::summarize(), dplyr::summarize()
## ✖ purrr::transpose() masks data.table::transpose()library(knitr)
# install.packages("pollster")
library(pollster)##
## Attaching package: 'pollster'
##
## The following object is masked from 'package:janitor':
##
## crosstablibrary(epiDisplay)## Loading required package: foreign
## 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:lattice':
##
## dotplot
##
## The following object is masked from 'package:ggplot2':
##
## alphalibrary(descr)##
## Attaching package: 'descr'
##
## The following object is masked from 'package:pollster':
##
## crosstab
##
## The following object is masked from 'package:janitor':
##
## crosstablibrary(tidyr)Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Técnica 1.Convertir a caracter a numerico y defecha
produccion$piezas_prog<-as.numeric(produccion$piezas_prog) ## Warning: NAs introduced by coercionproduccion$tmo_min<-as.numeric(produccion$tmo_min) ## Warning: NAs introduced by coercionproduccion$laminas_procesadas<-as.numeric(produccion$laminas_procesadas)
produccion$tiempo_calidad<-as.numeric(produccion$tiempo_calidad) ## Warning: NAs introduced by coercionproduccion$fecha <- as.Date(produccion$fecha, format = "%d/%m/%Y")
summary(produccion)## fecha cliente piezas_prog tmo_min
## Min. :2022-07-15 Length:3988 Min. : 1.0 Min. : 0.00
## 1st Qu.:2022-08-03 Class :character 1st Qu.: 100.0 1st Qu.: 15.00
## Median :2022-08-20 Mode :character Median : 153.5 Median : 20.00
## Mean :2022-08-19 Mean : 180.3 Mean : 22.37
## 3rd Qu.:2022-09-06 3rd Qu.: 200.0 3rd Qu.: 25.00
## Max. :2022-09-21 Max. :2000.0 Max. :150.00
## NA's :180 NA's :824
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3988 Min. : 0 Min. : 0.0000
## Class :character 1st Qu.: 0 1st Qu.: 0.0000
## Mode :character Median : 51 Median : 1.0000
## Mean : 102 Mean : 0.8631
## 3rd Qu.: 184 3rd Qu.: 1.0000
## Max. :1263 Max. :22.0000
## NA's :346Técnica 2.Borrar las letras de algunos registros de “Pieza_Prog”.
produccion$piezas_prog <- str_replace(produccion$piezas_prog, "[aeiouLAM=NbBsS]", "")
produccion$piezas_prog <- as.integer(produccion$laminas_procesadas)Técnica 3.Reemplazar por la mediana los NA´s de tmo_min y de tiempo_calidad
produccion$tmo_min[is.na(produccion$tmo_min)]<-median(produccion$tmo_min, na.rm = TRUE)
produccion$tiempo_calidad[is.na(produccion$tiempo_calidad)]<-median(produccion$tiempo_calidad, na.rm = TRUE)
summary(produccion)## fecha cliente piezas_prog tmo_min
## Min. :2022-07-15 Length:3988 Min. : 0 Min. : 0.00
## 1st Qu.:2022-08-03 Class :character 1st Qu.: 0 1st Qu.: 15.00
## Median :2022-08-20 Mode :character Median : 51 Median : 20.00
## Mean :2022-08-19 Mean : 102 Mean : 21.88
## 3rd Qu.:2022-09-06 3rd Qu.: 184 3rd Qu.: 25.00
## Max. :2022-09-21 Max. :1263 Max. :150.00
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3988 Min. : 0 Min. : 0.000
## Class :character 1st Qu.: 0 1st Qu.: 1.000
## Mode :character Median : 51 Median : 1.000
## Mean : 102 Mean : 0.875
## 3rd Qu.: 184 3rd Qu.: 1.000
## Max. :1263 Max. :22.000Exportar la base de datos limpia
bd_Produccion_limpia <- produccion
write.csv(bd_Produccion_limpia, file="bd_produccion_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
media_piezas_prog<- mean(produccion$piezas_prog)
media_piezas_prog## [1] 102.0105media_tmo_min<- mean(produccion$tmo_min)
media_tmo_min ## [1] 21.88064media_laminas_procesadas <- mean(produccion$laminas_procesadas)
media_laminas_procesadas## [1] 102.0105media_tiempo_calidad<- mean(produccion$tiempo_calidad)
media_tiempo_calidad## [1] 0.8749749Mediana
median_piezas_prog<- median(produccion$piezas_prog)
median_piezas_prog## [1] 51median_tmo_min<- median(produccion$tmo_min)
median_tmo_min ## [1] 20median_laminas_procesadas <- median(produccion$laminas_procesadas)
media_laminas_procesadas## [1] 102.0105median_tiempo_calidad<- median(produccion$tiempo_calidad)
median_tiempo_calidad## [1] 1Moda
mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
moda_piezas_prog <- mode(produccion$piezas_prog)
moda_piezas_prog## [1] 0moda_tmo_min <- mode(produccion$tmo_min)
moda_tmo_min## [1] 20moda_laminas_procesadas<- mode(produccion$laminas_procesadas)
moda_laminas_procesadas## [1] 0moda_tiempo_calidad <- mode(produccion$tiempo_calidad)
moda_tiempo_calidad## [1] 1Varianza
varianza_piezas_prog <-var(produccion$piezas_prog)
varianza_piezas_prog## [1] 18056.03varianza_tmo_min <-var(produccion$tmo_min)
varianza_tmo_min## [1] 143.2895varianza_laminas_procesadas<-var(produccion$laminas_procesadas)
varianza_laminas_procesadas## [1] 18056.03varianza_tiempo_calidad <-var(produccion$tiempo_calidad)
varianza_tiempo_calidad## [1] 0.9834017Desviación Estándar
desviacion_piezas_prog<- sqrt(varianza_piezas_prog)
desviacion_piezas_prog## [1] 134.3727desviacion_tmo_min <- sqrt(varianza_tmo_min)
desviacion_tmo_min## [1] 11.97036desviacion_laminas_procesadas <- sqrt(varianza_laminas_procesadas)
desviacion_laminas_procesadas## [1] 134.3727desviacion_tiempo_calidad <- sqrt(varianza_tiempo_calidad)
desviacion_tiempo_calidad## [1] 0.9916661Tabla
Variable2 <-c("piezas_prog","tmo_min ", "laminas_procesadas", "tiempo_calidad")
Promedio2 <-c("102.01", "21.88","102.01", "0.8749")
Moda2 <-c("0", "20","0", "1")
Mediana2 <-c("51","20","102.0105", "1")
Varianza2 <-c("18056.03","143.2895","18056.03", "0.9834017")
Desviación_Estándar2 <-c ("134.3727","11.97036","134.3727", "0.9916661")
tabla2 <-data.frame(Variable2,Promedio2, Moda2, Mediana2, Varianza2, Desviación_Estándar2)
tabla2## Variable2 Promedio2 Moda2 Mediana2 Varianza2 Desviación_Estándar2
## 1 piezas_prog 102.01 0 51 18056.03 134.3727
## 2 tmo_min 21.88 20 20 143.2895 11.97036
## 3 laminas_procesadas 102.01 0 102.0105 18056.03 134.3727
## 4 tiempo_calidad 0.8749 1 1 0.9834017 0.9916661knitr::kable(tabla2)| Variable2 | Promedio2 | Moda2 | Mediana2 | Varianza2 | Desviación_Estándar2 |
|---|---|---|---|---|---|
| piezas_prog | 102.01 | 0 | 51 | 18056.03 | 134.3727 |
| tmo_min | 21.88 | 20 | 20 | 143.2895 | 11.97036 |
| laminas_procesadas | 102.01 | 0 | 102.0105 | 18056.03 | 134.3727 |
| tiempo_calidad | 0.8749 | 1 | 1 | 0.9834017 | 0.9916661 |
Gráfico cuantitativo
ggplot(produccion,aes(x=fecha))+
geom_line(aes(y=piezas_prog),color="blue")+
labs(x="Fecha",y="piezas programadas", color="blue")+
ggtitle("Grafica de las piezas programadas por fecha")
En este gráfico se muestran los 3 diferentes meses (julio, agosto, sept), donde se puede ver que hubo mayor produccion de piezas programadas en lo que fue de julio hacia agosto.
Bar plots
ggplot(produccion, aes(x=tmo_min, y=laminas_procesadas)) +
geom_bar(stat="identity", fill="grey") + scale_fill_grey() +
labs(title = "Grafico de barras de las piezas programadas dentro del tiempo minimo",
x = "tiempo minimo", y = "laminas procesadas")
En esta gráfico se puede ver que el tiempo mínimo dentro de las láminas procesadas no sobrepasa los 50 lo cual es una buena señal de que no hay mucho tiempo de espera.
ggplot(produccion,aes(x=reorder(tmo_min, piezas_prog), y=piezas_prog,fill=cliente)) +
geom_bar(stat="identity")
Esta gráfica la tome de la base de datos del profesor la cual tambien me ayudo para visualizar los datos obtenidos de lo que fueron las piezas programadas dentro del tiempo mínimo dentro de la produccion, donde estas variables se ven dentro de los clientes.
Dispersion plots
ggplot(produccion, aes(x=piezas_prog, y=cliente)) +
geom_point() 
En esta gráfica de dispersion se puede apreciar visualmente la cantidad de piezas que se demandan para los diferentes clientes que tiene la empresa, donde se aprecia que Stabilus 1 toma la delantera.
Merma
Importar las bases de datos
# file.choose()
merma<- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/Reto/FORM - Merma 1.csv")Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Entender la base de datos
summary(merma)## Fecha Mes Kilos
## Length:60 Length:60 Length:60
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :characterObservaciones
No estan en enteros los kilos de merma
Existen filas inecesarias
Técnica 1: Eliminar totales
merma1<- merma[-c(5,12,19,25,31,36,42,54,59,60),]Técnica 2: Convertir caracter a entero.
merma1$Kilos <- as.integer(merma1$Kilos)
str(merma1)## 'data.frame': 50 obs. of 3 variables:
## $ Fecha: chr "11/01/22" "11/01/22" "22/01/22" "22/01/22" ...
## $ Mes : chr "ENERO" "ENERO" "ENERO" "ENERO" ...
## $ Kilos: int 5080 3810 2990 2680 3650 4380 3870 3590 3410 3930 ...Exportar la base de datos limpia
merma_limpia <- merma1
write.csv(merma_limpia, file ="merma_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
Las variables de fecha y el mes no puede tener media
media_kilos <- mean(merma1$Kilos)
media_kilos## [1] 3708.52Mediana
Las variables de fecha y el mes no puede tener mediana
mediana_kilos <- median(merma1$Kilos)
mediana_kilos## [1] 3925Moda
mode <- function (x) {
ux <- unique(x)
ux [which.max(tabulate(match(x,ux)))]
}
mode_fecha <- mode(merma1$Fecha)
mode_fecha## [1] "18/02/22"mode_mes <- mode(merma1$Mes)
mode_mes## [1] "AGOSTO"mode_kilos <- mode(merma1$Kilos)
mode_kilos## [1] 3810Desviación Estándar
Las variables de fecha y el mes no puede tener desviacion estandar
varianza_kilos <- var(merma1$Kilos)
varianza_kilos ## [1] 1048555desviacionestandar_kilos <- sqrt(varianza_kilos)
desviacionestandar_kilos## [1] 1023.99Tabla
Variable<-c("Fecha", "Mes", "Kilos")
Media<-c("NA", "NA", media_kilos)
Mediana<-c("NA", "NA", mediana_kilos)
Moda<-c(mode_fecha, mode_mes, mode_kilos)
Desviacion_Estandar<-c("NA", "NA", desviacionestandar_kilos)
table<-data.frame(Variable,Media,Mediana,Moda,Desviacion_Estandar)
knitr::kable(table)| Variable | Media | Mediana | Moda | Desviacion_Estandar |
|---|---|---|---|---|
| Fecha | NA | NA | 18/02/22 | NA |
| Mes | NA | NA | AGOSTO | NA |
| Kilos | 3708.52 | 3925 | 3810 | 1023.98960135026 |
Bar plots
# install.packages("ggplot2")
library(ggplot2)
ggplot(merma1, aes(x=Mes, y=Kilos)) +
geom_bar(stat="identity", fill="orange") + scale_fill_grey() + # Add bars to the plot
labs(title = "Relación de los kilos de merma en el mes", # Add a title
subtitle = "Merma empresa FORM", # Add a subtitle
caption = "Relación", # Add a caption
x = "Mes")
En esta gráfica podemos observar que la generacion de merma de la empresa FORM separa en los meses del 2022. Se observa que el mes que mas se genero merma fue en Agosto continuando con Febrero y Mayo. El mes que menos genero merma es Septiembre y Enero.
Dispersion plots
boxplot(merma1$Kilos)
En esta gráfica podemos observar que la merma generada en FORM se encuentra en una gran distribución. El promedio entra dentro de los 3000 y los 4000 kilos. De la misma manera, se ha llegado a generar menos de 1000 kilos contra la maxima que son arriba de los 6000 kilos.
Scrap
Importar las bases de datos
# file.choose()
scrap<- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/Reto/FORM - Scrap.csv")Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Entender la base de datos
summary(scrap)## Referencia Fecha Producto Cantidad
## Length:251 Length:251 Length:251 Min. : 0.00
## Class :character Class :character Class :character 1st Qu.: 1.00
## Mode :character Mode :character Mode :character Median : 2.00
## Mean : 13.34
## 3rd Qu.: 7.00
## Max. :1674.00
## Unidad.de.medida Ubicación.de.origen Ubicación.de.desecho Estado
## Length:251 Length:251 Length:251 Length:251
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Hora
## Length:251
## Class :character
## Mode :character
##
##
## Observaciones
Se cuenta con una fila al inecesaria
Se cuentan con variables inecesarias
Técnica 1: Eliminar columna.
scrap1<- scrap [-1,]Técnica 2: Eliminar variables
scrap1 <- subset(scrap1, select = -c ( Referencia, Producto,Unidad.de.medida, Ubicación.de.desecho, Estado, Hora))
summary(scrap1)## 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: Convertir caracter a entero.
scrap1$Cantidad <- as.integer(scrap1$Cantidad)
str(scrap1)## 'data.frame': 250 obs. of 3 variables:
## $ Fecha : chr "31/08/22" "31/08/22" "31/08/22" "31/08/22" ...
## $ Cantidad : int 2 1 1 31 1 1 1 9 2 1 ...
## $ Ubicación.de.origen: chr "SAB/Calidad/Entrega de PT" "SAB/Calidad/Entrega de PT" "SAB/Calidad/Entrega de PT" "SAB/Pre-Production" ...Exportar la base de datos limpia
scrap_limpia <- scrap1
write.csv(scrap_limpia, file ="scrap_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
Las variables de fecha y ubicación de origen no puede tener media
media_cantidad <- mean(scrap1$Cantidad)
media_cantidad## [1] 6.692Mediana
Las variables de fecha y ubicación de origen no puede tener mediana
mediana_cantidad <- median(scrap1$Cantidad)
mediana_cantidad## [1] 2Moda
mode <- function (x) {
ux <- unique(x)
ux [which.max(tabulate(match(x,ux)))]
}
mode_fecha1 <- mode(scrap1$Fecha)
mode_fecha1## [1] "16/08/22"mode_cantidad <- mode(scrap1$Cantidad)
mode_cantidad## [1] 1mode_ubicacion <- mode(scrap1$Ubicación.de.origen)
mode_ubicacion## [1] "SAB/Pre-Production"Desviación Estándar
Las variables de fecha y ubicación de origen no puede tener desviacion estandar
varianza_cantidad <- var(scrap1$Cantidad)
varianza_cantidad## [1] 140.4309desviacionestandar_cantidad <- sqrt(varianza_cantidad)
desviacionestandar_cantidad## [1] 11.85035Tabla
Variable<-c("Fecha", "Cantidad", "Ubicación_de_origen")
Media<-c("NA", media_cantidad, "NA")
Mediana<-c("NA",mediana_cantidad, "NA")
Moda<-c(mode_fecha1, mode_cantidad, mode_ubicacion)
Desviacion_Estandar<-c("NA", desviacionestandar_cantidad, "NA")
table<-data.frame(Variable,Media,Mediana,Moda,Desviacion_Estandar)
knitr::kable(table)| Variable | Media | Mediana | Moda | Desviacion_Estandar |
|---|---|---|---|---|
| Fecha | NA | NA | 16/08/22 | NA |
| Cantidad | 6.692 | 2 | 1 | 11.8503527136432 |
| Ubicación_de_origen | NA | NA | SAB/Pre-Production | NA |
Bar Plots
# install.packages("ggplot2")
library(ggplot2)
ggplot(scrap1, aes(x=Ubicación.de.origen, y=Cantidad)) +
geom_bar(stat="identity", fill="brown") + scale_fill_grey() + # Add bars to the plot
labs(title = "Donde se encuentra la merma", # Add a title
subtitle = "RH empresa FORM", # Add a subtitle
caption = "Relación", # Add a caption
x = "Mes")
Dispersion plot
ggplot(data=scrap1, mapping = aes(Ubicación.de.origen, Cantidad)) + geom_point() + theme_bw()
En estas gráfica podemos observar que en la manera de como esta distribuida la generacion de el scrap de la empresa FORM. Se observa de una manera por mucha diferencia en se genera la mayor cantidad en la pre-producción y en la que menos se produce el scrap es en la etapa de la post-producción.
Delivery Performance
Importar las bases de datos
# file.choose()
bd2 <- read.csv("/Users/mayracampoyramos/Downloads/FORM - Delivery Performance BD BUENA.csv")
library(dplyr)
library(janitor)
performance <- clean_names(bd2)
summary(performance)## fecha printel mahle magna
## Length:324 Min. :0.0000 Min. :-11.650 Min. :0
## Class :character 1st Qu.:0.0000 1st Qu.: 1.800 1st Qu.:0
## Mode :character Median :0.0000 Median : 3.000 Median :0
## Mean :0.4418 Mean : 2.364 Mean :0
## 3rd Qu.:1.0000 3rd Qu.: 3.150 3rd Qu.:0
## Max. :4.4000 Max. : 20.000 Max. :0
## NA's :25 NA's :25 NA's :25
## varroc x x_1 x_2 x_3
## Min. :0 Mode:logical Mode:logical Mode:logical Mode:logical
## 1st Qu.:0 NA's:324 NA's:324 NA's:324 NA's:324
## Median :0
## Mean :0
## 3rd Qu.:0
## Max. :0
## NA's :25Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Técnica 1.Borrar columnas.
performance <- subset(performance, select = -c(x, x_1, x_2, x_3))
summary(performance)## fecha printel mahle magna
## Length:324 Min. :0.0000 Min. :-11.650 Min. :0
## Class :character 1st Qu.:0.0000 1st Qu.: 1.800 1st Qu.:0
## Mode :character Median :0.0000 Median : 3.000 Median :0
## Mean :0.4418 Mean : 2.364 Mean :0
## 3rd Qu.:1.0000 3rd Qu.: 3.150 3rd Qu.:0
## Max. :4.4000 Max. : 20.000 Max. :0
## NA's :25 NA's :25 NA's :25
## varroc
## Min. :0
## 1st Qu.:0
## Median :0
## Mean :0
## 3rd Qu.:0
## Max. :0
## NA's :25Técnica 2.Convertir de caracter a fecha
performance$fecha <- as.Date(performance$fecha, format = "%d/%m/%Y")
tibble(performance)## # A tibble: 324 × 5
## fecha printel mahle magna varroc
## <date> <dbl> <dbl> <dbl> <dbl>
## 1 2021-07-22 0 2.65 0 0
## 2 2021-07-25 1.8 2.85 0 0
## 3 2021-07-26 1.1 2.5 0 0
## 4 2021-07-27 0.5 2.5 0 0
## 5 2021-07-28 0.5 2.55 0 0
## 6 2021-07-29 1 2.65 0 0
## 7 2021-08-01 1 2.51 0 0
## 8 2021-08-02 1 3 0 0
## 9 2021-08-03 0 3 0 0
## 10 2021-08-04 1.2 3.05 0 0
## # … with 314 more rowsTécnica 3.Convertir de caracter a entero
performance$printel <- substr(performance$printel, start = 1, stop = 2)
tibble(performance)## # A tibble: 324 × 5
## fecha printel mahle magna varroc
## <date> <chr> <dbl> <dbl> <dbl>
## 1 2021-07-22 0 2.65 0 0
## 2 2021-07-25 1. 2.85 0 0
## 3 2021-07-26 1. 2.5 0 0
## 4 2021-07-27 0. 2.5 0 0
## 5 2021-07-28 0. 2.55 0 0
## 6 2021-07-29 1 2.65 0 0
## 7 2021-08-01 1 2.51 0 0
## 8 2021-08-02 1 3 0 0
## 9 2021-08-03 0 3 0 0
## 10 2021-08-04 1. 3.05 0 0
## # … with 314 more rowsperformance$printel <- as.numeric(performance$printel)
str(performance)## 'data.frame': 324 obs. of 5 variables:
## $ fecha : Date, format: "2021-07-22" "2021-07-25" ...
## $ printel: num 0 1 1 0 0 1 1 1 0 1 ...
## $ mahle : num 2.65 2.85 2.5 2.5 2.55 2.65 2.51 3 3 3.05 ...
## $ magna : num 0 0 0 0 0 0 0 0 0 0 ...
## $ varroc : num 0 0 0 0 0 0 0 0 0 0 ...performance$mahle <- substr(performance$mahle, start = 1, stop = 2)
performance$mahle <- as.numeric(performance$mahle)
performance$magna <- substr(performance$magna, start = 1, stop = 2)
performance$magna <- as.numeric(performance$magna)
str(performance)## 'data.frame': 324 obs. of 5 variables:
## $ fecha : Date, format: "2021-07-22" "2021-07-25" ...
## $ printel: num 0 1 1 0 0 1 1 1 0 1 ...
## $ mahle : num 2 2 2 2 2 2 2 3 3 3 ...
## $ magna : num 0 0 0 0 0 0 0 0 0 0 ...
## $ varroc : num 0 0 0 0 0 0 0 0 0 0 ...performance$varroc <- substr(performance$varroc, start = 1, stop = 2)
performance$varroc <- as.numeric(performance$varroc)
str(performance)## 'data.frame': 324 obs. of 5 variables:
## $ fecha : Date, format: "2021-07-22" "2021-07-25" ...
## $ printel: num 0 1 1 0 0 1 1 1 0 1 ...
## $ mahle : num 2 2 2 2 2 2 2 3 3 3 ...
## $ magna : num 0 0 0 0 0 0 0 0 0 0 ...
## $ varroc : num 0 0 0 0 0 0 0 0 0 0 ...Técnica 4.Reemplazar NAs con la mediana de cada variable
sapply(performance, function(x) sum(is.na(x)))## fecha printel mahle magna varroc
## 25 25 25 25 25performance$fecha[is.na(performance$fecha)]<-median(performance$fecha, na.rm = TRUE)
performance$printel[is.na(performance$printel)]<-median(performance$printel, na.rm = TRUE)
performance$mahle[is.na(performance$mahle)]<-median(performance$mahle, na.rm = TRUE)
performance$magna[is.na(performance$magna)]<-median(performance$magna, na.rm = TRUE)
performance$varroc[is.na(performance$varroc)]<-median(performance$varroc, na.rm = TRUE)
summary(performance)## fecha printel mahle magna varroc
## Min. :2021-07-22 Min. :0.0000 Min. :-9.00 Min. :0 Min. :0
## 1st Qu.:2021-10-20 1st Qu.:0.0000 1st Qu.: 2.00 1st Qu.:0 1st Qu.:0
## Median :2022-02-07 Median :0.0000 Median : 3.00 Median :0 Median :0
## Mean :2022-01-30 Mean :0.3395 Mean : 2.21 Mean :0 Mean :0
## 3rd Qu.:2022-04-27 3rd Qu.:0.2500 3rd Qu.: 3.00 3rd Qu.:0 3rd Qu.:0
## Max. :2022-07-23 Max. :4.0000 Max. :20.00 Max. :0 Max. :0Exportar base de datos limpia
write.csv(performance, file="performance_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
media_printel <- mean(performance$printel)
media_printel## [1] 0.3395062media_mahle <- mean(performance$mahle)
media_mahle## [1] 2.209877media_magna <- mean(performance$magna)
media_magna## [1] 0media_varroc <- mean(performance$varroc)
media_varroc## [1] 0Mediana
mediana_printel <- median(performance$printel)
mediana_printel## [1] 0mediana_mahle <- median(performance$mahle)
mediana_mahle## [1] 3mediana_magna <- median(performance$magna)
mediana_magna## [1] 0mediana_varroc <- median(performance$varroc)
mediana_varroc## [1] 0Moda
mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
moda_printel <- mode(performance$printel)
moda_printel## [1] 0moda_mahle <- mode(performance$mahle)
moda_mahle## [1] 3moda_magna <- mode(performance$magna)
moda_magna## [1] 0moda_varroc <- mode(performance$varroc)
moda_varroc## [1] 0Varianza
varianza_printel <-var(performance$printel)
varianza_printel## [1] 0.4416542varianza_mahle <-var(performance$mahle)
varianza_mahle## [1] 2.909376varianza_magna <-var(performance$magna)
varianza_magna## [1] 0varianza_varroc <-var(performance$varroc)
varianza_varroc## [1] 0Desviación Estándar
desviacion_printel <- sqrt(varianza_printel)
desviacion_printel## [1] 0.6645707desviacion_mahle <- sqrt(varianza_mahle)
desviacion_mahle## [1] 1.705689desviacion_magna <- sqrt(varianza_magna)
desviacion_magna## [1] 0desviacion_varroc <- sqrt(varianza_varroc)
desviacion_varroc## [1] 0Tabla
Variable2 <-c("Printel","Mahle", "Magna", "Varroc")
Promedio2 <-c("0.339", "2.209","0", "0")
Moda2 <-c(" "," "," ", " ")
Mediana2 <-c("0","3","0", "0")
Varianza2 <-c("0.441","2.909","0", "0")
Desviación_Estándar2 <-c ("0.664","1.705","0", "0")
tabla2 <-data.frame(Variable2,Promedio2, Moda2, Mediana2, Varianza2, Desviación_Estándar2)
tabla2## Variable2 Promedio2 Moda2 Mediana2 Varianza2 Desviación_Estándar2
## 1 Printel 0.339 0 0.441 0.664
## 2 Mahle 2.209 3 2.909 1.705
## 3 Magna 0 0 0 0
## 4 Varroc 0 0 0 0knitr::kable(tabla2)| Variable2 | Promedio2 | Moda2 | Mediana2 | Varianza2 | Desviación_Estándar2 |
|---|---|---|---|---|---|
| Printel | 0.339 | 0 | 0.441 | 0.664 | |
| Mahle | 2.209 | 3 | 2.909 | 1.705 | |
| Magna | 0 | 0 | 0 | 0 | |
| Varroc | 0 | 0 | 0 | 0 |
Dispersion plot
ggplot(performance,aes(x=fecha))+
geom_line(aes(y=printel),color="blue")+
geom_line(aes(y=mahle),color="orange")+
geom_line(aes(y=magna),color="green")+
geom_line(aes(y=varroc),color="green")+
labs(x="Fecha",y="Retraso en horas", color="Legend")+
ggtitle("Retrasos de entrega por cliente")
En esta gráfica podemos observar que FORM con los clientes Magna y Varroc no presentan horas de retraso en sus pedidos, sin embargo, con Mahle y Printel si han presentado retrasos considerables prinicipalmente dentro del primer trimestre del 2022. Teniendo retrasos de hasta 20 horas.
Delivery Plan
Importar las bases de datos
library(data.table)
library(dplyr)
library(plyr)
library(ggplot2)
library(naniar)
library(Hmisc)
library(psych)
library(tidyverse)
library(janitor)
library(knitr)
library(pollster)
library(epiDisplay)
library(descr)
library(tidyr)
library(ggeasy)
library(stringr)
library(patchwork)##
## Attaching package: 'patchwork'## The following object is masked from 'package:MASS':
##
## area# file.choose()
bd <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/Delivery Plan FINAL - EQUIPO 4 .csv")Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Técnica 1. Acondicionar nombres a formato óptimo para R
bd <- clean_names(bd)Técnica 2.Unir los pedidos programados en una sola columna.
bd <- bd %>% dplyr::rename(cliente=cliente_planta,
A_jun_21=junio,
B_jul_21=julio,
C_ago_21=agosto,
D_sep_21=septiembre,
E_oct_21=octubre,
F_nov_21=noviembre,
G_dic_21=diciembre,
H_ene_22=ene_22,
I_feb_22=feb_22,
J_mar_22=mar_22,
K_abr_22=abr_22,
L_may_22=may_22,
M_jun_22=jun_22,
N_jul_22=jul_22,
O_ago_22=ago_22,
P_sep_22=sep_22,
Q_oct_22=octubre_22,
R_nov_22=nov_22,
S_dic_22=dic_22,
T_ene_23=ene_23,
U_feb_23=feb_23,
V_mar_23=feb_23
)
colnames(bd)## [1] "cliente" "proyecto" "id_odoo" "item" "A_jun_21"
## [6] "B_jul_21" "C_ago_21" "D_sep_21" "E_oct_21" "F_nov_21"
## [11] "G_dic_21" "H_ene_22" "I_feb_22" "J_mar_22" "K_abr_22"
## [16] "L_may_22" "M_jun_22" "N_jul_22" "O_ago_22" "P_sep_22"
## [21] "Q_oct_22" "R_nov_22" "S_dic_22" "T_ene_23" "V_mar_23"
## [26] "mar_23" "total_meses"bd <- pivot_longer(bd, cols=5:14, names_to = "Mes", values_to = "Unidades")
str(bd)## tibble [2,310 × 19] (S3: tbl_df/tbl/data.frame)
## $ cliente : chr [1:2310] "STB3" "STB3" "STB3" "STB3" ...
## $ proyecto : chr [1:2310] "CANASTILLA GRIS" "CANASTILLA GRIS" "CANASTILLA GRIS" "CANASTILLA GRIS" ...
## $ id_odoo : chr [1:2310] "15.785" "15.785" "15.785" "15.785" ...
## $ item : chr [1:2310] "CABLE SET CAJA BACK UP CANASTILLA" "CABLE SET CAJA BACK UP CANASTILLA" "CABLE SET CAJA BACK UP CANASTILLA" "CABLE SET CAJA BACK UP CANASTILLA" ...
## $ K_abr_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ L_may_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ M_jun_22 : int [1:2310] 200 200 200 200 200 200 200 200 200 200 ...
## $ N_jul_22 : int [1:2310] 900 900 900 900 900 900 900 900 900 900 ...
## $ O_ago_22 : int [1:2310] 1000 1000 1000 1000 1000 1000 1000 1000 1000 1000 ...
## $ P_sep_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ Q_oct_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ R_nov_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ S_dic_22 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ T_ene_23 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ V_mar_23 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ mar_23 : int [1:2310] 0 0 0 0 0 0 0 0 0 0 ...
## $ total_meses: int [1:2310] 3850 3850 3850 3850 3850 3850 3850 3850 3850 3850 ...
## $ Mes : chr [1:2310] "A_jun_21" "B_jul_21" "C_ago_21" "D_sep_21" ...
## $ Unidades : int [1:2310] 0 140 530 0 200 0 150 230 500 0 ...Técnica 3.Eliminación de ceros en la base de datos para eliminar rengoles/clientes sin registros
bd1 <- filter(bd, Unidades>0)Técnica 4.Eliminación de variables irrelevantes. En este caso, dado que previamente se unieron (merge) las variables de mes, solo se considera necesaria la variables de cliente, fecha y Unidades
bd2 <- bd1
bd2 <- subset (bd1, select = -c (proyecto, id_odoo, item, K_abr_22, L_may_22, M_jun_22,N_jul_22,O_ago_22, P_sep_22, Q_oct_22, R_nov_22, S_dic_22, T_ene_23, V_mar_23, mar_23, total_meses))
summary(bd2)## cliente Mes Unidades
## Length:590 Length:590 Min. : 1.0
## Class :character Class :character 1st Qu.: 30.0
## Mode :character Mode :character Median : 80.0
## Mean : 358.4
## 3rd Qu.: 300.0
## Max. :13120.0Exportar base de datos limpia
Delivery_Plan <- bd2
write.csv(Delivery_Plan, file = "Ddeliveryplan_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
Media <- mean(bd2$Unidades)
Media## [1] 358.3729Mediana
Mediana <- median(bd2$Unidades)
Mediana## [1] 80Moda
mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
Moda_clientes <- mode(bd2$cliente)
Moda_clientes## [1] "VARROC"Moda_mes <- mode(bd2$Mes)
Moda_mes## [1] "H_ene_22"Moda_unidades <- mode(bd2$Unidades)
Moda_unidades## [1] 60Varianza
varianza_unidades_prog <- var(bd2$Unidades)
varianza_unidades_prog## [1] 1005677Desviación Estándar
desviacion_unidades_prog<- sqrt(varianza_unidades_prog)
desviacion_unidades_prog## [1] 1002.834Tabla
Variable<-c("Unidades", "Mes", "cliente")
Media<-c(Media, "NA", "NA")
Mediana<-c(Mediana, "NA", "NA")
Moda<-c(Moda_unidades, Moda_mes, Moda_clientes)
Desviacion_Estandar<-c("1002.834", "NA", "NA")
table1 <- data.frame(Variable, Media, Mediana, Moda, Desviacion_Estandar)
knitr::kable(table)| Variable | Media | Mediana | Moda | Desviacion_Estandar |
|---|---|---|---|---|
| Fecha | NA | NA | 16/08/22 | NA |
| Cantidad | 6.692 | 2 | 1 | 11.8503527136432 |
| Ubicación_de_origen | NA | NA | SAB/Pre-Production | NA |
Dispersion plots
ggplot(bd2, aes(x = bd2$Mes, y = bd2$Unidades)) +
geom_point(shape=19, size=3) +
labs(title = "Relación entre Unidades y Meses",caption ="FORM Merma",x="Mes", y="Unidades") +
theme_classic()## Warning: Use of `bd2$Mes` is discouraged. Use `Mes` instead.## Warning: Use of `bd2$Unidades` is discouraged. Use `Unidades` instead.
Gráfica de los años 2021 y 2022 estableciendo cuantas unidades se vendieron por mes, podemos ver que en Junio 2021 tuvieron un aumento disminuyendo en los proximos meses y volvio a subir en el año 2022 Esta gráfica nos ayuda ver la relacion que tienen las unidades y los meses de año, para asi poder encontrar patrones en la base de datos para ver en que meses se hacen mas pedidos.
Bar plots
ggplot(bd2, aes(Mes,Unidades)) +
geom_bar(stat = "identity") +
scale_fill_brewer(palette = "Set2") + ggtitle("Unidades vendidas por Mes")
Con la segunda gráfica, se uso una gráfica de barras, aqui se esta analizando las unidades vendidas por mes, podemos observar cuantas unidades se venden en FORM podemos observar en la gráfica que desde JULIO del año pasado sus pedidos bajaron un poco pero siempre se han mantenido estables, teniendo un peak en MARZO de este año.
Recursos Humanos Colaboradores
Importar las bases de datos
# file.choose()
bd <- read.csv( "/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/Reto/FORM - Recursos Humanos - colaboradores.csv")
# install.packages("dplyr")
library(dplyr)
# install.packages("janitor")
library(janitor)
colaboradores <- clean_names(bd)
summary(colaboradores)## no_empleado nombre_completo edad genero
## Min. : 1 Length:113 Min. :18.00 Length:113
## 1st Qu.: 29 Class :character 1st Qu.:26.00 Class :character
## Median : 57 Mode :character Median :34.00 Mode :character
## Mean : 57 Mean :36.06
## 3rd Qu.: 85 3rd Qu.:45.00
## Max. :113 Max. :73.00
##
## fecha_alta antiguedad puesto mano_de_obra
## Length:113 Min. : 0.000 Length:113 Length:113
## Class :character 1st Qu.: 0.000 Class :character Class :character
## Mode :character Median : 0.000 Mode :character Mode :character
## Mean : 1.425
## 3rd Qu.: 2.000
## Max. :12.000
##
## salario_diario estado_civil
## Min. :144.4 Length:113
## 1st Qu.:176.7 Class :character
## Median :180.7 Mode :character
## Mean :179.1
## 3rd Qu.:180.7
## Max. :337.1
## NA's :2Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Técnica 1. Borrar columnas.
colaboradores <- subset(colaboradores, select = -c(no_empleado, nombre_completo, fecha_alta, mano_de_obra))Técnica 2. Reemplezar NAs con el promedio en la columna de “Salario Diario”
colaboradores$salario_diario[is.na(colaboradores$salario_diario)]<-mean(colaboradores$salario_diario, na.rm = TRUE)
summary (colaboradores)## edad genero antiguedad puesto
## Min. :18.00 Length:113 Min. : 0.000 Length:113
## 1st Qu.:26.00 Class :character 1st Qu.: 0.000 Class :character
## Median :34.00 Mode :character Median : 0.000 Mode :character
## Mean :36.06 Mean : 1.425
## 3rd Qu.:45.00 3rd Qu.: 2.000
## Max. :73.00 Max. :12.000
## salario_diario estado_civil
## Min. :144.4 Length:113
## 1st Qu.:176.7 Class :character
## Median :180.7 Mode :character
## Mean :179.1
## 3rd Qu.:180.7
## Max. :337.1Exportar base de datos limpia
write.csv(colaboradores, file="colaboradores_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
media_edad <- mean(colaboradores$edad)
media_edad## [1] 36.06195media_antiguedad <- mean(colaboradores$antiguedad)
media_antiguedad## [1] 1.424779media_salario <- mean(colaboradores$salario_diario)
media_salario## [1] 179.0981Mediana
mediana_edad <- median(colaboradores$edad)
mediana_edad## [1] 34mediana_antiguedad <- median(colaboradores$antiguedad)
mediana_antiguedad## [1] 0mediana_salario <- median(colaboradores$salario_diario)
mediana_salario ## [1] 180.68Moda
mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
moda_edad <- mode(colaboradores$edad)
moda_edad## [1] 32moda_antiguedad <- mode(colaboradores$antiguedad)
moda_antiguedad## [1] 0moda_salario <- mode(colaboradores$salario_diario)
moda_salario ## [1] 180.68Varianza
varianza_edad <-var(colaboradores$edad)
varianza_edad## [1] 165.0051varianza_antiguedad <-var(colaboradores$antiguedad)
varianza_antiguedad## [1] 6.353666varianza_salario <-var(colaboradores$salario_diario)
varianza_salario## [1] 589.7227Desviación Estándar
desviacion_edad <- sqrt(varianza_edad)
desviacion_edad## [1] 12.84543desviacion_antiguedad <- sqrt(varianza_antiguedad)
desviacion_antiguedad## [1] 2.520648desviacion_salario <- sqrt(varianza_salario)
desviacion_salario## [1] 24.28421Tabla
Variable <-c("Edad","Antiguedad","Salario Diario")
Promedio <-c("36", "1.42","179.098")
Moda <-c("32","0","180.68")
Mediana <-c("34","0","180.68")
Varianza <-c("165.005","6.353","589.722")
Desviación_Estándar <-c ("12.845","2.520","24.284")
tabla <-data.frame(Variable,Promedio, Moda, Mediana, Varianza, Desviación_Estándar)
tabla## Variable Promedio Moda Mediana Varianza Desviación_Estándar
## 1 Edad 36 32 34 165.005 12.845
## 2 Antiguedad 1.42 0 0 6.353 2.520
## 3 Salario Diario 179.098 180.68 180.68 589.722 24.284knitr::kable(tabla)| Variable | Promedio | Moda | Mediana | Varianza | Desviación_Estándar |
|---|---|---|---|---|---|
| Edad | 36 | 32 | 34 | 165.005 | 12.845 |
| Antiguedad | 1.42 | 0 | 0 | 6.353 | 2.520 |
| Salario Diario | 179.098 | 180.68 | 180.68 | 589.722 | 24.284 |
Bar Plots
hist(colaboradores$edad, freq=TRUE, col="purple", main="Edad en años de los Colaboradores actuales")
Con estas gràfica podemos observar que los colaboradores actuales en promedio tienen entre 20-40 años.
ggplot(colaboradores, aes(x=genero, y=salario_diario, fill=genero)) +
geom_bar(stat="identity") +
facet_grid(~estado_civil) + scale_fill_brewer(palette = "Set2")
Con este gràfico podemos observar que los que estan casados y solteros suelen ganar màs de los que estan divorciados y en uniòn libre. Ademàs, los hombres casados y las mujeres solteras son los que ganan màs.
Dispersion plot
ggplot(data=colaboradores, mapping = aes(edad, salario_diario)) + geom_point(aes(color = genero)) + theme_bw()
Con estas gràficas podemos observar que el colaborador que gana màs es mujer y las que ganan menos tambièn. Sin embargo, el promedio de salario ganado por los colaboradores de todas las edades es de aproximadamente 170 pesos diarios.
Recursos Humanos Bajas
Importar las bases de datos
# file.choose()
bd1 <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/Reto/FORM - Recursos Humanos - bajas.csv")
bajas <- clean_names(bd1)
summary(bajas)## no_empleado nombre_completo edad genero
## Min. : 1.00 Length:238 Min. :19.00 Length:238
## 1st Qu.: 60.25 Class :character 1st Qu.:23.00 Class :character
## Median :119.50 Mode :character Median :29.00 Mode :character
## Mean :119.50 Mean :31.06
## 3rd Qu.:178.75 3rd Qu.:37.00
## Max. :238.00 Max. :61.00
## fecha_alta antiguedad motivo_baja baja
## Length:238 Min. :0.000 Length:238 Length:238
## Class :character 1st Qu.:0.000 Class :character Class :character
## Mode :character Median :0.000 Mode :character Mode :character
## Mean :0.605
## 3rd Qu.:1.000
## Max. :6.000
## puesto salario_diario
## Length:238 Min. :144.4
## Class :character 1st Qu.:180.7
## Mode :character Median :180.7
## Mean :178.0
## 3rd Qu.:180.7
## Max. :500.0Limpieza, Transformación, y Organización de Bases de Datos
Crear una base de datos final para cada una de las áreas de la empresa FORM que se incluyen en a) – f).
Técnica 1.Borrar columnas.
bajas <- subset(bajas, select = -c(no_empleado, nombre_completo, fecha_alta))Técnica 2. Reemplazar NA con CEROS en la columna de “Antigüedad” ya que es la Mediana y Moda.
bajas$antiguedad[is.na(bajas$antiguedad)]<-0Reemplezar NAs con el promedio en la columna de “Edad” y “Salario Diario”
bajas$edad[is.na(bajas$edad)]<-mean(bajas$edad, na.rm = TRUE)
bajas$salario_diario[is.na(bajas$salario_diario)]<-mean(bajas$salario_diario, na.rm = TRUE)
summary (bajas)## edad genero antiguedad motivo_baja
## Min. :19.00 Length:238 Min. :0.000 Length:238
## 1st Qu.:23.00 Class :character 1st Qu.:0.000 Class :character
## Median :29.00 Mode :character Median :0.000 Mode :character
## Mean :31.06 Mean :0.605
## 3rd Qu.:37.00 3rd Qu.:1.000
## Max. :61.00 Max. :6.000
## baja puesto salario_diario
## Length:238 Length:238 Min. :144.4
## Class :character Class :character 1st Qu.:180.7
## Mode :character Mode :character Median :180.7
## Mean :178.0
## 3rd Qu.:180.7
## Max. :500.0Técnica 3.Convertir de caracter a fecha
bajas$baja <- as.Date(bajas$baja, format = "%d/%m/%Y")
tibble(bajas)## # A tibble: 238 × 7
## edad genero antiguedad motivo_baja baja puesto salar…¹
## <dbl> <chr> <dbl> <chr> <date> <chr> <dbl>
## 1 32 MASCULINO 3 RENUNCIA VOLUNTARIA 2021-11-27 DISEÑO 500
## 2 36 FEMENINO 1 RENUNCIA VOLUNTARIA 2022-01-08 AYUDANTE G… 152.
## 3 24 FEMENINO 1 RENUNCIA VOLUNTARIA 2022-01-08 AYUDANTE G… 152.
## 4 21 FEMENINO 1 RENUNCIA VOLUNTARIA 2022-01-08 AYUDANTE G… 152.
## 5 30 FEMENINO 1 RENUNCIA VOLUNTARIA 2022-01-08 AYUDANTE G… 152.
## 6 46 FEMENINO 1 BAJA POR FALTAS 2022-01-08 AYUDANTE G… 152.
## 7 29 FEMENINO 1 BAJA POR FALTAS 2022-01-08 AYUDANTE G… 152.
## 8 31 MASCULINO 1 BAJA POR FALTAS 2022-01-08 AYUDANTE G… 152.
## 9 50 MASCULINO 1 BAJA POR FALTAS 2022-01-08 AYUDANTE G… 152.
## 10 19 MASCULINO 1 RENUNCIA VOLUNTARIA 2022-01-10 AYUDANTE G… 177.
## # … with 228 more rows, and abbreviated variable name ¹salario_diariobajas$baja[is.na(bajas$baja)]<-mean(bajas$baja, na.rm = TRUE)
summary (bajas)## edad genero antiguedad motivo_baja
## Min. :19.00 Length:238 Min. :0.000 Length:238
## 1st Qu.:23.00 Class :character 1st Qu.:0.000 Class :character
## Median :29.00 Mode :character Median :0.000 Mode :character
## Mean :31.06 Mean :0.605
## 3rd Qu.:37.00 3rd Qu.:1.000
## Max. :61.00 Max. :6.000
## baja puesto salario_diario
## Min. :2021-11-27 Length:238 Min. :144.4
## 1st Qu.:2022-03-01 Class :character 1st Qu.:180.7
## Median :2022-04-29 Mode :character Median :180.7
## Mean :2022-04-29 Mean :178.0
## 3rd Qu.:2022-06-27 3rd Qu.:180.7
## Max. :2022-08-25 Max. :500.0Exportar base de datos limpia
write.csv(bajas, file="rh_bajas_bd_limpia.csv", row.names = FALSE)Análisis Exploratorio de las Bases de Datos
Media
media_edad1 <- mean(bajas$edad)
media_edad1## [1] 31.05882media_antiguedad1 <- mean(bajas$antiguedad)
media_antiguedad1## [1] 0.605042media_salario1 <- mean(bajas$salario_diario)
media_salario1## [1] 177.9855Mediana
mediana_edad1 <- median(bajas$edad)
mediana_edad1## [1] 29mediana_antiguedad1 <- median(bajas$antiguedad)
mediana_antiguedad1## [1] 0mediana_salario1 <- median(bajas$salario_diario)
mediana_salario1## [1] 180.68Moda
mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}
moda_edad1 <- mode(bajas$edad)
moda_edad1## [1] 22moda_antiguedad1 <- mode(bajas$antiguedad)
moda_antiguedad1## [1] 0moda_salario1 <- mode(bajas$salario_diario)
moda_salario1 ## [1] 180.68Varianza
varianza_edad1 <-var(bajas$edad)
varianza_edad1## [1] 91.49863varianza_antiguedad1 <-var(bajas$antiguedad)
varianza_antiguedad1## [1] 0.6703542varianza_salario1 <-var(bajas$salario_diario)
varianza_salario1## [1] 536.4858Desviación Estándar
desviacion_edad1 <- sqrt(varianza_edad1)
desviacion_edad1## [1] 9.565492desviacion_antiguedad1 <- sqrt(varianza_antiguedad1)
desviacion_antiguedad1## [1] 0.8187516desviacion_salario1 <- sqrt(varianza_salario1)
desviacion_salario1## [1] 23.16216Tabla
Variable1 <-c("Edad","Antiguedad","Salario Diario")
Promedio1 <-c("31.05","0.6","177.985")
Moda1 <-c("22","0","180.68")
Mediana1 <-c("29","0","180.68")
Varianza1 <-c("90.732","0.6677","531.996")
Desviación_Estándar1 <-c ("9.525","0.817","23.065")
tabla1 <-data.frame (Variable1,Promedio1, Moda1, Mediana1, Varianza1, Desviación_Estándar1)
tabla1## Variable1 Promedio1 Moda1 Mediana1 Varianza1 Desviación_Estándar1
## 1 Edad 31.05 22 29 90.732 9.525
## 2 Antiguedad 0.6 0 0 0.6677 0.817
## 3 Salario Diario 177.985 180.68 180.68 531.996 23.065knitr::kable(tabla1)| Variable1 | Promedio1 | Moda1 | Mediana1 | Varianza1 | Desviación_Estándar1 |
|---|---|---|---|---|---|
| Edad | 31.05 | 22 | 29 | 90.732 | 9.525 |
| Antiguedad | 0.6 | 0 | 0 | 0.6677 | 0.817 |
| Salario Diario | 177.985 | 180.68 | 180.68 | 531.996 | 23.065 |
Bar Plots
hist(bajas$edad, freq=TRUE, col="pink", main="Edad en años de los Ex-Colaboradores")
Los colaboradores que se han dado de baja en su mayoria tienen entre 20 y 30 años, siendo asì los que se van màs jòvenes.
Gráfico cualitativo
table(bajas$motivo_baja)##
## ABANDONO BAJA POR FALTAS JUBILACION RENUNCIA VOLUNTARIA
## 1 141 1 87
## TERMINO DE CONTRATO
## 8proporciones <- c(1, 141, 1, 87, 8)
etiquetas <- c("Abandono", "Baja por Faltas", "Jubilaciòn", "Renuncia Voluntaria", "Termino de Contrato")
pct <- round(proporciones/sum(proporciones)*100)
etiquetas <- paste(etiquetas, pct)
etiquetas <- paste(etiquetas,"%",sep="")
pie(proporciones,labels = etiquetas,
col=rainbow(length(etiquetas)),
main="Motivo de bajas de los Colaboradores")
Con esta gràfica podemos observar que el motivo màs comùn de baja de los colaboradores han sido por despidos por faltas con un 59% y por renuncia voluntaria por un 37%.
Pronóstico del Desempeño de la Industria Automotriz y la empresa FORM
Importar bases de datos
#file.choose()
bd_prediccion <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/encoded-bd_prediccion.csv")
vehiculos_circulacion <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/encoded-vehiculos_en_circulacion (2).csv")
produccion <- read.csv("/Users/mayracampoyramos/Desktop/Analisis de Datos Concentracion/bd_produccion_limpia (1).csv")Instalar paquetes y llamar librerías
#install.packages("tseries")
library(tseries)
#install.packages("forecast")
library(forecast)
#install.packages("astsa")
library(astsa)
#install.packages("dplyr")
library(dplyr)
#install.packages("jtools")
library(jtools)
#install.packages("lmtest")
library(lmtest)
#install.packages("car")
library(car)
#install.packages("olsrr")
library(olsrr)
#install.packages("corrplot")
library(corrplot)Pronósticos
Desempeño de la industria automotriz para los siguientes 3 periodos de tiempo
Vehículos de motor registrados en circulación
Entender la base de datos
summary(vehiculos_circulacion)## Año Total Automóviles
## Length:47 Min. : 4010430 Min. : 3950042
## Class :character 1st Qu.: 6748523 1st Qu.: 6654340
## Mode :character Median :11002046 Median :10764080
## Mean :14899354 Mean :14673142
## 3rd Qu.:22392796 3rd Qu.:22068938
## Max. :35913468 Max. :35460804
## NA's :5 NA's :5
## Camiones.para.pasajeros Camiones.y.camionetas.para.carga Motocicletas
## Min. : 60388 Min. : 1470816 Min. : 128960
## 1st Qu.: 90931 1st Qu.: 3046906 1st Qu.: 248248
## Median :233490 Median : 5166812 Median : 295262
## Mean :226212 Mean : 5920971 Mean :1156467
## 3rd Qu.:336420 3rd Qu.: 9199181 3rd Qu.:1284405
## Max. :461089 Max. :11262666 Max. :5939262
## NA's :5 NA's :5 NA's :5
## X X.1
## Mode:logical Mode:logical
## NA's:47 NA's:47
##
##
##
##
## str(vehiculos_circulacion)## 'data.frame': 47 obs. of 8 variables:
## $ Año : chr "1980" "1981" "1982" "1983" ...
## $ Total : int 4010430 4406336 4686130 4797562 5047043 5360870 5286295 5420592 5682964 6093682 ...
## $ Automóviles : int 3950042 4341363 4616897 4726236 4970526 5281842 5202922 5336228 5597735 6003532 ...
## $ Camiones.para.pasajeros : int 60388 64973 69233 71326 76517 79028 83373 84364 85229 90150 ...
## $ Camiones.y.camionetas.para.carga: int 1470816 1636899 1751799 1893206 2009875 2114395 2213025 2292078 2424025 2691551 ...
## $ Motocicletas : int 277084 296601 257235 250484 248148 250358 232692 221059 217898 223815 ...
## $ X : logi NA NA NA NA NA NA ...
## $ X.1 : logi NA NA NA NA NA NA ...Limpieza de datos
Eliminar variables (Camiones.y.camionetas.para.carga, Motocicletas, X y X.1)
vehiculos_circulacion1 <- subset(vehiculos_circulacion, select = -c (Camiones.y.camionetas.para.carga, Motocicletas, X, X.1))
vehiculos_circulacion1## Año
## 1 1980
## 2 1981
## 3 1982
## 4 1983
## 5 1984
## 6 1985
## 7 1986
## 8 1987
## 9 1988
## 10 1989
## 11 1990
## 12 1991
## 13 1992
## 14 1993
## 15 1994
## 16 1995
## 17 1996
## 18 1997
## 19 1998
## 20 1999
## 21 2000
## 22 2001
## 23 2002
## 24 2003
## 25 2004
## 26 2005
## 27 2006
## 28 2007
## 29 2008
## 30 2009
## 31 2010
## 32 2011
## 33 2012
## 34 2013
## 35 2014
## 36 2015
## 37 2016
## 38 2017
## 39 2018
## 40 2019
## 41 2020
## 42 2021
## 43
## 44
## 45
## 46 FUENTE: INEGI. Estadísticas de vehículos de motor registrados en circulación.
## 47
## Total Automóviles Camiones.para.pasajeros
## 1 4010430 3950042 60388
## 2 4406336 4341363 64973
## 3 4686130 4616897 69233
## 4 4797562 4726236 71326
## 5 5047043 4970526 76517
## 6 5360870 5281842 79028
## 7 5286295 5202922 83373
## 8 5420592 5336228 84364
## 9 5682964 5597735 85229
## 10 6093682 6003532 90150
## 11 6648825 6555550 93275
## 12 7047618 6950708 96910
## 13 7494357 7399178 95179
## 14 7801892 7715951 85941
## 15 7332309 7217732 114577
## 16 7590001 7469504 120497
## 17 7927797 7830864 96933
## 18 8528440 8402995 125445
## 19 9262652 9086209 176443
## 20 9783153 9582796 200357
## 21 10378575 10176179 202396
## 22 11625518 11351982 273536
## 23 12554275 12254910 299365
## 24 13050150 12742049 308101
## 25 13652596 13388011 264585
## 26 14569197 14300380 268817
## 27 16722002 16411813 310189
## 28 18018701 17696623 322078
## 29 19754229 19420942 333287
## 30 20856689 20519224 337465
## 31 21465511 21152773 312738
## 32 22701891 22374326 327565
## 33 23908143 23569623 338520
## 34 25167066 24819922 347144
## 35 25891628 25543908 347720
## 36 27265446 26907994 357452
## 37 29032067 28664295 367772
## 38 31359162 30958042 401120
## 39 32733646 32290067 443579
## 40 34057197 33603591 453606
## 41 34886784 34425695 461089
## 42 35913468 35460804 452664
## 43 NA NA NA
## 44 NA NA NA
## 45 NA NA NA
## 46 NA NA NA
## 47 NA NA NAEstas variables se eliminan, ya que, camiones y camionetas para carga y motocicletas no son el principal mercado de FORM, además de que los datos de sus variables no son significativas para el pronóstico porque sus valores son muy pequeños a comparación con las demás variables, por lo tanto, sus datos no impactan al análisis, de igual forma, se elimina la variable X y X.1 porque no tienen información relevante.
Eliminar renglones irrelevantes
vehiculos_circulacion2 <- vehiculos_circulacion1[-c(43,44,45,46,47),]
vehiculos_circulacion2## Año Total Automóviles Camiones.para.pasajeros
## 1 1980 4010430 3950042 60388
## 2 1981 4406336 4341363 64973
## 3 1982 4686130 4616897 69233
## 4 1983 4797562 4726236 71326
## 5 1984 5047043 4970526 76517
## 6 1985 5360870 5281842 79028
## 7 1986 5286295 5202922 83373
## 8 1987 5420592 5336228 84364
## 9 1988 5682964 5597735 85229
## 10 1989 6093682 6003532 90150
## 11 1990 6648825 6555550 93275
## 12 1991 7047618 6950708 96910
## 13 1992 7494357 7399178 95179
## 14 1993 7801892 7715951 85941
## 15 1994 7332309 7217732 114577
## 16 1995 7590001 7469504 120497
## 17 1996 7927797 7830864 96933
## 18 1997 8528440 8402995 125445
## 19 1998 9262652 9086209 176443
## 20 1999 9783153 9582796 200357
## 21 2000 10378575 10176179 202396
## 22 2001 11625518 11351982 273536
## 23 2002 12554275 12254910 299365
## 24 2003 13050150 12742049 308101
## 25 2004 13652596 13388011 264585
## 26 2005 14569197 14300380 268817
## 27 2006 16722002 16411813 310189
## 28 2007 18018701 17696623 322078
## 29 2008 19754229 19420942 333287
## 30 2009 20856689 20519224 337465
## 31 2010 21465511 21152773 312738
## 32 2011 22701891 22374326 327565
## 33 2012 23908143 23569623 338520
## 34 2013 25167066 24819922 347144
## 35 2014 25891628 25543908 347720
## 36 2015 27265446 26907994 357452
## 37 2016 29032067 28664295 367772
## 38 2017 31359162 30958042 401120
## 39 2018 32733646 32290067 443579
## 40 2019 34057197 33603591 453606
## 41 2020 34886784 34425695 461089
## 42 2021 35913468 35460804 452664summary(vehiculos_circulacion2)## Año Total Automóviles
## Length:42 Min. : 4010430 Min. : 3950042
## Class :character 1st Qu.: 6748523 1st Qu.: 6654340
## Mode :character Median :11002046 Median :10764080
## Mean :14899354 Mean :14673142
## 3rd Qu.:22392796 3rd Qu.:22068938
## Max. :35913468 Max. :35460804
## Camiones.para.pasajeros
## Min. : 60388
## 1st Qu.: 90931
## Median :233490
## Mean :226212
## 3rd Qu.:336420
## Max. :461089Se eliminan estos renglones, debido a que no tenían contenido, es decir, eran considerados NA´s.
Gráfica
plot(vehiculos_circulacion2$Año,vehiculos_circulacion2$Total, type="l",col="blue", lwd=1.5, xlab ="Año",ylab ="Unidades", main = "Vehiculos de motor en circulación registrados anualmente")
lines(vehiculos_circulacion2$Año,vehiculos_circulacion2$Automóviles,col="red",lty=3)
legend("topleft", legend=c("Total de vehiculos en circulación", "Automóviles en circulación"),
col=c("blue", "red"), lty = 1:2, cex=0.8)
Con este plot, se puede observar el comportamiento de las variables y la comparación a través de los años del total de vehiculos que están en circulación y de los automoviles.
También, se percibe que ambas líneas son muy similares, y están muy cerca una de la otra, por lo que se puede deducir que Automóviles ocupa el mayor porcentaje del total.
Por otro lado, la gráfica tiene una tendencia en su mayoría creciente y positiva, es decir, que cada año hay más automóviles en circulación.
Forecasting usando el Modelo autoregresivo
autoregressive_model <- arma(vehiculos_circulacion2$Total, order = c(1,0))## Warning in arma(vehiculos_circulacion2$Total, order = c(1, 0)): Hessian
## negative-semidefinitesummary(autoregressive_model <- arma(vehiculos_circulacion2$Total, order = c(1,0)))## Warning in arma(vehiculos_circulacion2$Total, order = c(1, 0)): Hessian
## negative-semidefinite## Warning in sqrt(diag(object$vcov)): NaNs produced
## Warning in sqrt(diag(object$vcov)): NaNs produced##
## Call:
## arma(x = vehiculos_circulacion2$Total, order = c(1, 0))
##
## Model:
## ARMA(1,0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -964598 -203485 -37324 133579 1366807
##
## Coefficient(s):
## Estimate Std. Error t value Pr(>|t|)
## ar1 1.043e+00 3.792e-03 275 <2e-16 ***
## intercept 1.595e+05 NaN NaN NaN
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Fit:
## sigma^2 estimated as 1.852e+11, Conditional Sum-of-Squares = 7.406257e+12, AIC = 1212.86autoregressive_model_forecast<-forecast(autoregressive_model$fitted,h=5,level=c(95))## Warning in ets(object, lambda = lambda, biasadj = biasadj,
## allow.multiplicative.trend = allow.multiplicative.trend, : Missing values
## encountered. Using longest contiguous portion of time seriesautoregressive_model_forecast## Point Forecast Lo 95 Hi 95
## 43 37884281 35240406 40528155
## 44 39222087 34802632 43641541
## 45 40559893 34284299 46835486
## 46 41897698 33625820 50169577
## 47 43235504 32811356 53659653Lo que se observa en el modelo autoregresivo de los vehículos de motor en circulación y al pronóstico para los siguientes años, es que como se explico anteriormente, tiene una tendencia positiva, por ejemplo, en el siguiente año se esperan 37,884,281 vehículos en circulación con un 95% de confianza, y los rangos pueden ir de 35,240,406 hasta 40,528,155.
En el segundo año, se pronostican 39,222,087, de igual manera con un 95% de confianza, y por último, en el tercer año, se preveen 40,559,893 vehículos en circulación.
Gráfica
plot(autoregressive_model_forecast)
Con este plot, se puede interpretar de manera más visual lo que se explico anteriormente, y para explicarlo con mayor precisión, es necesario saber que la línea negra corresponde a los datos que se tienen en la base de datos, mientras que la línea azul significa el resultado de los datos obtenidos a través del modelo autoregresivo, y se puede observar que va hacia arriba la tendencia.
Por otro lado, la línea azul tiene un sombreado gris que indica los valores de “low” y “high” ante el 95% de confianza.
Forecasting usando Moving Average Model
mam_circulacion <- arma(vehiculos_circulacion2$Total,order = c(1,1))## Warning in arma(vehiculos_circulacion2$Total, order = c(1, 1)): Hessian
## negative-semidefinitesummary(mam_circulacion <- arma(vehiculos_circulacion2$Total,order = c(1,1)))## Warning in arma(vehiculos_circulacion2$Total, order = c(1, 1)): Hessian
## negative-semidefinite## Warning in sqrt(diag(object$vcov)): NaNs produced
## Warning in sqrt(diag(object$vcov)): NaNs produced##
## Call:
## arma(x = vehiculos_circulacion2$Total, order = c(1, 1))
##
## Model:
## ARMA(1,1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -907766 -184323 -41323 113291 1305470
##
## Coefficient(s):
## Estimate Std. Error t value Pr(>|t|)
## ar1 1.042e+00 4.680e-03 222.585 < 2e-16 ***
## ma1 3.442e-01 1.237e-01 2.783 0.00539 **
## intercept 1.767e+05 NaN NaN NaN
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Fit:
## sigma^2 estimated as 1.598e+11, Conditional Sum-of-Squares = 6.391897e+12, AIC = 1208.67mam_circulacion_forecast <- forecast(mam_circulacion$fitted,h=5,level=c(95))## Warning in ets(object, lambda = lambda, biasadj = biasadj,
## allow.multiplicative.trend = allow.multiplicative.trend, : Missing values
## encountered. Using longest contiguous portion of time seriesmam_circulacion_forecast## Point Forecast Lo 95 Hi 95
## 43 37635019 34318781 40951258
## 44 38948870 33832084 44065655
## 45 40262720 33315250 47210190
## 46 41576570 32704146 50448994
## 47 42890421 31977035 53803806A través de este código, podemos deducir, que buscamos un modelo no estacionario, y que esta en constante movimiento, y al igual que el modelo autoregresivo, se puede observar una tendencia positiva, y muy similar a ella, así mismo, cuenta con un 95% de confianza.
Por otro lado, los vehículos circulando durante el primer periodo de tiempo se calcula que son 37,635,019, seguido por 38,948,870 y 40,262,720.
Gráfica
plot(mam_circulacion_forecast)
Aquí se puede interpretar gráficamente lo explicado en el punto anterior, y se obseva como la tendencia es positiva, de igual forma, tiene “lows” y “highs”.
Desempeño de 1 de las áreas de la empresa FORM para los siguientes 3 periodos de tiempo
Producción FORM
Entender la base de datos
summary(produccion)## fecha cliente piezas_prog tmo_min
## Length:3985 Length:3985 Min. : 0.0 Min. : 0.00
## Class :character Class :character 1st Qu.: 0.0 1st Qu.: 15.00
## Mode :character Mode :character Median : 51.0 Median : 20.00
## Mean : 102.1 Mean : 21.89
## 3rd Qu.: 184.0 3rd Qu.: 25.00
## Max. :1263.0 Max. :150.00
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3985 Min. : 0.0 Min. : 0.0000
## Class :character 1st Qu.: 0.0 1st Qu.: 1.0000
## Mode :character Median : 51.0 Median : 1.0000
## Mean : 102.1 Mean : 0.8754
## 3rd Qu.: 184.0 3rd Qu.: 1.0000
## Max. :1263.0 Max. :22.0000str(produccion)## 'data.frame': 3985 obs. of 7 variables:
## $ fecha : chr "16/07/2022" "22/07/2022" "28/07/2022" "12/08/2022" ...
## $ cliente : chr "TRMX" "STABILUS 3" "STABILUS 3" "TRMX" ...
## $ piezas_prog : int 3 2 2 1 1 1 0 2 5 5 ...
## $ tmo_min : int 10 10 10 10 10 10 10 10 10 10 ...
## $ estacion_arranque : chr "C1Y2" "C1Y2" "C1Y2" "C1" ...
## $ laminas_procesadas: int 3 2 2 1 1 1 0 2 5 5 ...
## $ tiempo_calidad : num 1 1 2 1 1 1 0 0 1 1 ...Limpieza de datos
Eliminar NA´s
produccion$cliente <- as.factor(produccion$cliente)
str(produccion)## 'data.frame': 3985 obs. of 7 variables:
## $ fecha : chr "16/07/2022" "22/07/2022" "28/07/2022" "12/08/2022" ...
## $ cliente : Factor w/ 13 levels "DENSO","HANON SYSTEMS",..: 9 7 7 9 9 1 3 10 10 6 ...
## $ piezas_prog : int 3 2 2 1 1 1 0 2 5 5 ...
## $ tmo_min : int 10 10 10 10 10 10 10 10 10 10 ...
## $ estacion_arranque : chr "C1Y2" "C1Y2" "C1Y2" "C1" ...
## $ laminas_procesadas: int 3 2 2 1 1 1 0 2 5 5 ...
## $ tiempo_calidad : num 1 1 2 1 1 1 0 0 1 1 ...summary(produccion)## fecha cliente piezas_prog tmo_min
## Length:3985 STABILUS 1:1343 Min. : 0.0 Min. : 0.00
## Class :character TRMX : 686 1st Qu.: 0.0 1st Qu.: 15.00
## Mode :character STABILUS 3: 599 Median : 51.0 Median : 20.00
## YANFENG : 431 Mean : 102.1 Mean : 21.89
## DENSO : 399 3rd Qu.: 184.0 3rd Qu.: 25.00
## (Other) : 526 Max. :1263.0 Max. :150.00
## NA's : 1
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3985 Min. : 0.0 Min. : 0.0000
## Class :character 1st Qu.: 0.0 1st Qu.: 1.0000
## Mode :character Median : 51.0 Median : 1.0000
## Mean : 102.1 Mean : 0.8754
## 3rd Qu.: 184.0 3rd Qu.: 1.0000
## Max. :1263.0 Max. :22.0000
## produccion1 <- produccion
produccion1<- produccion1[-c(624),]
summary (produccion1)## fecha cliente piezas_prog tmo_min
## Length:3984 STABILUS 1:1343 Min. : 0.0 Min. : 0.00
## Class :character TRMX : 686 1st Qu.: 0.0 1st Qu.: 15.00
## Mode :character STABILUS 3: 599 Median : 51.0 Median : 20.00
## YANFENG : 431 Mean : 102.1 Mean : 21.89
## DENSO : 399 3rd Qu.: 184.0 3rd Qu.: 25.00
## VARROC : 269 Max. :1263.0 Max. :150.00
## (Other) : 257
## estacion_arranque laminas_procesadas tiempo_calidad
## Length:3984 Min. : 0.0 Min. : 0.0000
## Class :character 1st Qu.: 0.0 1st Qu.: 1.0000
## Mode :character Median : 51.0 Median : 1.0000
## Mean : 102.1 Mean : 0.8754
## 3rd Qu.: 184.0 3rd Qu.: 1.0000
## Max. :1263.0 Max. :22.0000
## Se eliminaron los NA´s que no tenían relevancia, y se reemplazaron otros desde la base de datos con el nombre “sin registro”, ya que, se consideró que era importante quedarse con estos datos para visualizar mejor los datos.
Forecasting usando el Modelo autoregresivo
autoregressive_model_produccion <- arma(produccion1$piezas_prog, order = c(1,0))
summary(autoregressive_model_produccion <- arma(produccion1$piezas_prog, order = c(1,0)))##
## Call:
## arma(x = produccion1$piezas_prog, order = c(1, 0))
##
## Model:
## ARMA(1,0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -645.89 -52.84 -30.07 50.72 1191.16
##
## Coefficient(s):
## Estimate Std. Error t value Pr(>|t|)
## ar1 0.48255 0.01388 34.77 <2e-16 ***
## intercept 52.84244 2.34226 22.56 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Fit:
## sigma^2 estimated as 13861, Conditional Sum-of-Squares = 55195736, AIC = 49304.94autoregressive_model_produccion_forecast<-forecast(autoregressive_model_produccion$fitted,h=5,level=c(95))## Warning in ets(object, lambda = lambda, biasadj = biasadj,
## allow.multiplicative.trend = allow.multiplicative.trend, : Missing values
## encountered. Using longest contiguous portion of time seriesautoregressive_model_produccion_forecast## Point Forecast Lo 95 Hi 95
## 3985 82.70478 3.234460 162.1751
## 3986 82.70478 3.191276 162.2183
## 3987 82.70478 3.148106 162.2614
## 3988 82.70478 3.104950 162.3046
## 3989 82.70478 3.061809 162.3477En el caso de este modelo autoregresivo, ambos coeficientes son de gran relevancia para la base de datos, ya que ambas tienen los 3 asteriscos, por otro lado, a la hora de hacer el pronóstico, es notorio que se estima que quedará de la misma forma, es decir, con las mismas piezas programadas, sin embargo se puede ver como mientras “Low” disminuye, “high” aumenta.
Gráfica
plot(autoregressive_model_produccion_forecast)
Como se puede ver en el plot, no se espera una mejora para este modelo, y se pueden ver los forecast, el low y el high, con 95% de confianza.
Forecasting usando Moving Average Model
mam_produccion <- arma(produccion1$piezas_prog,order = c(1,1))
summary(mam_produccion <- arma(produccion1$piezas_prog,order = c(1,1)))##
## Call:
## arma(x = produccion1$piezas_prog, order = c(1, 1))
##
## Model:
## ARMA(1,1)
##
## Residuals:
## Min 1Q Median 3Q Max
## -791.67 -53.47 -22.33 37.73 1208.91
##
## Coefficient(s):
## Estimate Std. Error t value Pr(>|t|)
## ar1 0.83882 0.02370 35.400 < 2e-16 ***
## ma1 -0.51985 0.04204 -12.365 < 2e-16 ***
## intercept 16.48077 2.57279 6.406 1.5e-10 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Fit:
## sigma^2 estimated as 13444, Conditional Sum-of-Squares = 53534365, AIC = 49185.18mam_produccion_forecast <- forecast(mam_produccion$fitted,h=5,level=c(95))## Warning in ets(object, lambda = lambda, biasadj = biasadj,
## allow.multiplicative.trend = allow.multiplicative.trend, : Missing values
## encountered. Using longest contiguous portion of time seriesmam_produccion_forecast## Point Forecast Lo 95 Hi 95
## 3985 165.7268 90.147513 241.3062
## 3986 165.7268 59.600542 271.8531
## 3987 165.7268 36.060547 295.3931
## 3988 165.7268 16.181181 315.2725
## 3989 165.7268 -1.349372 332.8031El comportamiento de este modelo indica que no se pronostican cambios a lo largo de los proximos años, con un 95% de confianza, pero si se observa en lows, el cambio de un periodo de tiempo a otro es algo drastico, y va decreciendo, mientras que en high, el comportamiento es variado, ya que, a veces sube y a veces baja sin una tendencia a seguir.
Gráfica
plot(mam_produccion_forecast)
Se puede observar que no existe una tendencia específica.
Tendencia del desempeño durante el periodo de análisis y los siguientes 3 periodos de tiempo: En cuanto a los datos externos, es decir, a la industria automotriz, el modelo de estimación de pronóstico indica que la tendencia es positiva, lo cual quiere decir, que cada año se pronóstica que haya más vehículos en circulación con una confianza del 95%. Los datos anteriores, benefician a FORM, deduciendo que si hay más autos en circulación, hay más producción, y por lo tanto, más pedidos y clientes, sin embargo, en la base de datos directamente de FORM, se observa que en algunos casos, no existe una tendencia, y que se esperan como pronóstico las mismas piezas programadas, por lo tanto, habría que tener una estrategia para que más gente llegue a conocer y a ser parte de los clientes de la empresa.
Predicción del Desempeño de la Industria Automotriz
Exportación y ventas de vehículos ligeros
Entender la base de datos
summary(bd_prediccion)## Año Mes Venta Producción
## Min. :2006 Min. : 1.00 Min. : 34927 Min. : 3722
## 1st Qu.:2010 1st Qu.: 3.00 1st Qu.: 78543 1st Qu.:189031
## Median :2014 Median : 6.00 Median : 88580 Median :248433
## Mean :2014 Mean : 6.42 Mean : 94178 Mean :241511
## 3rd Qu.:2018 3rd Qu.: 9.00 3rd Qu.:110134 3rd Qu.:292709
## Max. :2022 Max. :12.00 Max. :192741 Max. :382110
## NA's :2 NA's :2 NA's :2 NA's :2
## Exportación Tipo.de.cambio Inflación porcentaje_ocu
## Min. : 15139 Min. :10.09 Min. :-0.250 Min. :93.58
## 1st Qu.:153219 1st Qu.:12.66 1st Qu.: 0.815 1st Qu.:95.06
## Median :209160 Median :13.56 Median : 1.480 Median :95.88
## Mean :201664 Mean :15.48 Mean : 1.951 Mean :95.76
## 3rd Qu.:243900 3rd Qu.:19.10 3rd Qu.: 2.895 3rd Qu.:96.47
## Max. :327454 Max. :24.24 Max. : 7.360 Max. :97.16
## NA's :2 NA's :2 NA's :2 NA's :2
## porcentaje_desocu conf_consumidor
## Min. :2.840 Min. :28.67
## 1st Qu.:3.527 1st Qu.:36.69
## Median :4.125 Median :38.47
## Mean :4.244 Mean :39.15
## 3rd Qu.:4.940 3rd Qu.:42.59
## Max. :6.420 Max. :47.83
## NA's :2 NA's :2str(bd_prediccion)## 'data.frame': 202 obs. of 10 variables:
## $ Año : int 2006 2006 2006 2006 2006 2006 2006 2006 2006 2006 ...
## $ Mes : int 1 2 3 4 5 6 7 8 9 10 ...
## $ Venta : int 96227 89079 96871 77879 86462 87084 83069 90937 92083 97469 ...
## $ Producción : int 155291 166830 192643 132212 171557 194327 118602 179527 164577 179897 ...
## $ Exportación : int 112165 121001 153877 115798 131578 156008 85752 136114 125918 132470 ...
## $ Tipo.de.cambio : num 10.6 10.5 10.7 11 11.1 ...
## $ Inflación : num 0.59 0.74 0.87 1.01 0.56 0.65 0.93 1.44 2.47 2.91 ...
## $ porcentaje_ocu : num 96.5 96.2 96.7 96.8 97.2 ...
## $ porcentaje_desocu: num 3.48 3.75 3.31 3.2 2.84 3.26 4.01 3.87 4 3.82 ...
## $ conf_consumidor : num 43.9 43.9 45.6 44.8 44.7 ...Limpieza de datos
Eliminar columnas irrelevantes (Producción)
bd_prediccion1 <- subset(bd_prediccion, select = -c (Producción))
bd_prediccion1## Año Mes Venta Exportación Tipo.de.cambio Inflación porcentaje_ocu
## 1 2006 1 96227 112165 10.56964 0.59 96.52
## 2 2006 2 89079 121001 10.48426 0.74 96.25
## 3 2006 3 96871 153877 10.69772 0.87 96.69
## 4 2006 4 77879 115798 11.02994 1.01 96.80
## 5 2006 5 86462 131578 11.07152 0.56 97.16
## 6 2006 6 87084 156008 11.38702 0.65 96.74
## 7 2006 7 83069 85752 11.03922 0.93 95.99
## 8 2006 8 90937 136114 10.87617 1.44 96.13
## 9 2006 9 92083 125918 10.97558 2.47 96.00
## 10 2006 10 97469 132470 10.91245 2.91 96.18
## 11 2006 11 102201 152396 10.87905 3.45 96.50
## 12 2006 12 140375 113718 10.87084 4.05 96.68
## 13 2007 1 97675 88915 10.93192 0.52 95.95
## 14 2007 2 86060 111084 10.98198 0.80 95.95
## 15 2007 3 96487 138877 11.12237 1.02 96.27
## 16 2007 4 75020 110462 10.99081 0.96 96.49
## 17 2007 5 84756 140387 10.83582 0.46 96.85
## 18 2007 6 80462 153243 10.83519 0.58 96.72
## 19 2007 7 83105 129581 10.79959 1.01 96.21
## 20 2007 8 88573 168210 11.04243 1.42 96.17
## 21 2007 9 86547 156237 11.03762 2.21 96.24
## 22 2007 10 97182 144970 10.84063 2.61 96.23
## 23 2007 11 97694 149964 10.85821 3.33 96.65
## 24 2007 12 126329 121383 10.85206 3.76 96.89
## 25 2008 1 96846 118416 10.91741 0.46 95.88
## 26 2008 2 86997 140501 10.78461 0.76 96.11
## 27 2008 3 80119 129405 10.73085 1.49 96.39
## 28 2008 4 83106 144234 10.52556 1.72 96.52
## 29 2008 5 85827 150514 10.45804 1.61 96.71
## 30 2008 6 81424 153345 10.32862 2.03 96.63
## 31 2008 7 85324 122144 10.23761 2.60 95.87
## 32 2008 8 86119 143464 10.09196 3.20 95.94
## 33 2008 9 76620 144454 10.60434 3.90 95.86
## 34 2008 10 83307 167497 12.48947 4.61 95.83
## 35 2008 11 78555 138439 13.09469 5.80 95.68
## 36 2008 12 101300 109206 13.37363 6.53 95.98
## 37 2009 1 69664 51061 13.86394 0.23 94.99
## 38 2009 2 61579 77833 14.50219 0.45 94.76
## 39 2009 3 64242 101830 14.72083 1.03 95.34
## 40 2009 4 51395 85121 13.47903 1.38 94.94
## 41 2009 5 53440 83910 13.25065 1.09 94.77
## 42 2009 6 55974 84934 13.34374 1.28 95.02
## 43 2009 7 56443 90872 13.36679 1.55 94.18
## 44 2009 8 58926 111273 13.01394 1.79 93.85
## 45 2009 9 58505 117433 13.40757 2.30 93.58
## 46 2009 10 67882 145761 13.25259 2.61 94.33
## 47 2009 11 64914 134873 13.13145 3.15 94.89
## 48 2009 12 91961 138432 12.85556 3.57 95.27
## 49 2010 1 64064 114193 12.83263 1.09 94.24
## 50 2010 2 59518 153148 12.96185 1.67 94.72
## 51 2010 3 65414 163641 12.60465 2.39 95.26
## 52 2010 4 60432 133406 12.26208 2.07 94.65
## 53 2010 5 61632 145909 12.68247 1.42 95.00
## 54 2010 6 59910 177575 12.71818 1.39 95.08
## 55 2010 7 61960 143521 12.83341 1.61 94.41
## 56 2010 8 66931 175904 12.72952 1.89 94.58
## 57 2010 9 65934 169507 12.86421 2.43 94.34
## 58 2010 10 74095 166931 12.45569 3.06 94.52
## 59 2010 11 75582 168226 12.31381 3.89 94.83
## 60 2010 12 104941 147551 12.40058 4.40 95.06
## 61 2011 1 68767 165045 12.15321 0.49 94.66
## 62 2011 2 66990 155808 12.07712 0.86 94.66
## 63 2011 3 75125 192783 12.01917 1.06 95.36
## 64 2011 4 65246 141334 11.75536 1.05 94.87
## 65 2011 5 68634 176951 11.65234 0.30 94.82
## 66 2011 6 68366 188223 11.80157 0.30 94.60
## 67 2011 7 68533 196835 11.67069 0.78 94.52
## 68 2011 8 75681 170086 12.20000 0.94 94.29
## 69 2011 9 73998 193590 13.08912 1.19 94.57
## 70 2011 10 75748 192244 13.46868 1.87 95.01
## 71 2011 11 83107 199665 13.63712 2.97 95.04
## 72 2011 12 115698 171319 13.74813 3.82 95.49
## 73 2012 1 75297 156417 13.48802 0.71 95.12
## 74 2012 2 74704 197600 12.80356 0.91 94.72
## 75 2012 3 83574 226555 12.75781 0.97 95.48
## 76 2012 4 69890 180545 13.02576 0.65 95.14
## 77 2012 5 80268 184302 13.53816 0.34 95.33
## 78 2012 6 78508 229089 13.97611 0.80 95.25
## 79 2012 7 76378 208151 13.39195 1.36 95.01
## 80 2012 8 83326 188392 13.18333 1.67 94.67
## 81 2012 9 79961 193350 13.00449 2.12 95.09
## 82 2012 10 83172 216576 12.86915 2.63 94.97
## 83 2012 11 91966 219864 12.86915 3.33 94.95
## 84 2012 12 110998 154724 12.87298 3.57 95.60
## 85 2013 1 84403 178562 12.71282 0.40 94.59
## 86 2013 2 80285 175338 12.71638 0.90 95.25
## 87 2013 3 82860 204475 12.40242 1.64 95.52
## 88 2013 4 83647 185548 12.21560 1.70 95.04
## 89 2013 5 87638 191205 12.23945 1.37 95.09
## 90 2013 6 83858 225753 12.95020 1.30 95.00
## 91 2013 7 86760 192940 12.76920 1.27 94.87
## 92 2013 8 88586 226893 12.88348 1.56 94.82
## 93 2013 9 78555 215962 13.08974 1.94 94.69
## 94 2013 10 88416 240316 13.02170 2.43 94.99
## 95 2013 11 100571 224873 13.06409 3.38 95.52
## 96 2013 12 119519 161208 13.00105 3.97 95.73
## 97 2014 1 85614 177928 13.20104 0.89 94.93
## 98 2014 2 80037 197504 13.29067 1.15 95.34
## 99 2014 3 85767 230772 13.21485 1.43 95.20
## 100 2014 4 76941 202328 13.07712 1.24 95.15
## 101 2014 5 88388 234629 12.95623 0.91 95.06
## 102 2014 6 84207 230410 12.97570 1.09 95.18
## 103 2014 7 96366 231934 12.97300 1.37 94.53
## 104 2014 8 103994 226757 13.15002 1.73 94.81
## 105 2014 9 89313 220239 13.21131 2.18 94.91
## 106 2014 10 101090 257382 13.47454 2.74 95.22
## 107 2014 11 111837 237923 13.59030 3.57 95.47
## 108 2014 12 133411 195091 14.45304 4.08 96.24
## 109 2015 1 103805 204907 14.67395 -0.09 95.49
## 110 2015 2 97659 222351 14.90437 0.10 95.67
## 111 2015 3 105034 261256 15.20997 0.51 96.14
## 112 2015 4 94953 233515 15.22746 0.25 95.69
## 113 2015 5 102156 240709 15.25361 -0.25 95.55
## 114 2015 6 107097 242720 15.45056 -0.09 95.59
## 115 2015 7 111863 226511 15.87623 0.06 95.28
## 116 2015 8 112307 234668 16.50888 0.27 95.32
## 117 2015 9 111705 216587 16.83229 0.65 95.50
## 118 2015 10 120214 245224 16.59932 1.16 95.45
## 119 2015 11 126750 223797 16.63219 1.72 96.04
## 120 2015 12 160901 206651 17.01278 2.13 96.04
## 121 2016 1 119833 213244 17.94565 0.38 95.74
## 122 2016 2 111126 219670 18.45920 0.82 95.86
## 123 2016 3 117252 224184 17.67208 0.97 96.25
## 124 2016 4 118754 197020 17.48096 0.65 96.20
## 125 2016 5 121879 226240 18.05380 0.20 95.99
## 126 2016 6 134913 247005 18.62127 0.31 96.08
## 127 2016 7 132109 225530 18.58811 0.57 96.00
## 128 2016 8 134388 262673 18.46011 0.86 96.02
## 129 2016 9 131888 235612 19.11921 1.47 95.88
## 130 2016 10 137503 255115 18.97319 2.09 96.33
## 131 2016 11 154779 245330 19.96946 2.89 96.50
## 132 2016 12 192741 216645 20.54282 3.36 96.62
## 133 2017 1 123447 219061 21.39550 1.70 96.40
## 134 2017 2 118193 248288 20.35246 2.29 96.66
## 135 2017 3 137245 305403 19.41648 2.92 96.81
## 136 2017 4 114938 240141 18.78122 3.04 96.53
## 137 2017 5 123429 269067 18.79971 2.92 96.45
## 138 2017 6 127752 287979 18.20815 3.18 96.71
## 139 2017 7 122678 258557 17.85459 3.57 96.58
## 140 2017 8 125985 276108 17.80650 4.08 96.48
## 141 2017 9 116716 286400 17.80554 4.41 96.41
## 142 2017 10 123602 303514 18.71362 5.06 96.49
## 143 2017 11 141724 290569 18.98973 6.15 96.59
## 144 2017 12 159234 268772 19.10129 6.77 96.85
## 145 2018 1 109445 231088 19.02896 0.53 96.64
## 146 2018 2 109846 271228 18.61594 0.91 96.83
## 147 2018 3 119127 317398 18.65489 1.24 97.06
## 148 2018 4 109748 271048 18.34659 0.90 96.61
## 149 2018 5 115155 288659 19.45515 0.73 96.78
## 150 2018 6 120298 315130 20.31281 1.12 96.63
## 151 2018 7 115047 247367 19.09664 1.66 96.53
## 152 2018 8 119487 322779 18.80423 2.26 96.54
## 153 2018 9 114888 306009 19.03592 2.69 96.42
## 154 2018 10 117602 313471 19.09212 3.22 96.73
## 155 2018 11 134143 291018 20.25495 4.10 96.75
## 156 2018 12 142300 275962 20.15294 4.83 96.64
## 157 2019 1 111514 243652 19.22744 0.09 96.44
## 158 2019 2 104009 273173 19.18334 0.06 96.71
## 159 2019 3 117529 325703 19.24878 0.44 96.78
## 160 2019 4 98366 288756 19.01630 0.50 96.50
## 161 2019 5 102422 309017 19.09191 0.21 96.50
## 162 2019 6 106782 327454 19.26678 0.27 96.43
## 163 2019 7 106104 276818 19.06189 0.65 96.26
## 164 2019 8 108074 286075 19.58659 0.63 96.29
## 165 2019 9 100757 286806 19.60990 0.89 96.22
## 166 2019 10 107110 259158 19.36886 1.44 96.31
## 167 2019 11 124804 274845 19.30748 2.26 96.58
## 168 2019 12 130460 236848 19.16932 2.83 97.09
## 169 2020 1 104852 238749 18.81445 0.48 96.22
## 170 2020 2 104338 273634 18.77705 0.90 96.47
## 171 2020 3 87541 295199 21.97384 0.85 97.09
## 172 2020 4 34927 31183 24.23988 -0.17 95.31
## 173 2020 5 42034 15139 23.58032 0.22 95.81
## 174 2020 6 62861 198084 22.26918 0.76 94.51
## 175 2020 7 72921 264520 22.48030 1.43 94.65
## 176 2020 8 77120 264478 22.23107 1.82 94.74
## 177 2020 9 77808 257562 21.60516 2.06 94.87
## 178 2020 10 84351 280474 21.38085 2.68 95.29
## 179 2020 11 95707 287703 20.53330 2.76 95.65
## 180 2020 12 105603 275081 19.97817 3.15 96.21
## 181 2021 1 81657 223533 19.90262 0.86 95.30
## 182 2021 2 82863 213987 20.29248 1.50 95.60
## 183 2021 3 96319 256119 20.76205 2.34 96.13
## 184 2021 4 84287 234584 20.10944 2.67 95.35
## 185 2021 5 86710 242020 20.05320 2.88 96.01
## 186 2021 6 88688 234394 20.04272 3.43 95.98
## 187 2021 7 82157 202021 19.98552 4.04 95.62
## 188 2021 8 78235 212687 20.05125 4.24 95.67
## 189 2021 9 76930 195294 19.99092 4.88 95.82
## 190 2021 10 76640 224535 20.47244 5.76 96.05
## 191 2021 11 82829 240341 20.78256 6.97 96.34
## 192 2021 12 97420 227465 20.98530 7.36 96.49
## 193 2022 1 78585 216630 20.48354 0.59 96.29
## 194 2022 2 79598 201868 20.48437 1.43 96.26
## 195 2022 3 95199 262494 20.60089 2.43 97.03
## 196 2022 4 83459 241286 20.04452 2.98 96.97
## 197 2022 5 91215 244643 20.11331 3.17 96.73
## 198 2022 6 90368 237674 19.96650 4.04 96.65
## 199 2022 7 83137 210170 20.53081 4.81 96.57
## 200 2022 8 91124 248704 20.12613 5.54 96.47
## 201 NA NA NA NA NA NA NA
## 202 NA NA NA NA NA NA NA
## porcentaje_desocu conf_consumidor
## 1 3.48 43.9415
## 2 3.75 43.9100
## 3 3.31 45.6029
## 4 3.20 44.7854
## 5 2.84 44.6508
## 6 3.26 44.2339
## 7 4.01 44.8674
## 8 3.87 45.0383
## 9 4.00 45.0604
## 10 3.82 44.3016
## 11 3.50 43.1883
## 12 3.32 44.7871
## 13 4.05 42.7412
## 14 4.05 42.3778
## 15 3.73 43.5677
## 16 3.51 43.4415
## 17 3.15 43.7534
## 18 3.28 43.0694
## 19 3.79 42.9629
## 20 3.83 43.9863
## 21 3.76 43.0238
## 22 3.77 41.2666
## 23 3.35 40.8568
## 24 3.11 42.8202
## 25 4.12 42.1822
## 26 3.89 41.2208
## 27 3.61 41.8964
## 28 3.48 40.1531
## 29 3.29 38.9120
## 30 3.37 37.6903
## 31 4.13 36.7035
## 32 4.06 37.2616
## 33 4.14 36.6558
## 34 4.17 34.2078
## 35 4.32 34.9500
## 36 4.02 34.9987
## 37 5.01 34.4084
## 38 5.24 33.4023
## 39 4.66 33.4728
## 40 5.06 34.6003
## 41 5.23 33.1933
## 42 4.98 34.2256
## 43 5.82 36.0502
## 44 6.15 34.5306
## 45 6.42 34.4993
## 46 5.67 32.6096
## 47 5.11 33.1707
## 48 4.73 33.9865
## 49 5.76 34.8020
## 50 5.28 34.2586
## 51 4.74 34.6691
## 52 5.35 35.0361
## 53 5.00 35.5938
## 54 4.92 36.7799
## 55 5.59 36.9279
## 56 5.42 37.2006
## 57 5.66 38.3303
## 58 5.48 37.4086
## 59 5.17 37.1774
## 60 4.94 38.1767
## 61 5.34 38.4624
## 62 5.34 38.4413
## 63 4.64 38.3233
## 64 5.13 37.6265
## 65 5.18 37.3597
## 66 5.40 38.7674
## 67 5.48 39.7537
## 68 5.71 38.9023
## 69 5.43 38.4823
## 70 4.99 37.7094
## 71 4.96 37.4238
## 72 4.51 37.7149
## 73 4.88 39.3604
## 74 5.28 38.9804
## 75 4.52 38.8750
## 76 4.86 40.2245
## 77 4.67 39.7323
## 78 4.75 39.7133
## 79 4.99 41.1478
## 80 5.33 40.7832
## 81 4.91 39.3550
## 82 5.03 39.6293
## 83 5.05 39.1214
## 84 4.40 41.1395
## 85 5.41 41.6134
## 86 4.75 39.6882
## 87 4.48 39.9339
## 88 4.96 39.8361
## 89 4.91 39.4471
## 90 5.00 38.7706
## 91 5.13 40.6562
## 92 5.18 40.5308
## 93 5.31 39.1825
## 94 5.01 38.0775
## 95 4.48 36.9465
## 96 4.27 37.3707
## 97 5.07 35.5508
## 98 4.66 35.7346
## 99 4.80 37.1351
## 100 4.85 37.6101
## 101 4.94 37.7513
## 102 4.82 37.9049
## 103 5.47 37.5518
## 104 5.19 37.4502
## 105 5.09 38.2199
## 106 4.78 37.6935
## 107 4.53 38.4760
## 108 3.76 38.6914
## 109 4.51 38.0625
## 110 4.33 37.4911
## 111 3.86 38.5052
## 112 4.31 37.8429
## 113 4.45 38.0317
## 114 4.41 39.1119
## 115 4.72 38.1319
## 116 4.68 37.3836
## 117 4.50 37.4490
## 118 4.55 37.8131
## 119 3.96 38.1829
## 120 3.96 38.3685
## 121 4.26 38.1815
## 122 4.14 36.7321
## 123 3.75 36.8144
## 124 3.80 36.7139
## 125 4.01 37.4848
## 126 3.92 38.3491
## 127 4.00 36.5060
## 128 3.98 35.6554
## 129 4.12 34.7550
## 130 3.67 35.0319
## 131 3.50 34.8752
## 132 3.38 35.4784
## 133 3.60 28.6679
## 134 3.34 31.5156
## 135 3.19 33.7951
## 136 3.47 34.9345
## 137 3.55 35.8733
## 138 3.29 36.0104
## 139 3.42 36.4886
## 140 3.52 36.5055
## 141 3.59 36.7879
## 142 3.51 36.4370
## 143 3.41 36.7168
## 144 3.15 36.3155
## 145 3.36 34.8018
## 146 3.17 34.1893
## 147 2.94 34.3367
## 148 3.39 35.6116
## 149 3.22 36.6479
## 150 3.37 37.1483
## 151 3.47 43.3411
## 152 3.46 43.0057
## 153 3.58 42.1327
## 154 3.27 42.5330
## 155 3.25 41.6750
## 156 3.36 44.8654
## 157 3.56 45.9299
## 158 3.29 47.8261
## 159 3.22 46.3411
## 160 3.50 45.4850
## 161 3.50 44.3235
## 162 3.57 43.6658
## 163 3.74 43.3177
## 164 3.71 43.8192
## 165 3.78 45.2995
## 166 3.69 44.0597
## 167 3.42 43.8407
## 168 2.91 43.7574
## 169 3.78 44.1205
## 170 3.53 43.3299
## 171 2.91 42.0593
## 172 4.69 32.2235
## 173 4.19 31.0682
## 174 5.49 31.9572
## 175 5.35 34.4173
## 176 5.26 35.0648
## 177 5.13 36.2820
## 178 4.71 37.8912
## 179 4.35 37.0767
## 180 3.79 38.7487
## 181 4.70 39.2114
## 182 4.40 38.6401
## 183 3.87 40.5816
## 184 4.65 42.5091
## 185 3.99 42.4227
## 186 4.02 44.3477
## 187 4.38 44.2934
## 188 4.33 42.4746
## 189 4.18 43.3421
## 190 3.95 43.8431
## 191 3.66 45.9354
## 192 3.51 44.8964
## 193 3.71 43.5909
## 194 3.74 42.9401
## 195 2.97 43.5603
## 196 3.03 44.3017
## 197 3.27 43.7823
## 198 3.35 43.2086
## 199 3.43 41.2699
## 200 3.53 40.2979
## 201 NA NA
## 202 NA NAEsta columna se eliminará porque solo se usarán como variables dependientes Ventas y Exportación, y como variables independientes la confianza del consumidor, el tipo de cambio, la inflación, el porcentaje de personas ocupadas, y el porcentaje de personas desocupadas, es decir, sin trabajo.
Eliminar renglones irrelevantes
bd_prediccion2 <- bd_prediccion1[-c(201, 202),]
bd_prediccion2## Año Mes Venta Exportación Tipo.de.cambio Inflación porcentaje_ocu
## 1 2006 1 96227 112165 10.56964 0.59 96.52
## 2 2006 2 89079 121001 10.48426 0.74 96.25
## 3 2006 3 96871 153877 10.69772 0.87 96.69
## 4 2006 4 77879 115798 11.02994 1.01 96.80
## 5 2006 5 86462 131578 11.07152 0.56 97.16
## 6 2006 6 87084 156008 11.38702 0.65 96.74
## 7 2006 7 83069 85752 11.03922 0.93 95.99
## 8 2006 8 90937 136114 10.87617 1.44 96.13
## 9 2006 9 92083 125918 10.97558 2.47 96.00
## 10 2006 10 97469 132470 10.91245 2.91 96.18
## 11 2006 11 102201 152396 10.87905 3.45 96.50
## 12 2006 12 140375 113718 10.87084 4.05 96.68
## 13 2007 1 97675 88915 10.93192 0.52 95.95
## 14 2007 2 86060 111084 10.98198 0.80 95.95
## 15 2007 3 96487 138877 11.12237 1.02 96.27
## 16 2007 4 75020 110462 10.99081 0.96 96.49
## 17 2007 5 84756 140387 10.83582 0.46 96.85
## 18 2007 6 80462 153243 10.83519 0.58 96.72
## 19 2007 7 83105 129581 10.79959 1.01 96.21
## 20 2007 8 88573 168210 11.04243 1.42 96.17
## 21 2007 9 86547 156237 11.03762 2.21 96.24
## 22 2007 10 97182 144970 10.84063 2.61 96.23
## 23 2007 11 97694 149964 10.85821 3.33 96.65
## 24 2007 12 126329 121383 10.85206 3.76 96.89
## 25 2008 1 96846 118416 10.91741 0.46 95.88
## 26 2008 2 86997 140501 10.78461 0.76 96.11
## 27 2008 3 80119 129405 10.73085 1.49 96.39
## 28 2008 4 83106 144234 10.52556 1.72 96.52
## 29 2008 5 85827 150514 10.45804 1.61 96.71
## 30 2008 6 81424 153345 10.32862 2.03 96.63
## 31 2008 7 85324 122144 10.23761 2.60 95.87
## 32 2008 8 86119 143464 10.09196 3.20 95.94
## 33 2008 9 76620 144454 10.60434 3.90 95.86
## 34 2008 10 83307 167497 12.48947 4.61 95.83
## 35 2008 11 78555 138439 13.09469 5.80 95.68
## 36 2008 12 101300 109206 13.37363 6.53 95.98
## 37 2009 1 69664 51061 13.86394 0.23 94.99
## 38 2009 2 61579 77833 14.50219 0.45 94.76
## 39 2009 3 64242 101830 14.72083 1.03 95.34
## 40 2009 4 51395 85121 13.47903 1.38 94.94
## 41 2009 5 53440 83910 13.25065 1.09 94.77
## 42 2009 6 55974 84934 13.34374 1.28 95.02
## 43 2009 7 56443 90872 13.36679 1.55 94.18
## 44 2009 8 58926 111273 13.01394 1.79 93.85
## 45 2009 9 58505 117433 13.40757 2.30 93.58
## 46 2009 10 67882 145761 13.25259 2.61 94.33
## 47 2009 11 64914 134873 13.13145 3.15 94.89
## 48 2009 12 91961 138432 12.85556 3.57 95.27
## 49 2010 1 64064 114193 12.83263 1.09 94.24
## 50 2010 2 59518 153148 12.96185 1.67 94.72
## 51 2010 3 65414 163641 12.60465 2.39 95.26
## 52 2010 4 60432 133406 12.26208 2.07 94.65
## 53 2010 5 61632 145909 12.68247 1.42 95.00
## 54 2010 6 59910 177575 12.71818 1.39 95.08
## 55 2010 7 61960 143521 12.83341 1.61 94.41
## 56 2010 8 66931 175904 12.72952 1.89 94.58
## 57 2010 9 65934 169507 12.86421 2.43 94.34
## 58 2010 10 74095 166931 12.45569 3.06 94.52
## 59 2010 11 75582 168226 12.31381 3.89 94.83
## 60 2010 12 104941 147551 12.40058 4.40 95.06
## 61 2011 1 68767 165045 12.15321 0.49 94.66
## 62 2011 2 66990 155808 12.07712 0.86 94.66
## 63 2011 3 75125 192783 12.01917 1.06 95.36
## 64 2011 4 65246 141334 11.75536 1.05 94.87
## 65 2011 5 68634 176951 11.65234 0.30 94.82
## 66 2011 6 68366 188223 11.80157 0.30 94.60
## 67 2011 7 68533 196835 11.67069 0.78 94.52
## 68 2011 8 75681 170086 12.20000 0.94 94.29
## 69 2011 9 73998 193590 13.08912 1.19 94.57
## 70 2011 10 75748 192244 13.46868 1.87 95.01
## 71 2011 11 83107 199665 13.63712 2.97 95.04
## 72 2011 12 115698 171319 13.74813 3.82 95.49
## 73 2012 1 75297 156417 13.48802 0.71 95.12
## 74 2012 2 74704 197600 12.80356 0.91 94.72
## 75 2012 3 83574 226555 12.75781 0.97 95.48
## 76 2012 4 69890 180545 13.02576 0.65 95.14
## 77 2012 5 80268 184302 13.53816 0.34 95.33
## 78 2012 6 78508 229089 13.97611 0.80 95.25
## 79 2012 7 76378 208151 13.39195 1.36 95.01
## 80 2012 8 83326 188392 13.18333 1.67 94.67
## 81 2012 9 79961 193350 13.00449 2.12 95.09
## 82 2012 10 83172 216576 12.86915 2.63 94.97
## 83 2012 11 91966 219864 12.86915 3.33 94.95
## 84 2012 12 110998 154724 12.87298 3.57 95.60
## 85 2013 1 84403 178562 12.71282 0.40 94.59
## 86 2013 2 80285 175338 12.71638 0.90 95.25
## 87 2013 3 82860 204475 12.40242 1.64 95.52
## 88 2013 4 83647 185548 12.21560 1.70 95.04
## 89 2013 5 87638 191205 12.23945 1.37 95.09
## 90 2013 6 83858 225753 12.95020 1.30 95.00
## 91 2013 7 86760 192940 12.76920 1.27 94.87
## 92 2013 8 88586 226893 12.88348 1.56 94.82
## 93 2013 9 78555 215962 13.08974 1.94 94.69
## 94 2013 10 88416 240316 13.02170 2.43 94.99
## 95 2013 11 100571 224873 13.06409 3.38 95.52
## 96 2013 12 119519 161208 13.00105 3.97 95.73
## 97 2014 1 85614 177928 13.20104 0.89 94.93
## 98 2014 2 80037 197504 13.29067 1.15 95.34
## 99 2014 3 85767 230772 13.21485 1.43 95.20
## 100 2014 4 76941 202328 13.07712 1.24 95.15
## 101 2014 5 88388 234629 12.95623 0.91 95.06
## 102 2014 6 84207 230410 12.97570 1.09 95.18
## 103 2014 7 96366 231934 12.97300 1.37 94.53
## 104 2014 8 103994 226757 13.15002 1.73 94.81
## 105 2014 9 89313 220239 13.21131 2.18 94.91
## 106 2014 10 101090 257382 13.47454 2.74 95.22
## 107 2014 11 111837 237923 13.59030 3.57 95.47
## 108 2014 12 133411 195091 14.45304 4.08 96.24
## 109 2015 1 103805 204907 14.67395 -0.09 95.49
## 110 2015 2 97659 222351 14.90437 0.10 95.67
## 111 2015 3 105034 261256 15.20997 0.51 96.14
## 112 2015 4 94953 233515 15.22746 0.25 95.69
## 113 2015 5 102156 240709 15.25361 -0.25 95.55
## 114 2015 6 107097 242720 15.45056 -0.09 95.59
## 115 2015 7 111863 226511 15.87623 0.06 95.28
## 116 2015 8 112307 234668 16.50888 0.27 95.32
## 117 2015 9 111705 216587 16.83229 0.65 95.50
## 118 2015 10 120214 245224 16.59932 1.16 95.45
## 119 2015 11 126750 223797 16.63219 1.72 96.04
## 120 2015 12 160901 206651 17.01278 2.13 96.04
## 121 2016 1 119833 213244 17.94565 0.38 95.74
## 122 2016 2 111126 219670 18.45920 0.82 95.86
## 123 2016 3 117252 224184 17.67208 0.97 96.25
## 124 2016 4 118754 197020 17.48096 0.65 96.20
## 125 2016 5 121879 226240 18.05380 0.20 95.99
## 126 2016 6 134913 247005 18.62127 0.31 96.08
## 127 2016 7 132109 225530 18.58811 0.57 96.00
## 128 2016 8 134388 262673 18.46011 0.86 96.02
## 129 2016 9 131888 235612 19.11921 1.47 95.88
## 130 2016 10 137503 255115 18.97319 2.09 96.33
## 131 2016 11 154779 245330 19.96946 2.89 96.50
## 132 2016 12 192741 216645 20.54282 3.36 96.62
## 133 2017 1 123447 219061 21.39550 1.70 96.40
## 134 2017 2 118193 248288 20.35246 2.29 96.66
## 135 2017 3 137245 305403 19.41648 2.92 96.81
## 136 2017 4 114938 240141 18.78122 3.04 96.53
## 137 2017 5 123429 269067 18.79971 2.92 96.45
## 138 2017 6 127752 287979 18.20815 3.18 96.71
## 139 2017 7 122678 258557 17.85459 3.57 96.58
## 140 2017 8 125985 276108 17.80650 4.08 96.48
## 141 2017 9 116716 286400 17.80554 4.41 96.41
## 142 2017 10 123602 303514 18.71362 5.06 96.49
## 143 2017 11 141724 290569 18.98973 6.15 96.59
## 144 2017 12 159234 268772 19.10129 6.77 96.85
## 145 2018 1 109445 231088 19.02896 0.53 96.64
## 146 2018 2 109846 271228 18.61594 0.91 96.83
## 147 2018 3 119127 317398 18.65489 1.24 97.06
## 148 2018 4 109748 271048 18.34659 0.90 96.61
## 149 2018 5 115155 288659 19.45515 0.73 96.78
## 150 2018 6 120298 315130 20.31281 1.12 96.63
## 151 2018 7 115047 247367 19.09664 1.66 96.53
## 152 2018 8 119487 322779 18.80423 2.26 96.54
## 153 2018 9 114888 306009 19.03592 2.69 96.42
## 154 2018 10 117602 313471 19.09212 3.22 96.73
## 155 2018 11 134143 291018 20.25495 4.10 96.75
## 156 2018 12 142300 275962 20.15294 4.83 96.64
## 157 2019 1 111514 243652 19.22744 0.09 96.44
## 158 2019 2 104009 273173 19.18334 0.06 96.71
## 159 2019 3 117529 325703 19.24878 0.44 96.78
## 160 2019 4 98366 288756 19.01630 0.50 96.50
## 161 2019 5 102422 309017 19.09191 0.21 96.50
## 162 2019 6 106782 327454 19.26678 0.27 96.43
## 163 2019 7 106104 276818 19.06189 0.65 96.26
## 164 2019 8 108074 286075 19.58659 0.63 96.29
## 165 2019 9 100757 286806 19.60990 0.89 96.22
## 166 2019 10 107110 259158 19.36886 1.44 96.31
## 167 2019 11 124804 274845 19.30748 2.26 96.58
## 168 2019 12 130460 236848 19.16932 2.83 97.09
## 169 2020 1 104852 238749 18.81445 0.48 96.22
## 170 2020 2 104338 273634 18.77705 0.90 96.47
## 171 2020 3 87541 295199 21.97384 0.85 97.09
## 172 2020 4 34927 31183 24.23988 -0.17 95.31
## 173 2020 5 42034 15139 23.58032 0.22 95.81
## 174 2020 6 62861 198084 22.26918 0.76 94.51
## 175 2020 7 72921 264520 22.48030 1.43 94.65
## 176 2020 8 77120 264478 22.23107 1.82 94.74
## 177 2020 9 77808 257562 21.60516 2.06 94.87
## 178 2020 10 84351 280474 21.38085 2.68 95.29
## 179 2020 11 95707 287703 20.53330 2.76 95.65
## 180 2020 12 105603 275081 19.97817 3.15 96.21
## 181 2021 1 81657 223533 19.90262 0.86 95.30
## 182 2021 2 82863 213987 20.29248 1.50 95.60
## 183 2021 3 96319 256119 20.76205 2.34 96.13
## 184 2021 4 84287 234584 20.10944 2.67 95.35
## 185 2021 5 86710 242020 20.05320 2.88 96.01
## 186 2021 6 88688 234394 20.04272 3.43 95.98
## 187 2021 7 82157 202021 19.98552 4.04 95.62
## 188 2021 8 78235 212687 20.05125 4.24 95.67
## 189 2021 9 76930 195294 19.99092 4.88 95.82
## 190 2021 10 76640 224535 20.47244 5.76 96.05
## 191 2021 11 82829 240341 20.78256 6.97 96.34
## 192 2021 12 97420 227465 20.98530 7.36 96.49
## 193 2022 1 78585 216630 20.48354 0.59 96.29
## 194 2022 2 79598 201868 20.48437 1.43 96.26
## 195 2022 3 95199 262494 20.60089 2.43 97.03
## 196 2022 4 83459 241286 20.04452 2.98 96.97
## 197 2022 5 91215 244643 20.11331 3.17 96.73
## 198 2022 6 90368 237674 19.96650 4.04 96.65
## 199 2022 7 83137 210170 20.53081 4.81 96.57
## 200 2022 8 91124 248704 20.12613 5.54 96.47
## porcentaje_desocu conf_consumidor
## 1 3.48 43.9415
## 2 3.75 43.9100
## 3 3.31 45.6029
## 4 3.20 44.7854
## 5 2.84 44.6508
## 6 3.26 44.2339
## 7 4.01 44.8674
## 8 3.87 45.0383
## 9 4.00 45.0604
## 10 3.82 44.3016
## 11 3.50 43.1883
## 12 3.32 44.7871
## 13 4.05 42.7412
## 14 4.05 42.3778
## 15 3.73 43.5677
## 16 3.51 43.4415
## 17 3.15 43.7534
## 18 3.28 43.0694
## 19 3.79 42.9629
## 20 3.83 43.9863
## 21 3.76 43.0238
## 22 3.77 41.2666
## 23 3.35 40.8568
## 24 3.11 42.8202
## 25 4.12 42.1822
## 26 3.89 41.2208
## 27 3.61 41.8964
## 28 3.48 40.1531
## 29 3.29 38.9120
## 30 3.37 37.6903
## 31 4.13 36.7035
## 32 4.06 37.2616
## 33 4.14 36.6558
## 34 4.17 34.2078
## 35 4.32 34.9500
## 36 4.02 34.9987
## 37 5.01 34.4084
## 38 5.24 33.4023
## 39 4.66 33.4728
## 40 5.06 34.6003
## 41 5.23 33.1933
## 42 4.98 34.2256
## 43 5.82 36.0502
## 44 6.15 34.5306
## 45 6.42 34.4993
## 46 5.67 32.6096
## 47 5.11 33.1707
## 48 4.73 33.9865
## 49 5.76 34.8020
## 50 5.28 34.2586
## 51 4.74 34.6691
## 52 5.35 35.0361
## 53 5.00 35.5938
## 54 4.92 36.7799
## 55 5.59 36.9279
## 56 5.42 37.2006
## 57 5.66 38.3303
## 58 5.48 37.4086
## 59 5.17 37.1774
## 60 4.94 38.1767
## 61 5.34 38.4624
## 62 5.34 38.4413
## 63 4.64 38.3233
## 64 5.13 37.6265
## 65 5.18 37.3597
## 66 5.40 38.7674
## 67 5.48 39.7537
## 68 5.71 38.9023
## 69 5.43 38.4823
## 70 4.99 37.7094
## 71 4.96 37.4238
## 72 4.51 37.7149
## 73 4.88 39.3604
## 74 5.28 38.9804
## 75 4.52 38.8750
## 76 4.86 40.2245
## 77 4.67 39.7323
## 78 4.75 39.7133
## 79 4.99 41.1478
## 80 5.33 40.7832
## 81 4.91 39.3550
## 82 5.03 39.6293
## 83 5.05 39.1214
## 84 4.40 41.1395
## 85 5.41 41.6134
## 86 4.75 39.6882
## 87 4.48 39.9339
## 88 4.96 39.8361
## 89 4.91 39.4471
## 90 5.00 38.7706
## 91 5.13 40.6562
## 92 5.18 40.5308
## 93 5.31 39.1825
## 94 5.01 38.0775
## 95 4.48 36.9465
## 96 4.27 37.3707
## 97 5.07 35.5508
## 98 4.66 35.7346
## 99 4.80 37.1351
## 100 4.85 37.6101
## 101 4.94 37.7513
## 102 4.82 37.9049
## 103 5.47 37.5518
## 104 5.19 37.4502
## 105 5.09 38.2199
## 106 4.78 37.6935
## 107 4.53 38.4760
## 108 3.76 38.6914
## 109 4.51 38.0625
## 110 4.33 37.4911
## 111 3.86 38.5052
## 112 4.31 37.8429
## 113 4.45 38.0317
## 114 4.41 39.1119
## 115 4.72 38.1319
## 116 4.68 37.3836
## 117 4.50 37.4490
## 118 4.55 37.8131
## 119 3.96 38.1829
## 120 3.96 38.3685
## 121 4.26 38.1815
## 122 4.14 36.7321
## 123 3.75 36.8144
## 124 3.80 36.7139
## 125 4.01 37.4848
## 126 3.92 38.3491
## 127 4.00 36.5060
## 128 3.98 35.6554
## 129 4.12 34.7550
## 130 3.67 35.0319
## 131 3.50 34.8752
## 132 3.38 35.4784
## 133 3.60 28.6679
## 134 3.34 31.5156
## 135 3.19 33.7951
## 136 3.47 34.9345
## 137 3.55 35.8733
## 138 3.29 36.0104
## 139 3.42 36.4886
## 140 3.52 36.5055
## 141 3.59 36.7879
## 142 3.51 36.4370
## 143 3.41 36.7168
## 144 3.15 36.3155
## 145 3.36 34.8018
## 146 3.17 34.1893
## 147 2.94 34.3367
## 148 3.39 35.6116
## 149 3.22 36.6479
## 150 3.37 37.1483
## 151 3.47 43.3411
## 152 3.46 43.0057
## 153 3.58 42.1327
## 154 3.27 42.5330
## 155 3.25 41.6750
## 156 3.36 44.8654
## 157 3.56 45.9299
## 158 3.29 47.8261
## 159 3.22 46.3411
## 160 3.50 45.4850
## 161 3.50 44.3235
## 162 3.57 43.6658
## 163 3.74 43.3177
## 164 3.71 43.8192
## 165 3.78 45.2995
## 166 3.69 44.0597
## 167 3.42 43.8407
## 168 2.91 43.7574
## 169 3.78 44.1205
## 170 3.53 43.3299
## 171 2.91 42.0593
## 172 4.69 32.2235
## 173 4.19 31.0682
## 174 5.49 31.9572
## 175 5.35 34.4173
## 176 5.26 35.0648
## 177 5.13 36.2820
## 178 4.71 37.8912
## 179 4.35 37.0767
## 180 3.79 38.7487
## 181 4.70 39.2114
## 182 4.40 38.6401
## 183 3.87 40.5816
## 184 4.65 42.5091
## 185 3.99 42.4227
## 186 4.02 44.3477
## 187 4.38 44.2934
## 188 4.33 42.4746
## 189 4.18 43.3421
## 190 3.95 43.8431
## 191 3.66 45.9354
## 192 3.51 44.8964
## 193 3.71 43.5909
## 194 3.74 42.9401
## 195 2.97 43.5603
## 196 3.03 44.3017
## 197 3.27 43.7823
## 198 3.35 43.2086
## 199 3.43 41.2699
## 200 3.53 40.2979Dentro de la base de datos había dos renglones sin contenido, por lo tanto, se decicdió eliminarlo.
2 modelos diferentes de regresión lineal múltiple para predecir el desempeño de la industria automotriz
Correlación
corrplot(cor(bd_prediccion2), type="upper",order="hclust",addcoef.col="black")## Warning in text.default(pos.xlabel[, 1], pos.xlabel[, 2], newcolnames, srt =
## tl.srt, : "addcoef.col" is not a graphical parameter## Warning in text.default(pos.ylabel[, 1], pos.ylabel[, 2], newrownames, col =
## tl.col, : "addcoef.col" is not a graphical parameter## Warning in title(title, ...): "addcoef.col" is not a graphical parameter
summary(bd_prediccion2)## Año Mes Venta Exportación
## Min. :2006 Min. : 1.00 Min. : 34927 Min. : 15139
## 1st Qu.:2010 1st Qu.: 3.00 1st Qu.: 78543 1st Qu.:153219
## Median :2014 Median : 6.00 Median : 88580 Median :209160
## Mean :2014 Mean : 6.42 Mean : 94178 Mean :201664
## 3rd Qu.:2018 3rd Qu.: 9.00 3rd Qu.:110134 3rd Qu.:243900
## Max. :2022 Max. :12.00 Max. :192741 Max. :327454
## Tipo.de.cambio Inflación porcentaje_ocu porcentaje_desocu
## Min. :10.09 Min. :-0.250 Min. :93.58 Min. :2.840
## 1st Qu.:12.66 1st Qu.: 0.815 1st Qu.:95.06 1st Qu.:3.527
## Median :13.56 Median : 1.480 Median :95.88 Median :4.125
## Mean :15.48 Mean : 1.951 Mean :95.76 Mean :4.244
## 3rd Qu.:19.10 3rd Qu.: 2.895 3rd Qu.:96.47 3rd Qu.:4.940
## Max. :24.24 Max. : 7.360 Max. :97.16 Max. :6.420
## conf_consumidor
## Min. :28.67
## 1st Qu.:36.69
## Median :38.47
## Mean :39.15
## 3rd Qu.:42.59
## Max. :47.83Primeramente, se realizo un plot de correlación, con el fin de observar si las variables podrían tener relación entre las mismas variables y las demás, y lo que se puede notar, es que todos tienen el 100% de relación, y también se puede analizar que año y tipo de cambio también es relevante, así como, mes e inflación, venta y porcentaje de personas ocupadas, la exportación y el año, seguido por el tipo de cambio y de la expotación, entre otros.
Modelo de regresión 1
modelo_regresion1 <- lm(Exportación~Año+Mes+Tipo.de.cambio+Inflación+porcentaje_ocu+porcentaje_desocu+conf_consumidor,data=bd_prediccion2)
summary(modelo_regresion1)##
## Call:
## lm(formula = Exportación ~ Año + Mes + Tipo.de.cambio + Inflación +
## porcentaje_ocu + porcentaje_desocu + conf_consumidor, data = bd_prediccion2)
##
## Residuals:
## Min 1Q Median 3Q Max
## -223340 -17123 3169 21264 87133
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.913e+07 3.447e+06 -11.352 < 2e-16 ***
## Año 1.835e+04 1.645e+03 11.151 < 2e-16 ***
## Mes 6.334e+03 1.054e+03 6.007 9.25e-09 ***
## Tipo.de.cambio -1.280e+04 2.212e+03 -5.785 2.89e-08 ***
## Inflación -1.022e+04 2.390e+03 -4.275 3.01e-05 ***
## porcentaje_ocu 2.763e+04 4.394e+03 6.289 2.09e-09 ***
## porcentaje_desocu NA NA NA NA
## conf_consumidor -2.142e+03 8.735e+02 -2.452 0.0151 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 36390 on 193 degrees of freedom
## Multiple R-squared: 0.6723, Adjusted R-squared: 0.6621
## F-statistic: 65.99 on 6 and 193 DF, p-value: < 2.2e-16En este modelo, primero se realizó sin la variable año y mes, y se pudo observar que el tipo de cambio era la variable que más impactaba a la exportación, lo cual tiene sentido sabiendo que el tipo de cambio afecta a México y de igual manera al mundo, al devaluarse la moneda mexicana, es por eso que México es un gran exportador.
Por otro lado, al agregarle la variable año y mes, la mayoría de las variables, con excepción de porcentaje de personas desocupadas tenían los 3 asteriscos, por lo tanto se consideran variables impactantes.
Gráfica
effect_plot(modelo_regresion1,pred=Tipo.de.cambio,interval=TRUE)## Warning in predict.lm(model, newdata = pm, se.fit = interval, interval =
## int.type[1], : prediction from a rank-deficient fit may be misleading
Como se puede observar en la gráfica, la tendencia que sigue es negativa, esto quiere decir, que entre más cueste un dolar en pesos Méxicanos o que el tipo de cambio sea más bajo, menos se exporta.
Modelo de regresión 2
modelo_regresion2 <- lm(Venta~Año+Mes+Tipo.de.cambio+Inflación+porcentaje_ocu+porcentaje_desocu+conf_consumidor,data=bd_prediccion2)
summary(modelo_regresion2)##
## Call:
## lm(formula = Venta ~ Año + Mes + Tipo.de.cambio + Inflación +
## porcentaje_ocu + porcentaje_desocu + conf_consumidor, data = bd_prediccion2)
##
## Residuals:
## Min 1Q Median 3Q Max
## -66653 -9529 -696 9350 64461
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7208005.1 1525100.0 -4.726 4.40e-06 ***
## Año 2561.8 727.9 3.519 0.000539 ***
## Mes 3468.4 466.5 7.434 3.34e-12 ***
## Tipo.de.cambio -2373.5 978.9 -2.425 0.016241 *
## Inflación -3991.3 1057.4 -3.775 0.000213 ***
## porcentaje_ocu 23358.2 1943.9 12.016 < 2e-16 ***
## porcentaje_desocu NA NA NA NA
## conf_consumidor -1822.0 386.5 -4.714 4.63e-06 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 16100 on 193 degrees of freedom
## Multiple R-squared: 0.5586, Adjusted R-squared: 0.5449
## F-statistic: 40.71 on 6 and 193 DF, p-value: < 2.2e-16En este modelo de regresión, en lugar de exportaciones, se tomaron en cuenta las ventas de vehiculos, y de igual forma se grafico dos veces, la primera sin año y mes, lo cual nos daba como variable significativa la de porcentaje de población ocupada, y después agregando las variables año y mes, la mayoría de las variables tuvieron sentido con los 3 asteriscos, a excepción del porcentaje de población desocupada y el tipo de cambio.
Gráfica
effect_plot(modelo_regresion2,pred=porcentaje_ocu,interval=TRUE)## Warning in predict.lm(model, newdata = pm, se.fit = interval, interval =
## int.type[1], : prediction from a rank-deficient fit may be misleading
Aquí se observa que la tendencia de la gráfica es positiva, y lo que se graficó fueron las ventas y la variable significativa que fue porcentaje de población ocupada. Para interpretar de forma general, la gráfica quiere decir que entre más porcentaje de población cuente con trabajo, más ventas habrá.
Descripción de variables
Año - Año en el que se efectúo la exportación o venta.
Mes - Mes correspondiente al año en el que se efectúo la exportación o venta.
Venta (variable dependiente) - Venta en México de vehículos ligeros en unidades.
Exportación (variable dependiente) - Exportación en México de vehículos ligeros en unidades.
Tipo de cambio (variable independiente) - Registros historicos del dolar en México.
Inflación (variable independiente)- Inflación durante los años definidos.
porcentaje_ocu (variable independiente) - Porcentaje de la población ocupada.
porcentaje_desocu (variable independiente) - Porcentaje de la población desocupada.
conf_consumidor (variable independiente) - Confianza del consumidor en la industria automotriz en México.
Interpretación de los modelos de regresión:
Después de analizar ambos modelos de regresión, se puede destacar que para la variable dependiente de exportaciones, la variable independiente que más impacta es la de tipo.de.cambio, esta impacta de manera que la tendencia se vuelve negativa, dando a conocer que entre más aumente el peso mexicano con respecto al dolar, las exportaciones bajan.
Por otro lado, la variable dependiente de ventas, se ve afectada principalmente por la variable independiente de porcentaje de población ocupada, es decir, la que cuenta con vida laboral, esto hace sentido, ya que, si hay ingresos, es más probable que haya más ventas.
Por último, la tendencia de la gráfica es positiva, lo cual significa, que entre más grande el porcentaje de población ocupada, más elevadas ñas ventas.
Identificación y Descripción de los Principales Resultados Relevantes
La mayor cantidad de bajas que FORM ha presentado son de colaboradores jóvenes (entre los 20-30 años en su mayoría) y siendo el principal motivo la “Baja por Faltas” (59%).
Actualmente FORM cuenta casi con la misma cantidad de colaboradores femeninos y masculinos y con un rango de edades entre los 18 y los 73 años. Asimismo el promedio de salario ganado es de 170 pesos diarios y los hombres casados y las mujeres solteras son los que ganan más.
La mayor cantidad de scrap en la empresa FORM es generada en la pre-produccion y en donde menos se genera es en la post-produccion.
Se pronostica que haya un crecimiento positivo de los vehículos en circulación con el paso del tiempo.
El tipo de cambio es la variable que más afecta e impacta tanto positiva como negativamente la exportación de vehículos ligeros. Entre más elevado este el tipo de cambio en MXN hay menos exportaciones.
Los clientes más importantes para FORM (que más piezas programadas tienen) son Yanfeng, Stabilus 1 y Varroc.
Los clientes con los que FORM presenta más horas de retraso en entregas es con Mahle y Printel (teniendo hasta 20h), clientes que no ordenan muchas piezas. Lo que puede significar que los clientes importantes son prioritarios para FORM y es por eso que con ellos no sufren retrasos.
Reflexión Final
El Business Analytics es el método de análisis que las empresas utilizan para poder crear estrategias en torno al crecimiento e innovación tomando en cuenta su información interna y externa. Es una combinación de los campos de la gestión, los negocios y la ciencia de los datos.
Algunos de los principales objetivos del Business Analytics son determinar qué conjuntos de datos son útiles (organizarlos, filtrarlos y limpiarlos), examinarlos (establecer relaciones y clasificarlos) y ver cómo estos pueden aumentar los ingresos, la productividad, la eficiencia y el rendimiento organizacional. Asimismo, el Business Analytics ayuda a que los colaboradores puedan tomar decisiones más inteligentes (Business Intelligence) basadas en los datos analizados al utilizar diferentes herramientas como el análisis estadístico y predictivo.
La relación entre el “Business Intelligence” y el “Business Analytics” es que un experto en Business Intelligence, toma y procesa la información generada por los expertos en Business Analytics y la convierte en decisiones estratégicas para su negocio.
LS0tCnRpdGxlOiA8c3BhbiBzdHlsZSA9ICJjb2xvcjpvcmFuZ2UiPiAiQWN0aXZpZGFkIFI2IgphdXRob3I6ICJFcXVpcG8gNCIKZGF0ZTogIjIwMjItMTAtMDMiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCi0tLQoKPGltZyBzcmM9ICIvVXNlcnMvbWF5cmFjYW1wb3lyYW1vcy9Eb3dubG9hZHMvMTYxMzQ3Nzk4MDc5Ni5qcGVnIj4KCiMjIyMgRW1pbGlvIE9sdmVyYSBBMDE2MjUyMDAKIyMjIyBNYXlyYSBDYW1wb3kgUmFtb3MgQTAwMjI2OTE0CiMjIyMgWGltZW5hIEd1dGllcnJleiBCcmlzZcOxbyBBMDA4Mjk1MDUKIyMjIyBNYXJpYW5hIFVsbG9hIEVuY2luYXMgQTAxMjUzMDc2CiMjIyMgSMOpY3RvciBKYXZpZXIgVmlsbGFycmVhbCBBMDE1NzAyMjcKCiMgKipJbnRyb2R1Y2Npw7NuKioKCiMjIyMgRk9STSBlcyB1bmEgZW1wcmVzYSBudWV2b2xlb25lbnNlIGZ1bmRhZGEgZW4gMjAxMSwgbGEgY3VhbCBhdGllbmRlIHByaW5jaXBhbG1lbnRlIGEgY2xpZW50ZXMgZGVudHJvIGRlbCBzZWN0b3IgYXV0b21vdHJpeiBvZnJlY2llbmRvIGVsIGRlc2Fycm9sbG8gZGUgZW1wYXF1ZXMgcGVyc29uYWxpemFkb3MgY29uIGVsIG9iamV0aXZvIGRlIGdlbmVyYXIgYWhvcnJvcywgZWZpY2llbmNpYXMsIHByb2R1Y3RpdmlkYWQgeSByZW50YWJpbGlkYWQuIEEgY29udGludWFjacOzbiwgc2UgYW5hbGl6YXJvbiBsYXMgYmFzZXMgZGUgZGF0b3MgaW50ZXJuYXMgeSBleHRlcm5hcyBkZSBsYSBlbXByZXNhIGNvbiBlbCBvYmpldGl2byBkZSBhbmFsaXphciBzdSBpbmZvcm1hY2nDs24geSBkZXRlY3RhciBoYWxsYXpnb3MgcGFyYSBsYSBmdXR1cmEgZ2VuZXJhY2nDs24gZGUgZXN0cmF0ZWdpYXMgZGUgbWVqb3JhLgoKIyAqKlByb2R1Y2Npw7NuKioKCiMjIyMgQW50ZXMgZGUgaW1wb3J0YXIgbGEgYmFzZSBkZSBkYXRvcywgc2Ugb3B0w7MgcG9yOgojIyMjIyAxLiBTZSBpbnRlZ3Jhcm9uIGxvcyBkYXRvcyBkZSBKdWxpbywgQWdvc3RvIHkgU2VwdGllbWJyZS4KIyMjIyMgMi4gU2UgaW5jb3Jwb3LDsyB1bmEgbnVldmEgY29sdW1uYSBkZSAiRmVjaGEiLgojIyMjIyAzLiBTb2xvIHNlIGRlamFyb24gbG9zIGRhdG9zIGRlICJUaWVtcG8gZGUgTWFxdWluYXMiCiMjIyMjIDQuIFNlIGVsaW1pbmFyb24gbG9zIE5BcyB5IHZhcmlhYmxlcyBubyBudW3DqXJpY2FzIGRlIGxhcyBjb2x1bW5hcyBkZTogIkzDoW1pbmFzIHByb2Nlc2FkYXMiLgoKIyMjIyBJbXBvcnRhciBsYXMgYmFzZXMgZGUgZGF0b3MKYGBge3J9CiNmaWxlLmNob29zZSgpCmJkNCA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL0VNSV9DQVJUT04uY3N2IikKbGlicmFyeShqYW5pdG9yKQpwcm9kdWNjaW9uIDwtIGNsZWFuX25hbWVzKGJkNCkKc3VtbWFyeShwcm9kdWNjaW9uKQoKcHJvZHVjY2lvbiA8LSBzdWJzZXQocHJvZHVjY2lvbixzZWxlY3QgPSAtYyAoaWRfZm9ybSwgcHJvZHVjdG8sIGhyX2ZpbiwgaW5pY2lvX3NlcF91cCwgZmluX2luaWNpb19kZV9zZXBfdXAsIGluaWNpb19kZV9wcm9jZXNvLCBmaW5fZGVfcHJvY2VzbywgdGllbXBvX21hdGVyaWFsZXMpKQpzdW1tYXJ5KHByb2R1Y2Npb24pCgpsaWJyYXJ5KGRhdGEudGFibGUpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkocGx5cikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KG5hbmlhcikKbGlicmFyeShIbWlzYykgICAgICAgICAKbGlicmFyeShwc3ljaCkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoa25pdHIpCiMgaW5zdGFsbC5wYWNrYWdlcygicG9sbHN0ZXIiKQpsaWJyYXJ5KHBvbGxzdGVyKQpsaWJyYXJ5KGVwaURpc3BsYXkpCmxpYnJhcnkoZGVzY3IpCmxpYnJhcnkodGlkeXIpCmBgYAoKIyMgKipMaW1waWV6YSwgVHJhbnNmb3JtYWNpw7NuLCB5IE9yZ2FuaXphY2nDs24gZGUgQmFzZXMgZGUgRGF0b3MqKgoKIyMjICpDcmVhciB1bmEgYmFzZSBkZSBkYXRvcyBmaW5hbCBwYXJhIGNhZGEgdW5hIGRlIGxhcyDDoXJlYXMgZGUgbGEgZW1wcmVzYSBGT1JNIHF1ZSBzZSBpbmNsdXllbiBlbiBhKSDigJMgZikuKgoKIyMjIFTDqWNuaWNhIDEuQ29udmVydGlyIGEgY2FyYWN0ZXIgYSBudW1lcmljbyB5IGRlZmVjaGEKYGBge3J9CnByb2R1Y2Npb24kcGllemFzX3Byb2c8LWFzLm51bWVyaWMocHJvZHVjY2lvbiRwaWV6YXNfcHJvZykgICAgICAgICAgICAgICAgIApwcm9kdWNjaW9uJHRtb19taW48LWFzLm51bWVyaWMocHJvZHVjY2lvbiR0bW9fbWluKSAgICAgICAgICAgICAgICAgIApwcm9kdWNjaW9uJGxhbWluYXNfcHJvY2VzYWRhczwtYXMubnVtZXJpYyhwcm9kdWNjaW9uJGxhbWluYXNfcHJvY2VzYWRhcykgICAKcHJvZHVjY2lvbiR0aWVtcG9fY2FsaWRhZDwtYXMubnVtZXJpYyhwcm9kdWNjaW9uJHRpZW1wb19jYWxpZGFkKSAKcHJvZHVjY2lvbiRmZWNoYSA8LSBhcy5EYXRlKHByb2R1Y2Npb24kZmVjaGEsIGZvcm1hdCA9ICIlZC8lbS8lWSIpCnN1bW1hcnkocHJvZHVjY2lvbikKYGBgCgojIyMgVMOpY25pY2EgMi5Cb3JyYXIgbGFzIGxldHJhcyBkZSBhbGd1bm9zIHJlZ2lzdHJvcyBkZSAiUGllemFfUHJvZyIuCmBgYHtyfQpwcm9kdWNjaW9uJHBpZXphc19wcm9nIDwtIHN0cl9yZXBsYWNlKHByb2R1Y2Npb24kcGllemFzX3Byb2csICJbYWVpb3VMQU09TmJCc1NdIiwgIiIpCnByb2R1Y2Npb24kcGllemFzX3Byb2cgPC0gYXMuaW50ZWdlcihwcm9kdWNjaW9uJGxhbWluYXNfcHJvY2VzYWRhcykKYGBgCgojIyMgVMOpY25pY2EgMy5SZWVtcGxhemFyIHBvciBsYSBtZWRpYW5hIGxvcyBOQcK0cyBkZSB0bW9fbWluIHkgZGUgdGllbXBvX2NhbGlkYWQKYGBge3J9CnByb2R1Y2Npb24kdG1vX21pbltpcy5uYShwcm9kdWNjaW9uJHRtb19taW4pXTwtbWVkaWFuKHByb2R1Y2Npb24kdG1vX21pbiwgbmEucm0gPSBUUlVFKQpwcm9kdWNjaW9uJHRpZW1wb19jYWxpZGFkW2lzLm5hKHByb2R1Y2Npb24kdGllbXBvX2NhbGlkYWQpXTwtbWVkaWFuKHByb2R1Y2Npb24kdGllbXBvX2NhbGlkYWQsIG5hLnJtID0gVFJVRSkKc3VtbWFyeShwcm9kdWNjaW9uKQpgYGAKCiMjIyBFeHBvcnRhciBsYSBiYXNlIGRlIGRhdG9zIGxpbXBpYSAKYGBge3J9CmJkX1Byb2R1Y2Npb25fbGltcGlhIDwtIHByb2R1Y2Npb24Kd3JpdGUuY3N2KGJkX1Byb2R1Y2Npb25fbGltcGlhLCBmaWxlPSJiZF9wcm9kdWNjaW9uX2xpbXBpYS5jc3YiLCByb3cubmFtZXMgPSBGQUxTRSkKCmBgYAoKIyMgKipBbsOhbGlzaXMgRXhwbG9yYXRvcmlvIGRlIGxhcyBCYXNlcyBkZSBEYXRvcyoqCgojIyMgKk1lZGlhKgpgYGB7cn0KbWVkaWFfcGllemFzX3Byb2c8LSBtZWFuKHByb2R1Y2Npb24kcGllemFzX3Byb2cpCm1lZGlhX3BpZXphc19wcm9nCgptZWRpYV90bW9fbWluPC0gbWVhbihwcm9kdWNjaW9uJHRtb19taW4pCm1lZGlhX3Rtb19taW4gCgptZWRpYV9sYW1pbmFzX3Byb2Nlc2FkYXMgPC0gbWVhbihwcm9kdWNjaW9uJGxhbWluYXNfcHJvY2VzYWRhcykKbWVkaWFfbGFtaW5hc19wcm9jZXNhZGFzCgptZWRpYV90aWVtcG9fY2FsaWRhZDwtIG1lYW4ocHJvZHVjY2lvbiR0aWVtcG9fY2FsaWRhZCkKbWVkaWFfdGllbXBvX2NhbGlkYWQKYGBgCgojIyMgKk1lZGlhbmEqCmBgYHtyfQptZWRpYW5fcGllemFzX3Byb2c8LSBtZWRpYW4ocHJvZHVjY2lvbiRwaWV6YXNfcHJvZykKbWVkaWFuX3BpZXphc19wcm9nCgptZWRpYW5fdG1vX21pbjwtIG1lZGlhbihwcm9kdWNjaW9uJHRtb19taW4pCm1lZGlhbl90bW9fbWluIAoKbWVkaWFuX2xhbWluYXNfcHJvY2VzYWRhcyA8LSBtZWRpYW4ocHJvZHVjY2lvbiRsYW1pbmFzX3Byb2Nlc2FkYXMpCm1lZGlhX2xhbWluYXNfcHJvY2VzYWRhcwoKbWVkaWFuX3RpZW1wb19jYWxpZGFkPC0gbWVkaWFuKHByb2R1Y2Npb24kdGllbXBvX2NhbGlkYWQpCm1lZGlhbl90aWVtcG9fY2FsaWRhZApgYGAKCiMjIyAqTW9kYSogCmBgYHtyfQptb2RlIDwtIGZ1bmN0aW9uKHgpIHsKICB1eCA8LSB1bmlxdWUoeCkKICB1eFt3aGljaC5tYXgodGFidWxhdGUobWF0Y2goeCwgdXgpKSldCn0KbW9kYV9waWV6YXNfcHJvZyA8LSBtb2RlKHByb2R1Y2Npb24kcGllemFzX3Byb2cpCm1vZGFfcGllemFzX3Byb2cKCm1vZGFfdG1vX21pbiA8LSBtb2RlKHByb2R1Y2Npb24kdG1vX21pbikKbW9kYV90bW9fbWluCgptb2RhX2xhbWluYXNfcHJvY2VzYWRhczwtIG1vZGUocHJvZHVjY2lvbiRsYW1pbmFzX3Byb2Nlc2FkYXMpCm1vZGFfbGFtaW5hc19wcm9jZXNhZGFzCgptb2RhX3RpZW1wb19jYWxpZGFkIDwtIG1vZGUocHJvZHVjY2lvbiR0aWVtcG9fY2FsaWRhZCkKbW9kYV90aWVtcG9fY2FsaWRhZApgYGAKCiMjIyAqVmFyaWFuemEqCmBgYHtyfQp2YXJpYW56YV9waWV6YXNfcHJvZyA8LXZhcihwcm9kdWNjaW9uJHBpZXphc19wcm9nKQp2YXJpYW56YV9waWV6YXNfcHJvZwoKdmFyaWFuemFfdG1vX21pbiA8LXZhcihwcm9kdWNjaW9uJHRtb19taW4pCnZhcmlhbnphX3Rtb19taW4KCnZhcmlhbnphX2xhbWluYXNfcHJvY2VzYWRhczwtdmFyKHByb2R1Y2Npb24kbGFtaW5hc19wcm9jZXNhZGFzKQp2YXJpYW56YV9sYW1pbmFzX3Byb2Nlc2FkYXMKCnZhcmlhbnphX3RpZW1wb19jYWxpZGFkIDwtdmFyKHByb2R1Y2Npb24kdGllbXBvX2NhbGlkYWQpCnZhcmlhbnphX3RpZW1wb19jYWxpZGFkCmBgYAoKIyMjICpEZXN2aWFjacOzbiBFc3TDoW5kYXIqCmBgYHtyfQpkZXN2aWFjaW9uX3BpZXphc19wcm9nPC0gc3FydCh2YXJpYW56YV9waWV6YXNfcHJvZykKZGVzdmlhY2lvbl9waWV6YXNfcHJvZwoKZGVzdmlhY2lvbl90bW9fbWluIDwtIHNxcnQodmFyaWFuemFfdG1vX21pbikKZGVzdmlhY2lvbl90bW9fbWluCgpkZXN2aWFjaW9uX2xhbWluYXNfcHJvY2VzYWRhcyA8LSBzcXJ0KHZhcmlhbnphX2xhbWluYXNfcHJvY2VzYWRhcykKZGVzdmlhY2lvbl9sYW1pbmFzX3Byb2Nlc2FkYXMKCmRlc3ZpYWNpb25fdGllbXBvX2NhbGlkYWQgPC0gc3FydCh2YXJpYW56YV90aWVtcG9fY2FsaWRhZCkKZGVzdmlhY2lvbl90aWVtcG9fY2FsaWRhZApgYGAKCiMjIyAqVGFibGEqCmBgYHtyfQpWYXJpYWJsZTIgPC1jKCJwaWV6YXNfcHJvZyIsInRtb19taW4gIiwgImxhbWluYXNfcHJvY2VzYWRhcyIsICJ0aWVtcG9fY2FsaWRhZCIpClByb21lZGlvMiA8LWMoIjEwMi4wMSIsICIyMS44OCIsIjEwMi4wMSIsICIwLjg3NDkiKQpNb2RhMiA8LWMoIjAiLCAiMjAiLCIwIiwgIjEiKQpNZWRpYW5hMiA8LWMoIjUxIiwiMjAiLCIxMDIuMDEwNSIsICIxIikKVmFyaWFuemEyIDwtYygiMTgwNTYuMDMiLCIxNDMuMjg5NSIsIjE4MDU2LjAzIiwgIjAuOTgzNDAxNyIpCkRlc3ZpYWNpw7NuX0VzdMOhbmRhcjIgPC1jICgiMTM0LjM3MjciLCIxMS45NzAzNiIsIjEzNC4zNzI3IiwgIjAuOTkxNjY2MSIpCnRhYmxhMiA8LWRhdGEuZnJhbWUoVmFyaWFibGUyLFByb21lZGlvMiwgTW9kYTIsIE1lZGlhbmEyLCBWYXJpYW56YTIsIERlc3ZpYWNpw7NuX0VzdMOhbmRhcjIpCnRhYmxhMgprbml0cjo6a2FibGUodGFibGEyKQpgYGAKCiMjIyAqR3LDoWZpY28gY3VhbnRpdGF0aXZvKgpgYGB7cn0KZ2dwbG90KHByb2R1Y2Npb24sYWVzKHg9ZmVjaGEpKSsKICBnZW9tX2xpbmUoYWVzKHk9cGllemFzX3Byb2cpLGNvbG9yPSJibHVlIikrCiAgbGFicyh4PSJGZWNoYSIseT0icGllemFzIHByb2dyYW1hZGFzIiwgY29sb3I9ImJsdWUiKSsKICBnZ3RpdGxlKCJHcmFmaWNhIGRlIGxhcyBwaWV6YXMgcHJvZ3JhbWFkYXMgcG9yIGZlY2hhIikKYGBgCgojIyMjIEVuIGVzdGUgZ3LDoWZpY28gc2UgbXVlc3RyYW4gbG9zIDMgZGlmZXJlbnRlcyBtZXNlcyAoanVsaW8sIGFnb3N0bywgc2VwdCksIGRvbmRlIHNlIHB1ZWRlIHZlciBxdWUgaHVibyAqKm1heW9yIHByb2R1Y2Npb24gZGUgcGllemFzIHByb2dyYW1hZGFzIGVuIGxvIHF1ZSBmdWUgZGUganVsaW8gaGFjaWEgYWdvc3RvLioqCiAgCiMjIyAqQmFyIHBsb3RzKgpgYGB7cn0KZ2dwbG90KHByb2R1Y2Npb24sIGFlcyh4PXRtb19taW4sIHk9bGFtaW5hc19wcm9jZXNhZGFzKSkgKwogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IiwgZmlsbD0iZ3JleSIpICsgc2NhbGVfZmlsbF9ncmV5KCkgKyAKICBsYWJzKHRpdGxlID0gIkdyYWZpY28gZGUgYmFycmFzIGRlIGxhcyBwaWV6YXMgcHJvZ3JhbWFkYXMgZGVudHJvIGRlbCB0aWVtcG8gbWluaW1vIiwgCiAgICAgICB4ID0gInRpZW1wbyBtaW5pbW8iLCB5ID0gImxhbWluYXMgcHJvY2VzYWRhcyIpCmBgYAoKIyMjIyBFbiBlc3RhIGdyw6FmaWNvIHNlIHB1ZWRlIHZlciBxdWUgKiplbCB0aWVtcG8gbcOtbmltbyBkZW50cm8gZGUgbGFzIGzDoW1pbmFzIHByb2Nlc2FkYXMgbm8gc29icmVwYXNhIGxvcyA1MCoqIGxvIGN1YWwgZXMgdW5hIGJ1ZW5hIHNlw7FhbCBkZSBxdWUgbm8gaGF5IG11Y2hvIHRpZW1wbyBkZSBlc3BlcmEuCgpgYGB7cn0KZ2dwbG90KHByb2R1Y2Npb24sYWVzKHg9cmVvcmRlcih0bW9fbWluLCBwaWV6YXNfcHJvZyksIHk9cGllemFzX3Byb2csZmlsbD1jbGllbnRlKSkgKwogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikKYGBgCgojIyMjIEVzdGEgZ3LDoWZpY2EgbGEgdG9tZSBkZSBsYSBiYXNlIGRlIGRhdG9zIGRlbCBwcm9mZXNvciBsYSBjdWFsIHRhbWJpZW4gbWUgYXl1ZG8gcGFyYSB2aXN1YWxpemFyIGxvcyBkYXRvcyBvYnRlbmlkb3MgZGUgbG8gcXVlIGZ1ZXJvbiBsYXMgcGllemFzIHByb2dyYW1hZGFzIGRlbnRybyBkZWwgdGllbXBvIG3DrW5pbW8gZGVudHJvIGRlIGxhIHByb2R1Y2Npb24sIGRvbmRlIGVzdGFzIHZhcmlhYmxlcyBzZSB2ZW4gZGVudHJvIGRlIGxvcyBjbGllbnRlcy4gIAoKIyMjICpEaXNwZXJzaW9uIHBsb3RzKgpgYGB7cn0KZ2dwbG90KHByb2R1Y2Npb24sIGFlcyh4PXBpZXphc19wcm9nLCB5PWNsaWVudGUpKSArIAogIGdlb21fcG9pbnQoKSAKYGBgCgojIyMjIEVuIGVzdGEgZ3LDoWZpY2EgZGUgZGlzcGVyc2lvbiBzZSBwdWVkZSBhcHJlY2lhciB2aXN1YWxtZW50ZSBsYSBjYW50aWRhZCBkZSBwaWV6YXMgcXVlIHNlIGRlbWFuZGFuIHBhcmEgbG9zIGRpZmVyZW50ZXMgY2xpZW50ZXMgcXVlIHRpZW5lIGxhIGVtcHJlc2EsIGRvbmRlIHNlIGFwcmVjaWEgcXVlICoqU3RhYmlsdXMgMSB0b21hIGxhIGRlbGFudGVyYS4qKiAKCiMgKipNZXJtYSoqCgojIyMjIEltcG9ydGFyIGxhcyBiYXNlcyBkZSBkYXRvcwpgYGB7cn0KIyBmaWxlLmNob29zZSgpCm1lcm1hPC0gcmVhZC5jc3YoIi9Vc2Vycy9tYXlyYWNhbXBveXJhbW9zL0Rlc2t0b3AvQW5hbGlzaXMgZGUgRGF0b3MgQ29uY2VudHJhY2lvbi9SZXRvL0ZPUk0gLSBNZXJtYSAxLmNzdiIpCgpgYGAKCiMjICoqTGltcGllemEsIFRyYW5zZm9ybWFjacOzbiwgeSBPcmdhbml6YWNpw7NuIGRlIEJhc2VzIGRlIERhdG9zKioKCiMjIyAqQ3JlYXIgdW5hIGJhc2UgZGUgZGF0b3MgZmluYWwgcGFyYSBjYWRhIHVuYSBkZSBsYXMgw6FyZWFzIGRlIGxhIGVtcHJlc2EgRk9STSBxdWUgc2UgaW5jbHV5ZW4gZW4gYSkg4oCTIGYpLioKCiMjIyMgRW50ZW5kZXIgbGEgYmFzZSBkZSBkYXRvcwpgYGB7cn0Kc3VtbWFyeShtZXJtYSkKYGBgCgojIyMjIE9ic2VydmFjaW9uZXMKIyMjIyMgTm8gZXN0YW4gZW4gZW50ZXJvcyBsb3Mga2lsb3MgZGUgbWVybWEKIyMjIyMgRXhpc3RlbiBmaWxhcyBpbmVjZXNhcmlhcwoKIyMjIFTDqWNuaWNhIDE6IEVsaW1pbmFyIHRvdGFsZXMKYGBge3J9Cm1lcm1hMTwtIG1lcm1hWy1jKDUsMTIsMTksMjUsMzEsMzYsNDIsNTQsNTksNjApLF0KYGBgCgojIyMgVMOpY25pY2EgMjogQ29udmVydGlyIGNhcmFjdGVyIGEgZW50ZXJvLgpgYGB7cn0KbWVybWExJEtpbG9zIDwtIGFzLmludGVnZXIobWVybWExJEtpbG9zKQpzdHIobWVybWExKQpgYGAKCiMjIyBFeHBvcnRhciBsYSBiYXNlIGRlIGRhdG9zIGxpbXBpYSAKYGBge3J9Cm1lcm1hX2xpbXBpYSA8LSBtZXJtYTEKd3JpdGUuY3N2KG1lcm1hX2xpbXBpYSwgZmlsZSA9Im1lcm1hX2JkX2xpbXBpYS5jc3YiLCByb3cubmFtZXMgPSBGQUxTRSkKYGBgCgojIyAqKkFuw6FsaXNpcyBFeHBsb3JhdG9yaW8gZGUgbGFzIEJhc2VzIGRlIERhdG9zKioKCiMjIyAqTWVkaWEqCgojIyMjIExhcyB2YXJpYWJsZXMgZGUgZmVjaGEgeSBlbCBtZXMgbm8gcHVlZGUgdGVuZXIgbWVkaWEKYGBge3J9Cm1lZGlhX2tpbG9zIDwtIG1lYW4obWVybWExJEtpbG9zKQptZWRpYV9raWxvcwoKYGBgCgojIyMgKk1lZGlhbmEqCgojIyMjIExhcyB2YXJpYWJsZXMgZGUgZmVjaGEgeSBlbCBtZXMgbm8gcHVlZGUgdGVuZXIgbWVkaWFuYQpgYGB7cn0KbWVkaWFuYV9raWxvcyA8LSBtZWRpYW4obWVybWExJEtpbG9zKQptZWRpYW5hX2tpbG9zCmBgYAoKIyMjICpNb2RhKgpgYGB7cn0KbW9kZSA8LSBmdW5jdGlvbiAoeCkgewogIHV4IDwtIHVuaXF1ZSh4KQogIHV4IFt3aGljaC5tYXgodGFidWxhdGUobWF0Y2goeCx1eCkpKV0KfQoKbW9kZV9mZWNoYSA8LSBtb2RlKG1lcm1hMSRGZWNoYSkKbW9kZV9mZWNoYQoKbW9kZV9tZXMgPC0gbW9kZShtZXJtYTEkTWVzKQptb2RlX21lcwoKbW9kZV9raWxvcyA8LSBtb2RlKG1lcm1hMSRLaWxvcykKbW9kZV9raWxvcwpgYGAKCiMjIyAqRGVzdmlhY2nDs24gRXN0w6FuZGFyKgoKIyMjIyBMYXMgdmFyaWFibGVzIGRlIGZlY2hhIHkgZWwgbWVzIG5vIHB1ZWRlIHRlbmVyIGRlc3ZpYWNpb24gZXN0YW5kYXIKYGBge3J9CnZhcmlhbnphX2tpbG9zIDwtIHZhcihtZXJtYTEkS2lsb3MpCnZhcmlhbnphX2tpbG9zIAoKZGVzdmlhY2lvbmVzdGFuZGFyX2tpbG9zIDwtIHNxcnQodmFyaWFuemFfa2lsb3MpCmRlc3ZpYWNpb25lc3RhbmRhcl9raWxvcwpgYGAKCiMjIyAqVGFibGEqCmBgYHtyfQpWYXJpYWJsZTwtYygiRmVjaGEiLCAiTWVzIiwgIktpbG9zIikKTWVkaWE8LWMoIk5BIiwgIk5BIiwgbWVkaWFfa2lsb3MpCk1lZGlhbmE8LWMoIk5BIiwgIk5BIiwgbWVkaWFuYV9raWxvcykKTW9kYTwtYyhtb2RlX2ZlY2hhLCBtb2RlX21lcywgbW9kZV9raWxvcykKRGVzdmlhY2lvbl9Fc3RhbmRhcjwtYygiTkEiLCAiTkEiLCBkZXN2aWFjaW9uZXN0YW5kYXJfa2lsb3MpCnRhYmxlPC1kYXRhLmZyYW1lKFZhcmlhYmxlLE1lZGlhLE1lZGlhbmEsTW9kYSxEZXN2aWFjaW9uX0VzdGFuZGFyKQprbml0cjo6a2FibGUodGFibGUpCmBgYAoKIyMjICpCYXIgcGxvdHMqCmBgYHtyfQojIGluc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQpsaWJyYXJ5KGdncGxvdDIpCgpnZ3Bsb3QobWVybWExLCBhZXMoeD1NZXMsIHk9S2lsb3MpKSArCiAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiLCBmaWxsPSJvcmFuZ2UiKSArIHNjYWxlX2ZpbGxfZ3JleSgpICsgIyBBZGQgYmFycyB0byB0aGUgcGxvdAogIGxhYnModGl0bGUgPSAiUmVsYWNpw7NuIGRlIGxvcyBraWxvcyBkZSBtZXJtYSBlbiBlbCBtZXMiLCAjIEFkZCBhIHRpdGxlCiAgICAgICBzdWJ0aXRsZSA9ICJNZXJtYSBlbXByZXNhIEZPUk0iLCAjIEFkZCBhIHN1YnRpdGxlCiAgICAgICBjYXB0aW9uID0gIlJlbGFjacOzbiIsICMgQWRkIGEgY2FwdGlvbgogICAgICAgeCA9ICJNZXMiKQoKYGBgCgojIyMjIEVuIGVzdGEgZ3LDoWZpY2EgcG9kZW1vcyBvYnNlcnZhciBxdWUgbGEgZ2VuZXJhY2lvbiBkZSBtZXJtYSBkZSBsYSBlbXByZXNhIEZPUk0gc2VwYXJhIGVuIGxvcyBtZXNlcyBkZWwgMjAyMi4gU2Ugb2JzZXJ2YSBxdWUgKiplbCBtZXMgcXVlIG1hcyBzZSBnZW5lcm8gbWVybWEgZnVlIGVuIEFnb3N0byBjb250aW51YW5kbyBjb24gRmVicmVybyB5IE1heW8uKiogRWwgbWVzIHF1ZSBtZW5vcyBnZW5lcm8gbWVybWEgZXMgU2VwdGllbWJyZSB5IEVuZXJvLgoKIyMjICpEaXNwZXJzaW9uIHBsb3RzKgpgYGB7cn0KYm94cGxvdChtZXJtYTEkS2lsb3MpCmBgYAoKIyMjIyBFbiBlc3RhIGdyw6FmaWNhIHBvZGVtb3Mgb2JzZXJ2YXIgcXVlIGxhIG1lcm1hIGdlbmVyYWRhIGVuIEZPUk0gc2UgZW5jdWVudHJhIGVuIHVuYSBncmFuIGRpc3RyaWJ1Y2nDs24uICoqRWwgcHJvbWVkaW8gZW50cmEgZGVudHJvIGRlIGxvcyAzMDAwIHkgbG9zIDQwMDAga2lsb3MuKiogRGUgbGEgbWlzbWEgbWFuZXJhLCBzZSBoYSBsbGVnYWRvIGEgZ2VuZXJhciBtZW5vcyBkZSAxMDAwIGtpbG9zIGNvbnRyYSBsYSBtYXhpbWEgcXVlIHNvbiBhcnJpYmEgZGUgbG9zIDYwMDAga2lsb3MuIAoKIyAqKlNjcmFwKioKCiMjIyMgSW1wb3J0YXIgbGFzIGJhc2VzIGRlIGRhdG9zCmBgYHtyfQojIGZpbGUuY2hvb3NlKCkKc2NyYXA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL1JldG8vRk9STSAtIFNjcmFwLmNzdiIpCmBgYAoKIyMgKipMaW1waWV6YSwgVHJhbnNmb3JtYWNpw7NuLCB5IE9yZ2FuaXphY2nDs24gZGUgQmFzZXMgZGUgRGF0b3MqKgoKIyMjICpDcmVhciB1bmEgYmFzZSBkZSBkYXRvcyBmaW5hbCBwYXJhIGNhZGEgdW5hIGRlIGxhcyDDoXJlYXMgZGUgbGEgZW1wcmVzYSBGT1JNIHF1ZSBzZSBpbmNsdXllbiBlbiBhKSDigJMgZikuKgoKIyMjIyBFbnRlbmRlciBsYSBiYXNlIGRlIGRhdG9zCmBgYHtyfQpzdW1tYXJ5KHNjcmFwKQpgYGAKCiMjIyMgT2JzZXJ2YWNpb25lcwojIyMjIyBTZSBjdWVudGEgY29uIHVuYSBmaWxhIGFsIGluZWNlc2FyaWEKIyMjIyMgU2UgY3VlbnRhbiBjb24gdmFyaWFibGVzIGluZWNlc2FyaWFzIAoKIyMjIFTDqWNuaWNhIDE6IEVsaW1pbmFyIGNvbHVtbmEuCmBgYHtyfQpzY3JhcDE8LSBzY3JhcCBbLTEsXQpgYGAKCiMjIyBUw6ljbmljYSAyOiBFbGltaW5hciB2YXJpYWJsZXMKYGBge3J9CnNjcmFwMSA8LSBzdWJzZXQoc2NyYXAxLCBzZWxlY3QgPSAtYyAoIFJlZmVyZW5jaWEsIFByb2R1Y3RvLFVuaWRhZC5kZS5tZWRpZGEsIFViaWNhY2nDs24uZGUuZGVzZWNobywgRXN0YWRvLCBIb3JhKSkKCnN1bW1hcnkoc2NyYXAxKQpgYGAKCiMjIyBUw6ljbmljYSAzOiBDb252ZXJ0aXIgY2FyYWN0ZXIgYSBlbnRlcm8uCmBgYHtyfQpzY3JhcDEkQ2FudGlkYWQgPC0gYXMuaW50ZWdlcihzY3JhcDEkQ2FudGlkYWQpCnN0cihzY3JhcDEpCgpgYGAKCiMjIyBFeHBvcnRhciBsYSBiYXNlIGRlIGRhdG9zIGxpbXBpYSAKYGBge3J9CnNjcmFwX2xpbXBpYSA8LSBzY3JhcDEKd3JpdGUuY3N2KHNjcmFwX2xpbXBpYSwgZmlsZSA9InNjcmFwX2JkX2xpbXBpYS5jc3YiLCByb3cubmFtZXMgPSBGQUxTRSkKYGBgCgojIyAqKkFuw6FsaXNpcyBFeHBsb3JhdG9yaW8gZGUgbGFzIEJhc2VzIGRlIERhdG9zKioKCiMjIyAqTWVkaWEqCgojIyMjIExhcyB2YXJpYWJsZXMgZGUgZmVjaGEgeSB1YmljYWNpw7NuIGRlIG9yaWdlbiBubyBwdWVkZSB0ZW5lciBtZWRpYQpgYGB7cn0KbWVkaWFfY2FudGlkYWQgPC0gbWVhbihzY3JhcDEkQ2FudGlkYWQpCm1lZGlhX2NhbnRpZGFkCmBgYAoKIyMjICpNZWRpYW5hKgoKIyMjIyBMYXMgdmFyaWFibGVzIGRlIGZlY2hhIHkgdWJpY2FjacOzbiBkZSBvcmlnZW4gbm8gcHVlZGUgdGVuZXIgbWVkaWFuYQpgYGB7cn0KbWVkaWFuYV9jYW50aWRhZCA8LSBtZWRpYW4oc2NyYXAxJENhbnRpZGFkKQptZWRpYW5hX2NhbnRpZGFkCmBgYAoKIyMjICpNb2RhKgpgYGB7cn0KbW9kZSA8LSBmdW5jdGlvbiAoeCkgewogIHV4IDwtIHVuaXF1ZSh4KQogIHV4IFt3aGljaC5tYXgodGFidWxhdGUobWF0Y2goeCx1eCkpKV0KfQoKbW9kZV9mZWNoYTEgPC0gbW9kZShzY3JhcDEkRmVjaGEpCm1vZGVfZmVjaGExCgptb2RlX2NhbnRpZGFkIDwtIG1vZGUoc2NyYXAxJENhbnRpZGFkKQptb2RlX2NhbnRpZGFkCgptb2RlX3ViaWNhY2lvbiA8LSBtb2RlKHNjcmFwMSRVYmljYWNpw7NuLmRlLm9yaWdlbikKbW9kZV91YmljYWNpb24KYGBgCgojIyMgKkRlc3ZpYWNpw7NuIEVzdMOhbmRhcioKCiMjIyMgTGFzIHZhcmlhYmxlcyBkZSBmZWNoYSB5IHViaWNhY2nDs24gZGUgb3JpZ2VuIG5vIHB1ZWRlIHRlbmVyIGRlc3ZpYWNpb24gZXN0YW5kYXIKYGBge3J9CnZhcmlhbnphX2NhbnRpZGFkIDwtIHZhcihzY3JhcDEkQ2FudGlkYWQpCnZhcmlhbnphX2NhbnRpZGFkCgpkZXN2aWFjaW9uZXN0YW5kYXJfY2FudGlkYWQgPC0gc3FydCh2YXJpYW56YV9jYW50aWRhZCkKZGVzdmlhY2lvbmVzdGFuZGFyX2NhbnRpZGFkCmBgYAoKIyMjICpUYWJsYSoKYGBge3J9ClZhcmlhYmxlPC1jKCJGZWNoYSIsICJDYW50aWRhZCIsICJVYmljYWNpw7NuX2RlX29yaWdlbiIpCk1lZGlhPC1jKCJOQSIsIG1lZGlhX2NhbnRpZGFkLCAiTkEiKQpNZWRpYW5hPC1jKCJOQSIsbWVkaWFuYV9jYW50aWRhZCwgIk5BIikKTW9kYTwtYyhtb2RlX2ZlY2hhMSwgbW9kZV9jYW50aWRhZCwgbW9kZV91YmljYWNpb24pCkRlc3ZpYWNpb25fRXN0YW5kYXI8LWMoIk5BIiwgZGVzdmlhY2lvbmVzdGFuZGFyX2NhbnRpZGFkLCAiTkEiKQp0YWJsZTwtZGF0YS5mcmFtZShWYXJpYWJsZSxNZWRpYSxNZWRpYW5hLE1vZGEsRGVzdmlhY2lvbl9Fc3RhbmRhcikKa25pdHI6OmthYmxlKHRhYmxlKQpgYGAKCiMjIyAqQmFyIFBsb3RzKgpgYGB7cn0KIyBpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikKbGlicmFyeShnZ3Bsb3QyKQoKZ2dwbG90KHNjcmFwMSwgYWVzKHg9VWJpY2FjacOzbi5kZS5vcmlnZW4sIHk9Q2FudGlkYWQpKSArCiAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiLCBmaWxsPSJicm93biIpICsgc2NhbGVfZmlsbF9ncmV5KCkgKyAjIEFkZCBiYXJzIHRvIHRoZSBwbG90CiAgbGFicyh0aXRsZSA9ICJEb25kZSBzZSBlbmN1ZW50cmEgbGEgbWVybWEiLCAjIEFkZCBhIHRpdGxlCiAgICAgICBzdWJ0aXRsZSA9ICJSSCBlbXByZXNhIEZPUk0iLCAjIEFkZCBhIHN1YnRpdGxlCiAgICAgICBjYXB0aW9uID0gIlJlbGFjacOzbiIsICMgQWRkIGEgY2FwdGlvbgogICAgICAgeCA9ICJNZXMiKQpgYGAKCiMjIyAqRGlzcGVyc2lvbiBwbG90KgpgYGB7cn0KZ2dwbG90KGRhdGE9c2NyYXAxLCBtYXBwaW5nID0gYWVzKFViaWNhY2nDs24uZGUub3JpZ2VuLCBDYW50aWRhZCkpICsgZ2VvbV9wb2ludCgpICsgdGhlbWVfYncoKQoKYGBgCgojIyMjIEVuIGVzdGFzIGdyw6FmaWNhIHBvZGVtb3Mgb2JzZXJ2YXIgcXVlIGVuIGxhIG1hbmVyYSBkZSBjb21vIGVzdGEgZGlzdHJpYnVpZGEgbGEgZ2VuZXJhY2lvbiBkZSBlbCBzY3JhcCBkZSBsYSBlbXByZXNhIEZPUk0uIFNlIG9ic2VydmEgZGUgdW5hIG1hbmVyYSBwb3IgbXVjaGEgZGlmZXJlbmNpYSBlbiAqKnNlIGdlbmVyYSBsYSBtYXlvciBjYW50aWRhZCBlbiBsYSBwcmUtcHJvZHVjY2nDs24qKiB5IGVuIGxhIHF1ZSBtZW5vcyBzZSBwcm9kdWNlIGVsIHNjcmFwIGVzIGVuIGxhIGV0YXBhIGRlIGxhIHBvc3QtcHJvZHVjY2nDs24uIAoKIyAqKkRlbGl2ZXJ5IFBlcmZvcm1hbmNlKioKCiMjIyMgSW1wb3J0YXIgbGFzIGJhc2VzIGRlIGRhdG9zCmBgYHtyfQojIGZpbGUuY2hvb3NlKCkKYmQyIDwtIHJlYWQuY3N2KCIvVXNlcnMvbWF5cmFjYW1wb3lyYW1vcy9Eb3dubG9hZHMvRk9STSAtIERlbGl2ZXJ5IFBlcmZvcm1hbmNlIEJEIEJVRU5BLmNzdiIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoamFuaXRvcikKcGVyZm9ybWFuY2UgPC0gY2xlYW5fbmFtZXMoYmQyKQpzdW1tYXJ5KHBlcmZvcm1hbmNlKQpgYGAKCiMjICoqTGltcGllemEsIFRyYW5zZm9ybWFjacOzbiwgeSBPcmdhbml6YWNpw7NuIGRlIEJhc2VzIGRlIERhdG9zKioKCiMjIyAqQ3JlYXIgdW5hIGJhc2UgZGUgZGF0b3MgZmluYWwgcGFyYSBjYWRhIHVuYSBkZSBsYXMgw6FyZWFzIGRlIGxhIGVtcHJlc2EgRk9STSBxdWUgc2UgaW5jbHV5ZW4gZW4gYSkg4oCTIGYpLioKCiMjIyBUw6ljbmljYSAxLkJvcnJhciBjb2x1bW5hcy4KYGBge3J9CnBlcmZvcm1hbmNlIDwtIHN1YnNldChwZXJmb3JtYW5jZSwgc2VsZWN0ID0gLWMoeCwgeF8xLCB4XzIsIHhfMykpCnN1bW1hcnkocGVyZm9ybWFuY2UpCmBgYAoKIyMjIFTDqWNuaWNhIDIuQ29udmVydGlyIGRlIGNhcmFjdGVyIGEgZmVjaGEKYGBge3J9CnBlcmZvcm1hbmNlJGZlY2hhIDwtIGFzLkRhdGUocGVyZm9ybWFuY2UkZmVjaGEsIGZvcm1hdCA9ICIlZC8lbS8lWSIpCnRpYmJsZShwZXJmb3JtYW5jZSkKCmBgYAoKIyMjIFTDqWNuaWNhIDMuQ29udmVydGlyIGRlIGNhcmFjdGVyIGEgZW50ZXJvIApgYGB7cn0KcGVyZm9ybWFuY2UkcHJpbnRlbCA8LSBzdWJzdHIocGVyZm9ybWFuY2UkcHJpbnRlbCwgc3RhcnQgPSAxLCBzdG9wID0gMikKdGliYmxlKHBlcmZvcm1hbmNlKQpwZXJmb3JtYW5jZSRwcmludGVsIDwtIGFzLm51bWVyaWMocGVyZm9ybWFuY2UkcHJpbnRlbCkKc3RyKHBlcmZvcm1hbmNlKQoKcGVyZm9ybWFuY2UkbWFobGUgPC0gc3Vic3RyKHBlcmZvcm1hbmNlJG1haGxlLCBzdGFydCA9IDEsIHN0b3AgPSAyKQpwZXJmb3JtYW5jZSRtYWhsZSA8LSBhcy5udW1lcmljKHBlcmZvcm1hbmNlJG1haGxlKQoKcGVyZm9ybWFuY2UkbWFnbmEgPC0gc3Vic3RyKHBlcmZvcm1hbmNlJG1hZ25hLCBzdGFydCA9IDEsIHN0b3AgPSAyKQpwZXJmb3JtYW5jZSRtYWduYSA8LSBhcy5udW1lcmljKHBlcmZvcm1hbmNlJG1hZ25hKQpzdHIocGVyZm9ybWFuY2UpCgpwZXJmb3JtYW5jZSR2YXJyb2MgPC0gc3Vic3RyKHBlcmZvcm1hbmNlJHZhcnJvYywgc3RhcnQgPSAxLCBzdG9wID0gMikKcGVyZm9ybWFuY2UkdmFycm9jIDwtIGFzLm51bWVyaWMocGVyZm9ybWFuY2UkdmFycm9jKQpzdHIocGVyZm9ybWFuY2UpCmBgYAoKIyMjIFTDqWNuaWNhIDQuUmVlbXBsYXphciBOQXMgY29uIGxhIG1lZGlhbmEgZGUgY2FkYSB2YXJpYWJsZQpgYGB7cn0Kc2FwcGx5KHBlcmZvcm1hbmNlLCBmdW5jdGlvbih4KSBzdW0oaXMubmEoeCkpKQoKcGVyZm9ybWFuY2UkZmVjaGFbaXMubmEocGVyZm9ybWFuY2UkZmVjaGEpXTwtbWVkaWFuKHBlcmZvcm1hbmNlJGZlY2hhLCBuYS5ybSA9IFRSVUUpCnBlcmZvcm1hbmNlJHByaW50ZWxbaXMubmEocGVyZm9ybWFuY2UkcHJpbnRlbCldPC1tZWRpYW4ocGVyZm9ybWFuY2UkcHJpbnRlbCwgbmEucm0gPSBUUlVFKQpwZXJmb3JtYW5jZSRtYWhsZVtpcy5uYShwZXJmb3JtYW5jZSRtYWhsZSldPC1tZWRpYW4ocGVyZm9ybWFuY2UkbWFobGUsIG5hLnJtID0gVFJVRSkKcGVyZm9ybWFuY2UkbWFnbmFbaXMubmEocGVyZm9ybWFuY2UkbWFnbmEpXTwtbWVkaWFuKHBlcmZvcm1hbmNlJG1hZ25hLCBuYS5ybSA9IFRSVUUpCnBlcmZvcm1hbmNlJHZhcnJvY1tpcy5uYShwZXJmb3JtYW5jZSR2YXJyb2MpXTwtbWVkaWFuKHBlcmZvcm1hbmNlJHZhcnJvYywgbmEucm0gPSBUUlVFKQpzdW1tYXJ5KHBlcmZvcm1hbmNlKQpgYGAKCiMjIyBFeHBvcnRhciBiYXNlIGRlIGRhdG9zIGxpbXBpYQpgYGB7cn0Kd3JpdGUuY3N2KHBlcmZvcm1hbmNlLCBmaWxlPSJwZXJmb3JtYW5jZV9iZF9saW1waWEuY3N2Iiwgcm93Lm5hbWVzID0gRkFMU0UpCmBgYAoKIyMgKipBbsOhbGlzaXMgRXhwbG9yYXRvcmlvIGRlIGxhcyBCYXNlcyBkZSBEYXRvcyoqCgojIyMgKk1lZGlhKgpgYGB7cn0KbWVkaWFfcHJpbnRlbCA8LSBtZWFuKHBlcmZvcm1hbmNlJHByaW50ZWwpCm1lZGlhX3ByaW50ZWwKCm1lZGlhX21haGxlIDwtIG1lYW4ocGVyZm9ybWFuY2UkbWFobGUpCm1lZGlhX21haGxlCgptZWRpYV9tYWduYSA8LSBtZWFuKHBlcmZvcm1hbmNlJG1hZ25hKQptZWRpYV9tYWduYQoKbWVkaWFfdmFycm9jIDwtIG1lYW4ocGVyZm9ybWFuY2UkdmFycm9jKQptZWRpYV92YXJyb2MKYGBgCgojIyMgKk1lZGlhbmEqCmBgYHtyfQptZWRpYW5hX3ByaW50ZWwgPC0gbWVkaWFuKHBlcmZvcm1hbmNlJHByaW50ZWwpCm1lZGlhbmFfcHJpbnRlbAoKbWVkaWFuYV9tYWhsZSA8LSBtZWRpYW4ocGVyZm9ybWFuY2UkbWFobGUpCm1lZGlhbmFfbWFobGUKCm1lZGlhbmFfbWFnbmEgPC0gbWVkaWFuKHBlcmZvcm1hbmNlJG1hZ25hKQptZWRpYW5hX21hZ25hCgptZWRpYW5hX3ZhcnJvYyA8LSBtZWRpYW4ocGVyZm9ybWFuY2UkdmFycm9jKQptZWRpYW5hX3ZhcnJvYwpgYGAKCiMjIyAqTW9kYSogCmBgYHtyfQptb2RlIDwtIGZ1bmN0aW9uKHgpIHsKICB1eCA8LSB1bmlxdWUoeCkKICB1eFt3aGljaC5tYXgodGFidWxhdGUobWF0Y2goeCwgdXgpKSldCn0KbW9kYV9wcmludGVsIDwtIG1vZGUocGVyZm9ybWFuY2UkcHJpbnRlbCkKbW9kYV9wcmludGVsCgptb2RhX21haGxlIDwtIG1vZGUocGVyZm9ybWFuY2UkbWFobGUpCm1vZGFfbWFobGUKCm1vZGFfbWFnbmEgPC0gbW9kZShwZXJmb3JtYW5jZSRtYWduYSkKbW9kYV9tYWduYQoKbW9kYV92YXJyb2MgPC0gbW9kZShwZXJmb3JtYW5jZSR2YXJyb2MpCm1vZGFfdmFycm9jCmBgYAoKIyMjICpWYXJpYW56YSoKYGBge3J9CnZhcmlhbnphX3ByaW50ZWwgPC12YXIocGVyZm9ybWFuY2UkcHJpbnRlbCkKdmFyaWFuemFfcHJpbnRlbAoKdmFyaWFuemFfbWFobGUgPC12YXIocGVyZm9ybWFuY2UkbWFobGUpCnZhcmlhbnphX21haGxlCgp2YXJpYW56YV9tYWduYSA8LXZhcihwZXJmb3JtYW5jZSRtYWduYSkKdmFyaWFuemFfbWFnbmEKCnZhcmlhbnphX3ZhcnJvYyA8LXZhcihwZXJmb3JtYW5jZSR2YXJyb2MpCnZhcmlhbnphX3ZhcnJvYwpgYGAKCiMjIyAqRGVzdmlhY2nDs24gRXN0w6FuZGFyKgpgYGB7cn0KZGVzdmlhY2lvbl9wcmludGVsIDwtIHNxcnQodmFyaWFuemFfcHJpbnRlbCkKZGVzdmlhY2lvbl9wcmludGVsCgpkZXN2aWFjaW9uX21haGxlIDwtIHNxcnQodmFyaWFuemFfbWFobGUpCmRlc3ZpYWNpb25fbWFobGUKCmRlc3ZpYWNpb25fbWFnbmEgPC0gc3FydCh2YXJpYW56YV9tYWduYSkKZGVzdmlhY2lvbl9tYWduYQoKZGVzdmlhY2lvbl92YXJyb2MgPC0gc3FydCh2YXJpYW56YV92YXJyb2MpCmRlc3ZpYWNpb25fdmFycm9jCmBgYAoKIyMjICpUYWJsYSoKYGBge3J9ClZhcmlhYmxlMiA8LWMoIlByaW50ZWwiLCJNYWhsZSIsICJNYWduYSIsICJWYXJyb2MiKQpQcm9tZWRpbzIgPC1jKCIwLjMzOSIsICIyLjIwOSIsIjAiLCAiMCIpCk1vZGEyIDwtYygiICIsIiAiLCIgIiwgIiAiKQpNZWRpYW5hMiA8LWMoIjAiLCIzIiwiMCIsICIwIikKVmFyaWFuemEyIDwtYygiMC40NDEiLCIyLjkwOSIsIjAiLCAiMCIpCkRlc3ZpYWNpw7NuX0VzdMOhbmRhcjIgPC1jICgiMC42NjQiLCIxLjcwNSIsIjAiLCAiMCIpCnRhYmxhMiA8LWRhdGEuZnJhbWUoVmFyaWFibGUyLFByb21lZGlvMiwgTW9kYTIsIE1lZGlhbmEyLCBWYXJpYW56YTIsIERlc3ZpYWNpw7NuX0VzdMOhbmRhcjIpCnRhYmxhMgprbml0cjo6a2FibGUodGFibGEyKQpgYGAKCiMjIyAqRGlzcGVyc2lvbiBwbG90KgpgYGB7cn0KZ2dwbG90KHBlcmZvcm1hbmNlLGFlcyh4PWZlY2hhKSkrCiAgZ2VvbV9saW5lKGFlcyh5PXByaW50ZWwpLGNvbG9yPSJibHVlIikrCiAgZ2VvbV9saW5lKGFlcyh5PW1haGxlKSxjb2xvcj0ib3JhbmdlIikrCiAgZ2VvbV9saW5lKGFlcyh5PW1hZ25hKSxjb2xvcj0iZ3JlZW4iKSsKICBnZW9tX2xpbmUoYWVzKHk9dmFycm9jKSxjb2xvcj0iZ3JlZW4iKSsKICBsYWJzKHg9IkZlY2hhIix5PSJSZXRyYXNvIGVuIGhvcmFzIiwgY29sb3I9IkxlZ2VuZCIpKwogIGdndGl0bGUoIlJldHJhc29zIGRlIGVudHJlZ2EgcG9yIGNsaWVudGUiKQpgYGAKCiMjIyMgRW4gZXN0YSBncsOhZmljYSBwb2RlbW9zIG9ic2VydmFyIHF1ZSBGT1JNIGNvbiAqKmxvcyBjbGllbnRlcyBNYWduYSB5IFZhcnJvYyBubyBwcmVzZW50YW4gaG9yYXMgZGUgcmV0cmFzbyBlbiBzdXMgcGVkaWRvcyoqLCBzaW4gZW1iYXJnbywgY29uICoqTWFobGUgeSBQcmludGVsIHNpIGhhbiBwcmVzZW50YWRvIHJldHJhc29zIGNvbnNpZGVyYWJsZXMgcHJpbmljaXBhbG1lbnRlIGRlbnRybyBkZWwgcHJpbWVyIHRyaW1lc3RyZSBkZWwgMjAyMioqLiBUZW5pZW5kbyByZXRyYXNvcyBkZSBoYXN0YSAyMCBob3Jhcy4KCiMgKipEZWxpdmVyeSBQbGFuKioKCiMjIyMgSW1wb3J0YXIgbGFzIGJhc2VzIGRlIGRhdG9zCmBgYHtyfQpsaWJyYXJ5KGRhdGEudGFibGUpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkocGx5cikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KG5hbmlhcikKbGlicmFyeShIbWlzYykgICAgICAgICAKbGlicmFyeShwc3ljaCkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoamFuaXRvcikKbGlicmFyeShrbml0cikKbGlicmFyeShwb2xsc3RlcikKbGlicmFyeShlcGlEaXNwbGF5KQpsaWJyYXJ5KGRlc2NyKQpsaWJyYXJ5KHRpZHlyKQpsaWJyYXJ5KGdnZWFzeSkKbGlicmFyeShzdHJpbmdyKQpsaWJyYXJ5KHBhdGNod29yaykKCiMgZmlsZS5jaG9vc2UoKQpiZCA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL0RlbGl2ZXJ5IFBsYW4gRklOQUwgLSBFUVVJUE8gNCAuY3N2IikKYGBgCgojIyAqKkxpbXBpZXphLCBUcmFuc2Zvcm1hY2nDs24sIHkgT3JnYW5pemFjacOzbiBkZSBCYXNlcyBkZSBEYXRvcyoqCgojIyMgKkNyZWFyIHVuYSBiYXNlIGRlIGRhdG9zIGZpbmFsIHBhcmEgY2FkYSB1bmEgZGUgbGFzIMOhcmVhcyBkZSBsYSBlbXByZXNhIEZPUk0gcXVlIHNlIGluY2x1eWVuIGVuIGEpIOKAkyBmKS4qCgojIyMgVMOpY25pY2EgMS4gQWNvbmRpY2lvbmFyIG5vbWJyZXMgYSBmb3JtYXRvIMOzcHRpbW8gcGFyYSBSCmBgYHtyfQpiZCA8LSBjbGVhbl9uYW1lcyhiZCkKYGBgCgojIyMgVMOpY25pY2EgMi5VbmlyIGxvcyBwZWRpZG9zIHByb2dyYW1hZG9zIGVuIHVuYSBzb2xhIGNvbHVtbmEuCmBgYHtyfQpiZCA8LSBiZCAlPiUgZHBseXI6OnJlbmFtZShjbGllbnRlPWNsaWVudGVfcGxhbnRhLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIEFfanVuXzIxPWp1bmlvLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIEJfanVsXzIxPWp1bGlvLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIENfYWdvXzIxPWFnb3N0bywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEX3NlcF8yMT1zZXB0aWVtYnJlLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVfb2N0XzIxPW9jdHVicmUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRl9ub3ZfMjE9bm92aWVtYnJlLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIEdfZGljXzIxPWRpY2llbWJyZSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBIX2VuZV8yMj1lbmVfMjIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSV9mZWJfMjI9ZmViXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgSl9tYXJfMjI9bWFyXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgS19hYnJfMjI9YWJyXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgTF9tYXlfMjI9bWF5XzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgTV9qdW5fMjI9anVuXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgTl9qdWxfMjI9anVsXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgT19hZ29fMjI9YWdvXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgUF9zZXBfMjI9c2VwXzIyLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgUV9vY3RfMjI9b2N0dWJyZV8yMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFJfbm92XzIyPW5vdl8yMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFNfZGljXzIyPWRpY18yMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRfZW5lXzIzPWVuZV8yMywKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFVfZmViXzIzPWZlYl8yMywKICAgICAgICAgICAgICAgICAgICAgICAgICAgIFZfbWFyXzIzPWZlYl8yMwogICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICApCmNvbG5hbWVzKGJkKQpiZCA8LSBwaXZvdF9sb25nZXIoYmQsIGNvbHM9NToxNCwgbmFtZXNfdG8gPSAiTWVzIiwgdmFsdWVzX3RvID0gIlVuaWRhZGVzIikKc3RyKGJkKQpgYGAKCiMjIyBUw6ljbmljYSAzLkVsaW1pbmFjacOzbiBkZSBjZXJvcyBlbiBsYSBiYXNlIGRlIGRhdG9zIHBhcmEgZWxpbWluYXIgcmVuZ29sZXMvY2xpZW50ZXMgc2luIHJlZ2lzdHJvcwpgYGB7cn0KYmQxIDwtIGZpbHRlcihiZCwgVW5pZGFkZXM+MCkKYGBgCgojIyMgVMOpY25pY2EgNC5FbGltaW5hY2nDs24gZGUgdmFyaWFibGVzIGlycmVsZXZhbnRlcy4gRW4gZXN0ZSBjYXNvLCBkYWRvIHF1ZSBwcmV2aWFtZW50ZSBzZSB1bmllcm9uIChtZXJnZSkgbGFzIHZhcmlhYmxlcyBkZSBtZXMsIHNvbG8gc2UgY29uc2lkZXJhIG5lY2VzYXJpYSBsYSB2YXJpYWJsZXMgZGUgY2xpZW50ZSwgZmVjaGEgeSBVbmlkYWRlcwpgYGB7cn0KYmQyIDwtIGJkMSAgICAgICAgIApiZDIgPC0gc3Vic2V0IChiZDEsIHNlbGVjdCA9IC1jIChwcm95ZWN0bywgaWRfb2RvbywgaXRlbSwgS19hYnJfMjIsIExfbWF5XzIyLCBNX2p1bl8yMixOX2p1bF8yMixPX2Fnb18yMiwgUF9zZXBfMjIsIFFfb2N0XzIyLCBSX25vdl8yMiwgIFNfZGljXzIyLCBUX2VuZV8yMywgVl9tYXJfMjMsIG1hcl8yMywgdG90YWxfbWVzZXMpKQpzdW1tYXJ5KGJkMikKYGBgCgojIyMgRXhwb3J0YXIgYmFzZSBkZSBkYXRvcyBsaW1waWEKYGBge3J9CkRlbGl2ZXJ5X1BsYW4gPC0gYmQyCndyaXRlLmNzdihEZWxpdmVyeV9QbGFuLCBmaWxlID0gIkRkZWxpdmVyeXBsYW5fYmRfbGltcGlhLmNzdiIsIHJvdy5uYW1lcyA9IEZBTFNFKQpgYGAKCiMjICoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqKgoKIyMjICpNZWRpYSoKYGBge3J9Ck1lZGlhIDwtIG1lYW4oYmQyJFVuaWRhZGVzKQpNZWRpYQpgYGAKCiMjIyAqTWVkaWFuYSoKYGBge3J9Ck1lZGlhbmEgPC0gbWVkaWFuKGJkMiRVbmlkYWRlcykKTWVkaWFuYQpgYGAKCiMjIyAqTW9kYSoKYGBge3J9Cm1vZGUgPC0gZnVuY3Rpb24oeCkgewogIHV4IDwtIHVuaXF1ZSh4KQogIHV4W3doaWNoLm1heCh0YWJ1bGF0ZShtYXRjaCh4LCB1eCkpKV0KfQoKTW9kYV9jbGllbnRlcyA8LSBtb2RlKGJkMiRjbGllbnRlKSAgCk1vZGFfY2xpZW50ZXMKCk1vZGFfbWVzIDwtIG1vZGUoYmQyJE1lcykgIApNb2RhX21lcwoKTW9kYV91bmlkYWRlcyA8LSBtb2RlKGJkMiRVbmlkYWRlcykgIApNb2RhX3VuaWRhZGVzCmBgYAoKIyMjICpWYXJpYW56YSoKYGBge3J9CnZhcmlhbnphX3VuaWRhZGVzX3Byb2cgPC0gdmFyKGJkMiRVbmlkYWRlcykKdmFyaWFuemFfdW5pZGFkZXNfcHJvZwpgYGAKCiMjIyAqRGVzdmlhY2nDs24gRXN0w6FuZGFyKgpgYGB7cn0KZGVzdmlhY2lvbl91bmlkYWRlc19wcm9nPC0gc3FydCh2YXJpYW56YV91bmlkYWRlc19wcm9nKQpkZXN2aWFjaW9uX3VuaWRhZGVzX3Byb2cKYGBgCgojIyMgKlRhYmxhKgpgYGB7cn0KVmFyaWFibGU8LWMoIlVuaWRhZGVzIiwgIk1lcyIsICJjbGllbnRlIikKTWVkaWE8LWMoTWVkaWEsICJOQSIsICJOQSIpCk1lZGlhbmE8LWMoTWVkaWFuYSwgIk5BIiwgIk5BIikKTW9kYTwtYyhNb2RhX3VuaWRhZGVzLCBNb2RhX21lcywgTW9kYV9jbGllbnRlcykKRGVzdmlhY2lvbl9Fc3RhbmRhcjwtYygiMTAwMi44MzQiLCAiTkEiLCAiTkEiKQp0YWJsZTEgPC0gZGF0YS5mcmFtZShWYXJpYWJsZSwgTWVkaWEsIE1lZGlhbmEsIE1vZGEsIERlc3ZpYWNpb25fRXN0YW5kYXIpCmtuaXRyOjprYWJsZSh0YWJsZSkKYGBgCgojIyMgKkRpc3BlcnNpb24gcGxvdHMqCmBgYHtyfQpnZ3Bsb3QoYmQyLCBhZXMoeCA9IGJkMiRNZXMsIHkgPSBiZDIkVW5pZGFkZXMpKSArIAogIGdlb21fcG9pbnQoc2hhcGU9MTksIHNpemU9MykgKyAKICBsYWJzKHRpdGxlID0gIlJlbGFjacOzbiBlbnRyZSBVbmlkYWRlcyB5IE1lc2VzIixjYXB0aW9uID0iRk9STSBNZXJtYSIseD0iTWVzIiwgeT0iVW5pZGFkZXMiKSArIAogIHRoZW1lX2NsYXNzaWMoKQpgYGAKCiMjIyMgR3LDoWZpY2EgZGUgbG9zIGHDsW9zIDIwMjEgeSAyMDIyIGVzdGFibGVjaWVuZG8gY3VhbnRhcyB1bmlkYWRlcyBzZSB2ZW5kaWVyb24gcG9yIG1lcywgcG9kZW1vcyB2ZXIgcXVlIGVuICoqSnVuaW8gMjAyMSB0dXZpZXJvbiB1biBhdW1lbnRvIGRpc21pbnV5ZW5kbyBlbiBsb3MgcHJveGltb3MgbWVzZXMqKiB5IHZvbHZpbyBhIHN1YmlyIGVuIGVsIGHDsW8gMjAyMiBFc3RhIGdyw6FmaWNhIG5vcyBheXVkYSB2ZXIgbGEgcmVsYWNpb24gcXVlIHRpZW5lbiBsYXMgdW5pZGFkZXMgeSBsb3MgbWVzZXMgZGUgYcOxbywgcGFyYSBhc2kgcG9kZXIgZW5jb250cmFyIHBhdHJvbmVzIGVuIGxhIGJhc2UgZGUgZGF0b3MgcGFyYSB2ZXIgZW4gcXVlIG1lc2VzIHNlIGhhY2VuIG1hcyBwZWRpZG9zLgoKIyMjICpCYXIgcGxvdHMqCmBgYHtyfQpnZ3Bsb3QoYmQyLCBhZXMoTWVzLFVuaWRhZGVzKSkgKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiKSArCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQyIikgKyBnZ3RpdGxlKCJVbmlkYWRlcyB2ZW5kaWRhcyBwb3IgTWVzIikKYGBgCgojIyMjIENvbiBsYSBzZWd1bmRhIGdyw6FmaWNhLCBzZSB1c28gdW5hIGdyw6FmaWNhIGRlIGJhcnJhcywgYXF1aSBzZSBlc3RhIGFuYWxpemFuZG8gbGFzIHVuaWRhZGVzIHZlbmRpZGFzIHBvciBtZXMsIHBvZGVtb3Mgb2JzZXJ2YXIgY3VhbnRhcyB1bmlkYWRlcyBzZSB2ZW5kZW4gZW4gRk9STSBwb2RlbW9zIG9ic2VydmFyIGVuIGxhIGdyw6FmaWNhIHF1ZSAqKmRlc2RlIEpVTElPIGRlbCBhw7FvIHBhc2FkbyBzdXMgcGVkaWRvcyBiYWphcm9uIHVuIHBvY28gcGVybyBzaWVtcHJlIHNlIGhhbiBtYW50ZW5pZG8gZXN0YWJsZXMsIHRlbmllbmRvIHVuIHBlYWsgZW4gTUFSWk8gZGUgZXN0ZSBhw7FvLioqCgojICoqUmVjdXJzb3MgSHVtYW5vcyBDb2xhYm9yYWRvcmVzKioKCiMjIyMgSW1wb3J0YXIgbGFzIGJhc2VzIGRlIGRhdG9zCmBgYHtyfQojIGZpbGUuY2hvb3NlKCkKYmQgPC0gcmVhZC5jc3YoICIvVXNlcnMvbWF5cmFjYW1wb3lyYW1vcy9EZXNrdG9wL0FuYWxpc2lzIGRlIERhdG9zIENvbmNlbnRyYWNpb24vUmV0by9GT1JNIC0gUmVjdXJzb3MgSHVtYW5vcyAtIGNvbGFib3JhZG9yZXMuY3N2IikKIyBpbnN0YWxsLnBhY2thZ2VzKCJkcGx5ciIpCmxpYnJhcnkoZHBseXIpCiMgaW5zdGFsbC5wYWNrYWdlcygiamFuaXRvciIpCmxpYnJhcnkoamFuaXRvcikKY29sYWJvcmFkb3JlcyA8LSBjbGVhbl9uYW1lcyhiZCkKc3VtbWFyeShjb2xhYm9yYWRvcmVzKQpgYGAKCiMjICoqTGltcGllemEsIFRyYW5zZm9ybWFjacOzbiwgeSBPcmdhbml6YWNpw7NuIGRlIEJhc2VzIGRlIERhdG9zKioKCiMjIyAqQ3JlYXIgdW5hIGJhc2UgZGUgZGF0b3MgZmluYWwgcGFyYSBjYWRhIHVuYSBkZSBsYXMgw6FyZWFzIGRlIGxhIGVtcHJlc2EgRk9STSBxdWUgc2UgaW5jbHV5ZW4gZW4gYSkg4oCTIGYpLioKCiMjIyBUw6ljbmljYSAxLiBCb3JyYXIgY29sdW1uYXMuCmBgYHtyfQpjb2xhYm9yYWRvcmVzIDwtIHN1YnNldChjb2xhYm9yYWRvcmVzLCBzZWxlY3QgPSAtYyhub19lbXBsZWFkbywgbm9tYnJlX2NvbXBsZXRvLCBmZWNoYV9hbHRhLCBtYW5vX2RlX29icmEpKQpgYGAKCiMjIyBUw6ljbmljYSAyLiBSZWVtcGxlemFyIE5BcyBjb24gZWwgcHJvbWVkaW8gZW4gbGEgY29sdW1uYSBkZSAiU2FsYXJpbyBEaWFyaW8iCmBgYHtyfQpjb2xhYm9yYWRvcmVzJHNhbGFyaW9fZGlhcmlvW2lzLm5hKGNvbGFib3JhZG9yZXMkc2FsYXJpb19kaWFyaW8pXTwtbWVhbihjb2xhYm9yYWRvcmVzJHNhbGFyaW9fZGlhcmlvLCBuYS5ybSA9IFRSVUUpCnN1bW1hcnkgKGNvbGFib3JhZG9yZXMpCmBgYAoKIyMjIEV4cG9ydGFyIGJhc2UgZGUgZGF0b3MgbGltcGlhCmBgYHtyfQp3cml0ZS5jc3YoY29sYWJvcmFkb3JlcywgZmlsZT0iY29sYWJvcmFkb3Jlc19iZF9saW1waWEuY3N2Iiwgcm93Lm5hbWVzID0gRkFMU0UpCmBgYAoKIyMgKipBbsOhbGlzaXMgRXhwbG9yYXRvcmlvIGRlIGxhcyBCYXNlcyBkZSBEYXRvcyoqCgojIyMgKk1lZGlhKgpgYGB7cn0KbWVkaWFfZWRhZCA8LSBtZWFuKGNvbGFib3JhZG9yZXMkZWRhZCkKbWVkaWFfZWRhZAoKbWVkaWFfYW50aWd1ZWRhZCA8LSBtZWFuKGNvbGFib3JhZG9yZXMkYW50aWd1ZWRhZCkKbWVkaWFfYW50aWd1ZWRhZAoKbWVkaWFfc2FsYXJpbyA8LSBtZWFuKGNvbGFib3JhZG9yZXMkc2FsYXJpb19kaWFyaW8pCm1lZGlhX3NhbGFyaW8KYGBgCgojIyMgKk1lZGlhbmEqCmBgYHtyfQptZWRpYW5hX2VkYWQgPC0gbWVkaWFuKGNvbGFib3JhZG9yZXMkZWRhZCkKbWVkaWFuYV9lZGFkCgptZWRpYW5hX2FudGlndWVkYWQgPC0gbWVkaWFuKGNvbGFib3JhZG9yZXMkYW50aWd1ZWRhZCkKbWVkaWFuYV9hbnRpZ3VlZGFkCgptZWRpYW5hX3NhbGFyaW8gPC0gbWVkaWFuKGNvbGFib3JhZG9yZXMkc2FsYXJpb19kaWFyaW8pCm1lZGlhbmFfc2FsYXJpbyAKYGBgCgojIyMgKk1vZGEqIApgYGB7cn0KbW9kZSA8LSBmdW5jdGlvbih4KSB7CiAgdXggPC0gdW5pcXVlKHgpCiAgdXhbd2hpY2gubWF4KHRhYnVsYXRlKG1hdGNoKHgsIHV4KSkpXQp9Cm1vZGFfZWRhZCA8LSBtb2RlKGNvbGFib3JhZG9yZXMkZWRhZCkKbW9kYV9lZGFkCgptb2RhX2FudGlndWVkYWQgPC0gbW9kZShjb2xhYm9yYWRvcmVzJGFudGlndWVkYWQpCm1vZGFfYW50aWd1ZWRhZAoKbW9kYV9zYWxhcmlvIDwtIG1vZGUoY29sYWJvcmFkb3JlcyRzYWxhcmlvX2RpYXJpbykKbW9kYV9zYWxhcmlvIApgYGAKCiMjIyAqVmFyaWFuemEqCmBgYHtyfQp2YXJpYW56YV9lZGFkIDwtdmFyKGNvbGFib3JhZG9yZXMkZWRhZCkKdmFyaWFuemFfZWRhZAoKdmFyaWFuemFfYW50aWd1ZWRhZCA8LXZhcihjb2xhYm9yYWRvcmVzJGFudGlndWVkYWQpCnZhcmlhbnphX2FudGlndWVkYWQKCnZhcmlhbnphX3NhbGFyaW8gPC12YXIoY29sYWJvcmFkb3JlcyRzYWxhcmlvX2RpYXJpbykKdmFyaWFuemFfc2FsYXJpbwpgYGAKCiMjIyAqRGVzdmlhY2nDs24gRXN0w6FuZGFyKgpgYGB7cn0KZGVzdmlhY2lvbl9lZGFkIDwtIHNxcnQodmFyaWFuemFfZWRhZCkKZGVzdmlhY2lvbl9lZGFkCgpkZXN2aWFjaW9uX2FudGlndWVkYWQgPC0gc3FydCh2YXJpYW56YV9hbnRpZ3VlZGFkKQpkZXN2aWFjaW9uX2FudGlndWVkYWQKCmRlc3ZpYWNpb25fc2FsYXJpbyA8LSBzcXJ0KHZhcmlhbnphX3NhbGFyaW8pCmRlc3ZpYWNpb25fc2FsYXJpbwoKYGBgCgojIyMgKlRhYmxhKgpgYGB7cn0KVmFyaWFibGUgPC1jKCJFZGFkIiwiQW50aWd1ZWRhZCIsIlNhbGFyaW8gRGlhcmlvIikKUHJvbWVkaW8gPC1jKCIzNiIsICIxLjQyIiwiMTc5LjA5OCIpCk1vZGEgPC1jKCIzMiIsIjAiLCIxODAuNjgiKQpNZWRpYW5hIDwtYygiMzQiLCIwIiwiMTgwLjY4IikKVmFyaWFuemEgPC1jKCIxNjUuMDA1IiwiNi4zNTMiLCI1ODkuNzIyIikKRGVzdmlhY2nDs25fRXN0w6FuZGFyIDwtYyAoIjEyLjg0NSIsIjIuNTIwIiwiMjQuMjg0IikKdGFibGEgPC1kYXRhLmZyYW1lKFZhcmlhYmxlLFByb21lZGlvLCBNb2RhLCBNZWRpYW5hLCBWYXJpYW56YSwgRGVzdmlhY2nDs25fRXN0w6FuZGFyKQp0YWJsYQprbml0cjo6a2FibGUodGFibGEpCmBgYAoKIyMjICpCYXIgUGxvdHMqCmBgYHtyfQpoaXN0KGNvbGFib3JhZG9yZXMkZWRhZCwgZnJlcT1UUlVFLCBjb2w9InB1cnBsZSIsIG1haW49IkVkYWQgZW4gYcOxb3MgZGUgbG9zIENvbGFib3JhZG9yZXMgYWN0dWFsZXMiKQpgYGAKCiMjIyMgQ29uIGVzdGFzIGdyw6BmaWNhIHBvZGVtb3Mgb2JzZXJ2YXIgcXVlIGxvcyBjb2xhYm9yYWRvcmVzIGFjdHVhbGVzIGVuIHByb21lZGlvIHRpZW5lbiBlbnRyZSAyMC00MCBhw7Fvcy4gCgpgYGB7cn0KZ2dwbG90KGNvbGFib3JhZG9yZXMsIGFlcyh4PWdlbmVybywgeT1zYWxhcmlvX2RpYXJpbywgZmlsbD1nZW5lcm8pKSArIAogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikgKyAKICBmYWNldF9ncmlkKH5lc3RhZG9fY2l2aWwpICsgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQyIikKYGBgCgojIyMgQ29uIGVzdGUgZ3LDoGZpY28gcG9kZW1vcyBvYnNlcnZhciBxdWUgbG9zIHF1ZSBlc3RhbiBjYXNhZG9zIHkgc29sdGVyb3Mgc3VlbGVuIGdhbmFyIG3DoHMgZGUgbG9zIHF1ZSBlc3RhbiBkaXZvcmNpYWRvcyB5IGVuIHVuacOybiBsaWJyZS4gQWRlbcOgcywgKipsb3MgaG9tYnJlcyBjYXNhZG9zIHkgbGFzIG11amVyZXMgc29sdGVyYXMgc29uIGxvcyBxdWUgZ2FuYW4gbcOgcy4qKgoKIyMjICpEaXNwZXJzaW9uIHBsb3QqCmBgYHtyfQpnZ3Bsb3QoZGF0YT1jb2xhYm9yYWRvcmVzLCBtYXBwaW5nID0gYWVzKGVkYWQsIHNhbGFyaW9fZGlhcmlvKSkgKyBnZW9tX3BvaW50KGFlcyhjb2xvciA9IGdlbmVybykpICsgdGhlbWVfYncoKQpgYGAKCiMjIyMgQ29uIGVzdGFzIGdyw6BmaWNhcyBwb2RlbW9zIG9ic2VydmFyIHF1ZSBlbCBjb2xhYm9yYWRvciBxdWUgZ2FuYSBtw6BzIGVzIG11amVyIHkgbGFzIHF1ZSBnYW5hbiBtZW5vcyB0YW1iacOobi4gU2luIGVtYmFyZ28sICoqZWwgcHJvbWVkaW8gZGUgc2FsYXJpbyBnYW5hZG8gcG9yIGxvcyBjb2xhYm9yYWRvcmVzIGRlIHRvZGFzIGxhcyBlZGFkZXMgZXMgZGUgYXByb3hpbWFkYW1lbnRlIDE3MCBwZXNvcyBkaWFyaW9zLioqCgojICoqUmVjdXJzb3MgSHVtYW5vcyBCYWphcyoqCgojIyMjIEltcG9ydGFyIGxhcyBiYXNlcyBkZSBkYXRvcwpgYGB7cn0KIyBmaWxlLmNob29zZSgpCmJkMSA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL1JldG8vRk9STSAtIFJlY3Vyc29zIEh1bWFub3MgLSBiYWphcy5jc3YiKQpiYWphcyA8LSBjbGVhbl9uYW1lcyhiZDEpCnN1bW1hcnkoYmFqYXMpCmBgYAoKIyMgKipMaW1waWV6YSwgVHJhbnNmb3JtYWNpw7NuLCB5IE9yZ2FuaXphY2nDs24gZGUgQmFzZXMgZGUgRGF0b3MqKgoKIyMjICpDcmVhciB1bmEgYmFzZSBkZSBkYXRvcyBmaW5hbCBwYXJhIGNhZGEgdW5hIGRlIGxhcyDDoXJlYXMgZGUgbGEgZW1wcmVzYSBGT1JNIHF1ZSBzZSBpbmNsdXllbiBlbiBhKSDigJMgZikuKgoKIyMjIFTDqWNuaWNhIDEuQm9ycmFyIGNvbHVtbmFzLgpgYGB7cn0KYmFqYXMgPC0gc3Vic2V0KGJhamFzLCBzZWxlY3QgPSAtYyhub19lbXBsZWFkbywgbm9tYnJlX2NvbXBsZXRvLCBmZWNoYV9hbHRhKSkKYGBgCgojIyMgVMOpY25pY2EgMi4gUmVlbXBsYXphciBOQSBjb24gQ0VST1MgZW4gbGEgY29sdW1uYSBkZSAiQW50aWfDvGVkYWQiIHlhIHF1ZSBlcyBsYSBNZWRpYW5hIHkgTW9kYS4KYGBge3J9CmJhamFzJGFudGlndWVkYWRbaXMubmEoYmFqYXMkYW50aWd1ZWRhZCldPC0wCmBgYAoKIyMjIFJlZW1wbGV6YXIgTkFzIGNvbiBlbCBwcm9tZWRpbyBlbiBsYSBjb2x1bW5hIGRlICJFZGFkIiB5ICJTYWxhcmlvIERpYXJpbyIKYGBge3J9CmJhamFzJGVkYWRbaXMubmEoYmFqYXMkZWRhZCldPC1tZWFuKGJhamFzJGVkYWQsIG5hLnJtID0gVFJVRSkKYmFqYXMkc2FsYXJpb19kaWFyaW9baXMubmEoYmFqYXMkc2FsYXJpb19kaWFyaW8pXTwtbWVhbihiYWphcyRzYWxhcmlvX2RpYXJpbywgbmEucm0gPSBUUlVFKQpzdW1tYXJ5IChiYWphcykKYGBgCgojIyMgVMOpY25pY2EgMy5Db252ZXJ0aXIgZGUgY2FyYWN0ZXIgYSBmZWNoYQpgYGB7cn0KYmFqYXMkYmFqYSA8LSBhcy5EYXRlKGJhamFzJGJhamEsIGZvcm1hdCA9ICIlZC8lbS8lWSIpCnRpYmJsZShiYWphcykKYmFqYXMkYmFqYVtpcy5uYShiYWphcyRiYWphKV08LW1lYW4oYmFqYXMkYmFqYSwgbmEucm0gPSBUUlVFKQpzdW1tYXJ5IChiYWphcykKYGBgCgojIyMgRXhwb3J0YXIgYmFzZSBkZSBkYXRvcyBsaW1waWEKYGBge3J9CndyaXRlLmNzdihiYWphcywgZmlsZT0icmhfYmFqYXNfYmRfbGltcGlhLmNzdiIsIHJvdy5uYW1lcyA9IEZBTFNFKQpgYGAKCiMjICoqQW7DoWxpc2lzIEV4cGxvcmF0b3JpbyBkZSBsYXMgQmFzZXMgZGUgRGF0b3MqKgoKIyMjICpNZWRpYSoKYGBge3J9Cm1lZGlhX2VkYWQxIDwtIG1lYW4oYmFqYXMkZWRhZCkKbWVkaWFfZWRhZDEKCm1lZGlhX2FudGlndWVkYWQxIDwtIG1lYW4oYmFqYXMkYW50aWd1ZWRhZCkKbWVkaWFfYW50aWd1ZWRhZDEKCm1lZGlhX3NhbGFyaW8xIDwtIG1lYW4oYmFqYXMkc2FsYXJpb19kaWFyaW8pCm1lZGlhX3NhbGFyaW8xCmBgYAoKIyMjICpNZWRpYW5hKgpgYGB7cn0KbWVkaWFuYV9lZGFkMSA8LSBtZWRpYW4oYmFqYXMkZWRhZCkKbWVkaWFuYV9lZGFkMQoKbWVkaWFuYV9hbnRpZ3VlZGFkMSA8LSBtZWRpYW4oYmFqYXMkYW50aWd1ZWRhZCkKbWVkaWFuYV9hbnRpZ3VlZGFkMQoKbWVkaWFuYV9zYWxhcmlvMSA8LSBtZWRpYW4oYmFqYXMkc2FsYXJpb19kaWFyaW8pCm1lZGlhbmFfc2FsYXJpbzEKYGBgCgojIyMgKk1vZGEqIApgYGB7cn0KbW9kZSA8LSBmdW5jdGlvbih4KSB7CiAgdXggPC0gdW5pcXVlKHgpCiAgdXhbd2hpY2gubWF4KHRhYnVsYXRlKG1hdGNoKHgsIHV4KSkpXQp9Cm1vZGFfZWRhZDEgPC0gbW9kZShiYWphcyRlZGFkKQptb2RhX2VkYWQxCgptb2RhX2FudGlndWVkYWQxIDwtIG1vZGUoYmFqYXMkYW50aWd1ZWRhZCkKbW9kYV9hbnRpZ3VlZGFkMQoKbW9kYV9zYWxhcmlvMSA8LSBtb2RlKGJhamFzJHNhbGFyaW9fZGlhcmlvKQptb2RhX3NhbGFyaW8xIApgYGAKCiMjIyAqVmFyaWFuemEqCmBgYHtyfQp2YXJpYW56YV9lZGFkMSA8LXZhcihiYWphcyRlZGFkKQp2YXJpYW56YV9lZGFkMQoKdmFyaWFuemFfYW50aWd1ZWRhZDEgPC12YXIoYmFqYXMkYW50aWd1ZWRhZCkKdmFyaWFuemFfYW50aWd1ZWRhZDEKCnZhcmlhbnphX3NhbGFyaW8xIDwtdmFyKGJhamFzJHNhbGFyaW9fZGlhcmlvKQp2YXJpYW56YV9zYWxhcmlvMQpgYGAKCiMjIyAqRGVzdmlhY2nDs24gRXN0w6FuZGFyKgpgYGB7cn0KZGVzdmlhY2lvbl9lZGFkMSA8LSBzcXJ0KHZhcmlhbnphX2VkYWQxKQpkZXN2aWFjaW9uX2VkYWQxCgpkZXN2aWFjaW9uX2FudGlndWVkYWQxIDwtIHNxcnQodmFyaWFuemFfYW50aWd1ZWRhZDEpCmRlc3ZpYWNpb25fYW50aWd1ZWRhZDEKCmRlc3ZpYWNpb25fc2FsYXJpbzEgPC0gc3FydCh2YXJpYW56YV9zYWxhcmlvMSkKZGVzdmlhY2lvbl9zYWxhcmlvMQpgYGAKCiMjIyAqVGFibGEqCmBgYHtyfQpWYXJpYWJsZTEgPC1jKCJFZGFkIiwiQW50aWd1ZWRhZCIsIlNhbGFyaW8gRGlhcmlvIikKUHJvbWVkaW8xIDwtYygiMzEuMDUiLCIwLjYiLCIxNzcuOTg1IikKTW9kYTEgPC1jKCIyMiIsIjAiLCIxODAuNjgiKQpNZWRpYW5hMSA8LWMoIjI5IiwiMCIsIjE4MC42OCIpClZhcmlhbnphMSA8LWMoIjkwLjczMiIsIjAuNjY3NyIsIjUzMS45OTYiKQpEZXN2aWFjacOzbl9Fc3TDoW5kYXIxIDwtYyAoIjkuNTI1IiwiMC44MTciLCIyMy4wNjUiKQp0YWJsYTEgPC1kYXRhLmZyYW1lIChWYXJpYWJsZTEsUHJvbWVkaW8xLCBNb2RhMSwgTWVkaWFuYTEsIFZhcmlhbnphMSwgRGVzdmlhY2nDs25fRXN0w6FuZGFyMSkKdGFibGExCmtuaXRyOjprYWJsZSh0YWJsYTEpCmBgYAoKIyMjICpCYXIgUGxvdHMqCmBgYHtyfQpoaXN0KGJhamFzJGVkYWQsIGZyZXE9VFJVRSwgY29sPSJwaW5rIiwgbWFpbj0iRWRhZCBlbiBhw7FvcyBkZSBsb3MgRXgtQ29sYWJvcmFkb3JlcyIpCmBgYAoKIyMjIyAqKkxvcyBjb2xhYm9yYWRvcmVzIHF1ZSBzZSBoYW4gZGFkbyBkZSBiYWphIGVuIHN1IG1heW9yaWEgdGllbmVuIGVudHJlIDIwIHkgMzAgYcOxb3MqKiwgc2llbmRvIGFzw6wgbG9zIHF1ZSBzZSB2YW4gbcOgcyBqw7J2ZW5lcy4KCiMjIyAqR3LDoWZpY28gY3VhbGl0YXRpdm8qCmBgYHtyfQp0YWJsZShiYWphcyRtb3Rpdm9fYmFqYSkKcHJvcG9yY2lvbmVzIDwtIGMoMSwgMTQxLCAxLCA4NywgOCkKZXRpcXVldGFzIDwtIGMoIkFiYW5kb25vIiwgIkJhamEgcG9yIEZhbHRhcyIsICJKdWJpbGFjacOybiIsICJSZW51bmNpYSBWb2x1bnRhcmlhIiwgIlRlcm1pbm8gZGUgQ29udHJhdG8iKQpwY3QgPC0gcm91bmQocHJvcG9yY2lvbmVzL3N1bShwcm9wb3JjaW9uZXMpKjEwMCkKZXRpcXVldGFzIDwtIHBhc3RlKGV0aXF1ZXRhcywgcGN0KQpldGlxdWV0YXMgPC0gcGFzdGUoZXRpcXVldGFzLCIlIixzZXA9IiIpCnBpZShwcm9wb3JjaW9uZXMsbGFiZWxzID0gZXRpcXVldGFzLAogICAgY29sPXJhaW5ib3cobGVuZ3RoKGV0aXF1ZXRhcykpLAogICAgbWFpbj0iTW90aXZvIGRlIGJhamFzIGRlIGxvcyBDb2xhYm9yYWRvcmVzIikKYGBgCgojIyMjIENvbiBlc3RhIGdyw6BmaWNhIHBvZGVtb3Mgb2JzZXJ2YXIgcXVlIGVsICoqbW90aXZvIG3DoHMgY29tw7luIGRlIGJhamEgZGUgbG9zIGNvbGFib3JhZG9yZXMgaGFuIHNpZG8gcG9yIGRlc3BpZG9zIHBvciBmYWx0YXMgY29uIHVuIDU5JSoqIHkgcG9yIHJlbnVuY2lhIHZvbHVudGFyaWEgcG9yIHVuIDM3JS4KCiMgKipQcm9uw7NzdGljbyBkZWwgRGVzZW1wZcOxbyBkZSBsYSBJbmR1c3RyaWEgQXV0b21vdHJpeiB5IGxhIGVtcHJlc2EgRk9STSoqCgojIyMjIEltcG9ydGFyIGJhc2VzIGRlIGRhdG9zIApgYGB7cn0KI2ZpbGUuY2hvb3NlKCkKYmRfcHJlZGljY2lvbiA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL2VuY29kZWQtYmRfcHJlZGljY2lvbi5jc3YiKQp2ZWhpY3Vsb3NfY2lyY3VsYWNpb24gPC0gcmVhZC5jc3YoIi9Vc2Vycy9tYXlyYWNhbXBveXJhbW9zL0Rlc2t0b3AvQW5hbGlzaXMgZGUgRGF0b3MgQ29uY2VudHJhY2lvbi9lbmNvZGVkLXZlaGljdWxvc19lbl9jaXJjdWxhY2lvbiAoMikuY3N2IikKcHJvZHVjY2lvbiA8LSByZWFkLmNzdigiL1VzZXJzL21heXJhY2FtcG95cmFtb3MvRGVza3RvcC9BbmFsaXNpcyBkZSBEYXRvcyBDb25jZW50cmFjaW9uL2JkX3Byb2R1Y2Npb25fbGltcGlhICgxKS5jc3YiKQpgYGAKCiMjIyMgSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyw61hcwpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQojaW5zdGFsbC5wYWNrYWdlcygidHNlcmllcyIpCmxpYnJhcnkodHNlcmllcykKI2luc3RhbGwucGFja2FnZXMoImZvcmVjYXN0IikKbGlicmFyeShmb3JlY2FzdCkKI2luc3RhbGwucGFja2FnZXMoImFzdHNhIikKbGlicmFyeShhc3RzYSkKI2luc3RhbGwucGFja2FnZXMoImRwbHlyIikKbGlicmFyeShkcGx5cikKI2luc3RhbGwucGFja2FnZXMoImp0b29scyIpCmxpYnJhcnkoanRvb2xzKQojaW5zdGFsbC5wYWNrYWdlcygibG10ZXN0IikKbGlicmFyeShsbXRlc3QpCiNpbnN0YWxsLnBhY2thZ2VzKCJjYXIiKQpsaWJyYXJ5KGNhcikKI2luc3RhbGwucGFja2FnZXMoIm9sc3JyIikKbGlicmFyeShvbHNycikKI2luc3RhbGwucGFja2FnZXMoImNvcnJwbG90IikKbGlicmFyeShjb3JycGxvdCkKYGBgCgojIyAqKlByb27Ds3N0aWNvcyoqCgojIyMgKkRlc2VtcGXDsW8gZGUgbGEgaW5kdXN0cmlhIGF1dG9tb3RyaXogcGFyYSBsb3Mgc2lndWllbnRlcyAzIHBlcmlvZG9zIGRlIHRpZW1wbyoKIyMjIyBWZWjDrWN1bG9zIGRlIG1vdG9yIHJlZ2lzdHJhZG9zIGVuIGNpcmN1bGFjacOzbiAKCiMjIyMgRW50ZW5kZXIgbGEgYmFzZSBkZSBkYXRvcyAKYGBge3J9CnN1bW1hcnkodmVoaWN1bG9zX2NpcmN1bGFjaW9uKQpzdHIodmVoaWN1bG9zX2NpcmN1bGFjaW9uKQpgYGAKCiMjIyAqTGltcGllemEgZGUgZGF0b3MqCiMjIyMgRWxpbWluYXIgdmFyaWFibGVzIChDYW1pb25lcy55LmNhbWlvbmV0YXMucGFyYS5jYXJnYSwgTW90b2NpY2xldGFzLCBYIHkgWC4xKSAKYGBge3J9CnZlaGljdWxvc19jaXJjdWxhY2lvbjEgPC0gc3Vic2V0KHZlaGljdWxvc19jaXJjdWxhY2lvbiwgc2VsZWN0ID0gLWMgKENhbWlvbmVzLnkuY2FtaW9uZXRhcy5wYXJhLmNhcmdhLCBNb3RvY2ljbGV0YXMsIFgsIFguMSkpCnZlaGljdWxvc19jaXJjdWxhY2lvbjEKYGBgCgojIyMjIEVzdGFzIHZhcmlhYmxlcyBzZSBlbGltaW5hbiwgeWEgcXVlLCBjYW1pb25lcyB5IGNhbWlvbmV0YXMgcGFyYSBjYXJnYSB5IG1vdG9jaWNsZXRhcyBubyBzb24gZWwgcHJpbmNpcGFsIG1lcmNhZG8gZGUgRk9STSwgYWRlbcOhcyBkZSBxdWUgbG9zIGRhdG9zIGRlIHN1cyB2YXJpYWJsZXMgbm8gc29uIHNpZ25pZmljYXRpdmFzIHBhcmEgZWwgcHJvbsOzc3RpY28gcG9ycXVlIHN1cyB2YWxvcmVzIHNvbiBtdXkgcGVxdWXDsW9zIGEgY29tcGFyYWNpw7NuIGNvbiBsYXMgZGVtw6FzIHZhcmlhYmxlcywgcG9yIGxvIHRhbnRvLCBzdXMgZGF0b3Mgbm8gaW1wYWN0YW4gYWwgYW7DoWxpc2lzLCBkZSBpZ3VhbCBmb3JtYSwgc2UgZWxpbWluYSBsYSB2YXJpYWJsZSBYIHkgWC4xIHBvcnF1ZSBubyB0aWVuZW4gaW5mb3JtYWNpw7NuIHJlbGV2YW50ZS4gCgojIyMgRWxpbWluYXIgcmVuZ2xvbmVzIGlycmVsZXZhbnRlcwpgYGB7cn0KdmVoaWN1bG9zX2NpcmN1bGFjaW9uMiA8LSB2ZWhpY3Vsb3NfY2lyY3VsYWNpb24xWy1jKDQzLDQ0LDQ1LDQ2LDQ3KSxdCnZlaGljdWxvc19jaXJjdWxhY2lvbjIKc3VtbWFyeSh2ZWhpY3Vsb3NfY2lyY3VsYWNpb24yKQpgYGAKCiMjIyMgU2UgZWxpbWluYW4gZXN0b3MgcmVuZ2xvbmVzLCBkZWJpZG8gYSBxdWUgbm8gdGVuw61hbiBjb250ZW5pZG8sIGVzIGRlY2lyLCBlcmFuIGNvbnNpZGVyYWRvcyBOQcK0cy4KCiMjIyBHcsOhZmljYQpgYGB7cn0KcGxvdCh2ZWhpY3Vsb3NfY2lyY3VsYWNpb24yJEHDsW8sdmVoaWN1bG9zX2NpcmN1bGFjaW9uMiRUb3RhbCwgdHlwZT0ibCIsY29sPSJibHVlIiwgbHdkPTEuNSwgeGxhYiA9IkHDsW8iLHlsYWIgPSJVbmlkYWRlcyIsIG1haW4gPSAiVmVoaWN1bG9zIGRlIG1vdG9yIGVuIGNpcmN1bGFjacOzbiByZWdpc3RyYWRvcyBhbnVhbG1lbnRlIikKbGluZXModmVoaWN1bG9zX2NpcmN1bGFjaW9uMiRBw7FvLHZlaGljdWxvc19jaXJjdWxhY2lvbjIkQXV0b23Ds3ZpbGVzLGNvbD0icmVkIixsdHk9MykKbGVnZW5kKCJ0b3BsZWZ0IiwgbGVnZW5kPWMoIlRvdGFsIGRlIHZlaGljdWxvcyBlbiBjaXJjdWxhY2nDs24iLCAiQXV0b23Ds3ZpbGVzIGVuIGNpcmN1bGFjacOzbiIpLAogICAgICAgY29sPWMoImJsdWUiLCAicmVkIiksIGx0eSA9IDE6MiwgY2V4PTAuOCkKYGBgCgojIyMjIENvbiBlc3RlIHBsb3QsIHNlIHB1ZWRlIG9ic2VydmFyIGVsIGNvbXBvcnRhbWllbnRvIGRlIGxhcyB2YXJpYWJsZXMgeSBsYSBjb21wYXJhY2nDs24gYSB0cmF2w6lzIGRlIGxvcyBhw7FvcyBkZWwgdG90YWwgZGUgdmVoaWN1bG9zIHF1ZSBlc3TDoW4gZW4gY2lyY3VsYWNpw7NuIHkgZGUgbG9zIGF1dG9tb3ZpbGVzLiAKCiMjIyMgVGFtYmnDqW4sIHNlIHBlcmNpYmUgcXVlIGFtYmFzIGzDrW5lYXMgc29uIG11eSBzaW1pbGFyZXMsIHkgZXN0w6FuIG11eSBjZXJjYSB1bmEgZGUgbGEgb3RyYSwgcG9yIGxvIHF1ZSBzZSBwdWVkZSBkZWR1Y2lyIHF1ZSBBdXRvbcOzdmlsZXMgb2N1cGEgZWwgbWF5b3IgcG9yY2VudGFqZSBkZWwgdG90YWwuCgojIyMjIFBvciBvdHJvIGxhZG8sIGxhIGdyw6FmaWNhIHRpZW5lIHVuYSB0ZW5kZW5jaWEgZW4gc3UgbWF5b3LDrWEgY3JlY2llbnRlIHkgcG9zaXRpdmEsIGVzIGRlY2lyLCBxdWUgY2FkYSBhw7FvIGhheSBtw6FzIGF1dG9tw7N2aWxlcyBlbiBjaXJjdWxhY2nDs24uCgojIyMgRm9yZWNhc3RpbmcgdXNhbmRvIGVsIE1vZGVsbyBhdXRvcmVncmVzaXZvCmBgYHtyfQphdXRvcmVncmVzc2l2ZV9tb2RlbCA8LSBhcm1hKHZlaGljdWxvc19jaXJjdWxhY2lvbjIkVG90YWwsIG9yZGVyID0gYygxLDApKQpzdW1tYXJ5KGF1dG9yZWdyZXNzaXZlX21vZGVsIDwtIGFybWEodmVoaWN1bG9zX2NpcmN1bGFjaW9uMiRUb3RhbCwgb3JkZXIgPSBjKDEsMCkpKQoKYXV0b3JlZ3Jlc3NpdmVfbW9kZWxfZm9yZWNhc3Q8LWZvcmVjYXN0KGF1dG9yZWdyZXNzaXZlX21vZGVsJGZpdHRlZCxoPTUsbGV2ZWw9Yyg5NSkpCmF1dG9yZWdyZXNzaXZlX21vZGVsX2ZvcmVjYXN0CmBgYAoKIyMjIyBMbyBxdWUgc2Ugb2JzZXJ2YSBlbiBlbCBtb2RlbG8gYXV0b3JlZ3Jlc2l2byBkZSBsb3MgdmVow61jdWxvcyBkZSBtb3RvciBlbiBjaXJjdWxhY2nDs24geSBhbCBwcm9uw7NzdGljbyBwYXJhIGxvcyBzaWd1aWVudGVzIGHDsW9zLCBlcyBxdWUgY29tbyBzZSBleHBsaWNvIGFudGVyaW9ybWVudGUsIHRpZW5lIHVuYSB0ZW5kZW5jaWEgcG9zaXRpdmEsIHBvciBlamVtcGxvLCBlbiBlbCBzaWd1aWVudGUgYcOxbyBzZSBlc3BlcmFuIDM3LDg4NCwyODEgdmVow61jdWxvcyBlbiBjaXJjdWxhY2nDs24gY29uIHVuIDk1JSBkZSBjb25maWFuemEsIHkgbG9zIHJhbmdvcyBwdWVkZW4gaXIgZGUgMzUsMjQwLDQwNiBoYXN0YSA0MCw1MjgsMTU1LiAKCiMjIyMgRW4gZWwgc2VndW5kbyBhw7FvLCBzZSBwcm9ub3N0aWNhbiAzOSwyMjIsMDg3LCBkZSBpZ3VhbCBtYW5lcmEgY29uIHVuIDk1JSBkZSBjb25maWFuemEsIHkgcG9yIMO6bHRpbW8sIGVuIGVsIHRlcmNlciBhw7FvLCBzZSBwcmV2ZWVuIDQwLDU1OSw4OTMgdmVow61jdWxvcyBlbiBjaXJjdWxhY2nDs24uCgojIyMgR3LDoWZpY2EKYGBge3J9CnBsb3QoYXV0b3JlZ3Jlc3NpdmVfbW9kZWxfZm9yZWNhc3QpCmBgYAoKIyMjIyBDb24gZXN0ZSBwbG90LCBzZSBwdWVkZSBpbnRlcnByZXRhciBkZSBtYW5lcmEgbcOhcyB2aXN1YWwgbG8gcXVlIHNlIGV4cGxpY28gYW50ZXJpb3JtZW50ZSwgeSBwYXJhIGV4cGxpY2FybG8gY29uIG1heW9yIHByZWNpc2nDs24sIGVzIG5lY2VzYXJpbyBzYWJlciBxdWUgbGEgbMOtbmVhIG5lZ3JhIGNvcnJlc3BvbmRlIGEgbG9zIGRhdG9zIHF1ZSBzZSB0aWVuZW4gZW4gbGEgYmFzZSBkZSBkYXRvcywgbWllbnRyYXMgcXVlIGxhIGzDrW5lYSBhenVsIHNpZ25pZmljYSBlbCByZXN1bHRhZG8gZGUgbG9zIGRhdG9zIG9idGVuaWRvcyBhIHRyYXbDqXMgZGVsIG1vZGVsbyBhdXRvcmVncmVzaXZvLCB5IHNlIHB1ZWRlIG9ic2VydmFyIHF1ZSB2YSBoYWNpYSBhcnJpYmEgbGEgdGVuZGVuY2lhLgoKIyMjIyBQb3Igb3RybyBsYWRvLCBsYSBsw61uZWEgYXp1bCB0aWVuZSB1biBzb21icmVhZG8gZ3JpcyBxdWUgaW5kaWNhIGxvcyB2YWxvcmVzIGRlICJsb3ciIHkgImhpZ2giIGFudGUgZWwgOTUlIGRlIGNvbmZpYW56YS4KCiMjIyBGb3JlY2FzdGluZyB1c2FuZG8gTW92aW5nIEF2ZXJhZ2UgTW9kZWwKYGBge3J9Cm1hbV9jaXJjdWxhY2lvbiA8LSBhcm1hKHZlaGljdWxvc19jaXJjdWxhY2lvbjIkVG90YWwsb3JkZXIgPSBjKDEsMSkpCnN1bW1hcnkobWFtX2NpcmN1bGFjaW9uIDwtIGFybWEodmVoaWN1bG9zX2NpcmN1bGFjaW9uMiRUb3RhbCxvcmRlciA9IGMoMSwxKSkpCgptYW1fY2lyY3VsYWNpb25fZm9yZWNhc3QgPC0gZm9yZWNhc3QobWFtX2NpcmN1bGFjaW9uJGZpdHRlZCxoPTUsbGV2ZWw9Yyg5NSkpCm1hbV9jaXJjdWxhY2lvbl9mb3JlY2FzdApgYGAKCiMjIyMgQSB0cmF2w6lzIGRlIGVzdGUgY8OzZGlnbywgcG9kZW1vcyBkZWR1Y2lyLCBxdWUgYnVzY2Ftb3MgdW4gbW9kZWxvIG5vIGVzdGFjaW9uYXJpbywgeSBxdWUgZXN0YSBlbiBjb25zdGFudGUgbW92aW1pZW50bywgeSBhbCBpZ3VhbCBxdWUgZWwgbW9kZWxvIGF1dG9yZWdyZXNpdm8sIHNlIHB1ZWRlIG9ic2VydmFyIHVuYSB0ZW5kZW5jaWEgcG9zaXRpdmEsIHkgbXV5IHNpbWlsYXIgYSBlbGxhLCBhc8OtIG1pc21vLCBjdWVudGEgY29uIHVuIDk1JSBkZSBjb25maWFuemEuIAoKIyMjIyBQb3Igb3RybyBsYWRvLCBsb3MgdmVow61jdWxvcyBjaXJjdWxhbmRvIGR1cmFudGUgZWwgcHJpbWVyIHBlcmlvZG8gZGUgdGllbXBvIHNlIGNhbGN1bGEgcXVlIHNvbiAzNyw2MzUsMDE5LCBzZWd1aWRvIHBvciAzOCw5NDgsODcwIHkgNDAsMjYyLDcyMC4KCiMjIyBHcsOhZmljYQpgYGB7cn0KcGxvdChtYW1fY2lyY3VsYWNpb25fZm9yZWNhc3QpCmBgYAoKIyMjIyBBcXXDrSBzZSBwdWVkZSBpbnRlcnByZXRhciBncsOhZmljYW1lbnRlIGxvIGV4cGxpY2FkbyBlbiBlbCBwdW50byBhbnRlcmlvciwgeSBzZSBvYnNldmEgY29tbyBsYSB0ZW5kZW5jaWEgZXMgcG9zaXRpdmEsIGRlIGlndWFsIGZvcm1hLCB0aWVuZSAibG93cyIgeSAiaGlnaHMiLgoKIyMjICoqRGVzZW1wZcOxbyBkZSAxIGRlIGxhcyDDoXJlYXMgZGUgbGEgZW1wcmVzYSBGT1JNIHBhcmEgbG9zIHNpZ3VpZW50ZXMgMyBwZXJpb2RvcyBkZSB0aWVtcG8qKgojIyMjIFByb2R1Y2Npw7NuIEZPUk0KCiMjIyBFbnRlbmRlciBsYSBiYXNlIGRlIGRhdG9zIApgYGB7cn0Kc3VtbWFyeShwcm9kdWNjaW9uKQpzdHIocHJvZHVjY2lvbikKYGBgCgojIyAqTGltcGllemEgZGUgZGF0b3MqIAoKIyMjIEVsaW1pbmFyIE5BwrRzCmBgYHtyfQpwcm9kdWNjaW9uJGNsaWVudGUgPC0gYXMuZmFjdG9yKHByb2R1Y2Npb24kY2xpZW50ZSkKc3RyKHByb2R1Y2Npb24pCnN1bW1hcnkocHJvZHVjY2lvbikKCnByb2R1Y2Npb24xIDwtIHByb2R1Y2Npb24gCnByb2R1Y2Npb24xPC0gIHByb2R1Y2Npb24xWy1jKDYyNCksXSAKc3VtbWFyeSAocHJvZHVjY2lvbjEpCmBgYAoKIyMjIyBTZSBlbGltaW5hcm9uIGxvcyBOQcK0cyBxdWUgbm8gdGVuw61hbiByZWxldmFuY2lhLCB5IHNlIHJlZW1wbGF6YXJvbiBvdHJvcyBkZXNkZSBsYSBiYXNlIGRlIGRhdG9zIGNvbiBlbCBub21icmUgInNpbiByZWdpc3RybyIsIHlhIHF1ZSwgc2UgY29uc2lkZXLDsyBxdWUgZXJhIGltcG9ydGFudGUgcXVlZGFyc2UgY29uIGVzdG9zIGRhdG9zIHBhcmEgdmlzdWFsaXphciBtZWpvciBsb3MgZGF0b3MuCgojIyMgRm9yZWNhc3RpbmcgdXNhbmRvIGVsIE1vZGVsbyBhdXRvcmVncmVzaXZvCmBgYHtyfQphdXRvcmVncmVzc2l2ZV9tb2RlbF9wcm9kdWNjaW9uIDwtIGFybWEocHJvZHVjY2lvbjEkcGllemFzX3Byb2csIG9yZGVyID0gYygxLDApKQpzdW1tYXJ5KGF1dG9yZWdyZXNzaXZlX21vZGVsX3Byb2R1Y2Npb24gPC0gYXJtYShwcm9kdWNjaW9uMSRwaWV6YXNfcHJvZywgb3JkZXIgPSBjKDEsMCkpKQoKYXV0b3JlZ3Jlc3NpdmVfbW9kZWxfcHJvZHVjY2lvbl9mb3JlY2FzdDwtZm9yZWNhc3QoYXV0b3JlZ3Jlc3NpdmVfbW9kZWxfcHJvZHVjY2lvbiRmaXR0ZWQsaD01LGxldmVsPWMoOTUpKQphdXRvcmVncmVzc2l2ZV9tb2RlbF9wcm9kdWNjaW9uX2ZvcmVjYXN0CmBgYAoKIyMjIyBFbiBlbCBjYXNvIGRlIGVzdGUgbW9kZWxvIGF1dG9yZWdyZXNpdm8sIGFtYm9zIGNvZWZpY2llbnRlcyBzb24gZGUgZ3JhbiByZWxldmFuY2lhIHBhcmEgbGEgYmFzZSBkZSBkYXRvcywgeWEgcXVlIGFtYmFzIHRpZW5lbiBsb3MgMyBhc3RlcmlzY29zLCBwb3Igb3RybyBsYWRvLCBhIGxhIGhvcmEgZGUgaGFjZXIgZWwgcHJvbsOzc3RpY28sIGVzIG5vdG9yaW8gcXVlIHNlIGVzdGltYSBxdWUgcXVlZGFyw6EgZGUgbGEgbWlzbWEgZm9ybWEsIGVzIGRlY2lyLCBjb24gbGFzIG1pc21hcyBwaWV6YXMgcHJvZ3JhbWFkYXMsIHNpbiBlbWJhcmdvIHNlIHB1ZWRlIHZlciBjb21vIG1pZW50cmFzICJMb3ciIGRpc21pbnV5ZSwgImhpZ2giIGF1bWVudGEuCgojIyMgR3LDoWZpY2EKYGBge3J9CnBsb3QoYXV0b3JlZ3Jlc3NpdmVfbW9kZWxfcHJvZHVjY2lvbl9mb3JlY2FzdCkKYGBgCgojIyMjIENvbW8gc2UgcHVlZGUgdmVyIGVuIGVsIHBsb3QsIG5vIHNlIGVzcGVyYSB1bmEgbWVqb3JhIHBhcmEgZXN0ZSBtb2RlbG8sIHkgc2UgcHVlZGVuIHZlciBsb3MgZm9yZWNhc3QsIGVsIGxvdyB5IGVsIGhpZ2gsIGNvbiA5NSUgZGUgY29uZmlhbnphLgoKIyMjIEZvcmVjYXN0aW5nIHVzYW5kbyBNb3ZpbmcgQXZlcmFnZSBNb2RlbApgYGB7cn0KbWFtX3Byb2R1Y2Npb24gPC0gYXJtYShwcm9kdWNjaW9uMSRwaWV6YXNfcHJvZyxvcmRlciA9IGMoMSwxKSkKc3VtbWFyeShtYW1fcHJvZHVjY2lvbiA8LSBhcm1hKHByb2R1Y2Npb24xJHBpZXphc19wcm9nLG9yZGVyID0gYygxLDEpKSkKCm1hbV9wcm9kdWNjaW9uX2ZvcmVjYXN0IDwtIGZvcmVjYXN0KG1hbV9wcm9kdWNjaW9uJGZpdHRlZCxoPTUsbGV2ZWw9Yyg5NSkpCm1hbV9wcm9kdWNjaW9uX2ZvcmVjYXN0CmBgYAoKIyMjIyBFbCBjb21wb3J0YW1pZW50byBkZSBlc3RlIG1vZGVsbyBpbmRpY2EgcXVlIG5vIHNlIHByb25vc3RpY2FuIGNhbWJpb3MgYSBsbyBsYXJnbyBkZSBsb3MgcHJveGltb3MgYcOxb3MsIGNvbiB1biA5NSUgZGUgY29uZmlhbnphLCBwZXJvIHNpIHNlIG9ic2VydmEgZW4gbG93cywgZWwgY2FtYmlvIGRlIHVuIHBlcmlvZG8gZGUgdGllbXBvIGEgb3RybyBlcyBhbGdvIGRyYXN0aWNvLCB5IHZhIGRlY3JlY2llbmRvLCBtaWVudHJhcyBxdWUgZW4gaGlnaCwgZWwgY29tcG9ydGFtaWVudG8gZXMgdmFyaWFkbywgeWEgcXVlLCBhIHZlY2VzIHN1YmUgeSBhIHZlY2VzIGJhamEgc2luIHVuYSB0ZW5kZW5jaWEgYSBzZWd1aXIuCgojIyMgR3LDoWZpY2EKYGBge3J9CnBsb3QobWFtX3Byb2R1Y2Npb25fZm9yZWNhc3QpCmBgYApTZSBwdWVkZSBvYnNlcnZhciBxdWUgbm8gZXhpc3RlIHVuYSB0ZW5kZW5jaWEgZXNwZWPDrWZpY2EuCgojIyMjIFRlbmRlbmNpYSBkZWwgZGVzZW1wZcOxbyBkdXJhbnRlIGVsIHBlcmlvZG8gZGUgYW7DoWxpc2lzIHkgbG9zIHNpZ3VpZW50ZXMgMyBwZXJpb2RvcyBkZSB0aWVtcG86IEVuIGN1YW50byBhIGxvcyBkYXRvcyBleHRlcm5vcywgZXMgZGVjaXIsIGEgbGEgaW5kdXN0cmlhIGF1dG9tb3RyaXosIGVsIG1vZGVsbyBkZSBlc3RpbWFjacOzbiBkZSBwcm9uw7NzdGljbyBpbmRpY2EgcXVlIGxhIHRlbmRlbmNpYSBlcyBwb3NpdGl2YSwgbG8gY3VhbCBxdWllcmUgZGVjaXIsIHF1ZSBjYWRhIGHDsW8gc2UgcHJvbsOzc3RpY2EgcXVlIGhheWEgbcOhcyB2ZWjDrWN1bG9zIGVuIGNpcmN1bGFjacOzbiBjb24gdW5hIGNvbmZpYW56YSBkZWwgOTUlLiBMb3MgZGF0b3MgYW50ZXJpb3JlcywgYmVuZWZpY2lhbiBhIEZPUk0sIGRlZHVjaWVuZG8gcXVlIHNpIGhheSBtw6FzIGF1dG9zIGVuIGNpcmN1bGFjacOzbiwgaGF5IG3DoXMgcHJvZHVjY2nDs24sIHkgcG9yIGxvIHRhbnRvLCBtw6FzIHBlZGlkb3MgeSBjbGllbnRlcywgc2luIGVtYmFyZ28sIGVuIGxhIGJhc2UgZGUgZGF0b3MgZGlyZWN0YW1lbnRlIGRlIEZPUk0sIHNlIG9ic2VydmEgcXVlIGVuIGFsZ3Vub3MgY2Fzb3MsIG5vIGV4aXN0ZSB1bmEgdGVuZGVuY2lhLCB5IHF1ZSBzZSBlc3BlcmFuIGNvbW8gcHJvbsOzc3RpY28gbGFzIG1pc21hcyBwaWV6YXMgcHJvZ3JhbWFkYXMsIHBvciBsbyB0YW50bywgaGFicsOtYSBxdWUgdGVuZXIgdW5hIGVzdHJhdGVnaWEgcGFyYSBxdWUgbcOhcyBnZW50ZSBsbGVndWUgYSBjb25vY2VyIHkgYSBzZXIgcGFydGUgZGUgbG9zIGNsaWVudGVzIGRlIGxhIGVtcHJlc2EuCgojICoqUHJlZGljY2nDs24gZGVsIERlc2VtcGXDsW8gZGUgbGEgSW5kdXN0cmlhIEF1dG9tb3RyaXoqKgoKIyMjIEV4cG9ydGFjacOzbiB5IHZlbnRhcyBkZSB2ZWjDrWN1bG9zIGxpZ2Vyb3MgCgojIyMgRW50ZW5kZXIgbGEgYmFzZSBkZSBkYXRvcwpgYGB7cn0Kc3VtbWFyeShiZF9wcmVkaWNjaW9uKQpzdHIoYmRfcHJlZGljY2lvbikKYGBgCgojIyAqTGltcGllemEgZGUgZGF0b3MqCgojIyMgRWxpbWluYXIgY29sdW1uYXMgaXJyZWxldmFudGVzIChQcm9kdWNjacOzbikKYGBge3J9CmJkX3ByZWRpY2Npb24xIDwtIHN1YnNldChiZF9wcmVkaWNjaW9uLCBzZWxlY3QgPSAtYyAoUHJvZHVjY2nDs24pKQpiZF9wcmVkaWNjaW9uMQpgYGAKCiMjIyMgRXN0YSBjb2x1bW5hIHNlIGVsaW1pbmFyw6EgcG9ycXVlIHNvbG8gc2UgdXNhcsOhbiBjb21vIHZhcmlhYmxlcyBkZXBlbmRpZW50ZXMgVmVudGFzIHkgRXhwb3J0YWNpw7NuLCB5IGNvbW8gdmFyaWFibGVzIGluZGVwZW5kaWVudGVzIGxhIGNvbmZpYW56YSBkZWwgY29uc3VtaWRvciwgZWwgdGlwbyBkZSBjYW1iaW8sIGxhIGluZmxhY2nDs24sIGVsIHBvcmNlbnRhamUgZGUgcGVyc29uYXMgb2N1cGFkYXMsIHkgZWwgcG9yY2VudGFqZSBkZSBwZXJzb25hcyBkZXNvY3VwYWRhcywgZXMgZGVjaXIsIHNpbiB0cmFiYWpvLgoKIyMjIEVsaW1pbmFyIHJlbmdsb25lcyBpcnJlbGV2YW50ZXMKYGBge3J9CmJkX3ByZWRpY2Npb24yIDwtIGJkX3ByZWRpY2Npb24xWy1jKDIwMSwgMjAyKSxdCmJkX3ByZWRpY2Npb24yCmBgYAoKIyMjIyBEZW50cm8gZGUgbGEgYmFzZSBkZSBkYXRvcyBoYWLDrWEgZG9zIHJlbmdsb25lcyBzaW4gY29udGVuaWRvLCBwb3IgbG8gdGFudG8sIHNlIGRlY2ljZGnDsyBlbGltaW5hcmxvLgoKIyMgKioyIG1vZGVsb3MgZGlmZXJlbnRlcyBkZSByZWdyZXNpw7NuIGxpbmVhbCBtw7psdGlwbGUgcGFyYSBwcmVkZWNpciBlbCBkZXNlbXBlw7FvIGRlIGxhIGluZHVzdHJpYSBhdXRvbW90cml6KiogCgojIyMgQ29ycmVsYWNpw7NuCmBgYHtyfQpjb3JycGxvdChjb3IoYmRfcHJlZGljY2lvbjIpLCB0eXBlPSJ1cHBlciIsb3JkZXI9ImhjbHVzdCIsYWRkY29lZi5jb2w9ImJsYWNrIikKc3VtbWFyeShiZF9wcmVkaWNjaW9uMikKYGBgCgojIyMjIFByaW1lcmFtZW50ZSwgc2UgcmVhbGl6byB1biBwbG90IGRlIGNvcnJlbGFjacOzbiwgY29uIGVsIGZpbiBkZSBvYnNlcnZhciBzaSBsYXMgdmFyaWFibGVzIHBvZHLDrWFuIHRlbmVyIHJlbGFjacOzbiBlbnRyZSBsYXMgbWlzbWFzIHZhcmlhYmxlcyB5IGxhcyBkZW3DoXMsIHkgbG8gcXVlIHNlIHB1ZWRlIG5vdGFyLCBlcyBxdWUgdG9kb3MgdGllbmVuIGVsIDEwMCUgZGUgcmVsYWNpw7NuLCB5IHRhbWJpw6luIHNlIHB1ZWRlIGFuYWxpemFyIHF1ZSBhw7FvIHkgdGlwbyBkZSBjYW1iaW8gdGFtYmnDqW4gZXMgcmVsZXZhbnRlLCBhc8OtIGNvbW8sIG1lcyBlIGluZmxhY2nDs24sIHZlbnRhIHkgcG9yY2VudGFqZSBkZSBwZXJzb25hcyBvY3VwYWRhcywgbGEgZXhwb3J0YWNpw7NuIHkgZWwgYcOxbywgc2VndWlkbyBwb3IgZWwgdGlwbyBkZSBjYW1iaW8geSBkZSBsYSBleHBvdGFjacOzbiwgZW50cmUgb3Ryb3MuCgojIyAqKk1vZGVsbyBkZSByZWdyZXNpw7NuIDEqKgpgYGB7cn0KbW9kZWxvX3JlZ3Jlc2lvbjEgPC0gbG0oRXhwb3J0YWNpw7NufkHDsW8rTWVzK1RpcG8uZGUuY2FtYmlvK0luZmxhY2nDs24rcG9yY2VudGFqZV9vY3UrcG9yY2VudGFqZV9kZXNvY3UrY29uZl9jb25zdW1pZG9yLGRhdGE9YmRfcHJlZGljY2lvbjIpIApzdW1tYXJ5KG1vZGVsb19yZWdyZXNpb24xKQpgYGAKCiMjIyMgRW4gZXN0ZSBtb2RlbG8sIHByaW1lcm8gc2UgcmVhbGl6w7Mgc2luIGxhIHZhcmlhYmxlIGHDsW8geSBtZXMsIHkgc2UgcHVkbyBvYnNlcnZhciBxdWUgZWwgdGlwbyBkZSBjYW1iaW8gZXJhIGxhIHZhcmlhYmxlIHF1ZSBtw6FzIGltcGFjdGFiYSBhIGxhIGV4cG9ydGFjacOzbiwgbG8gY3VhbCB0aWVuZSBzZW50aWRvIHNhYmllbmRvIHF1ZSBlbCB0aXBvIGRlIGNhbWJpbyBhZmVjdGEgYSBNw6l4aWNvIHkgZGUgaWd1YWwgbWFuZXJhIGFsIG11bmRvLCBhbCBkZXZhbHVhcnNlIGxhIG1vbmVkYSBtZXhpY2FuYSwgZXMgcG9yIGVzbyBxdWUgTcOpeGljbyBlcyB1biBncmFuIGV4cG9ydGFkb3IuCiMjIyMgUG9yIG90cm8gbGFkbywgYWwgYWdyZWdhcmxlIGxhIHZhcmlhYmxlIGHDsW8geSBtZXMsIGxhIG1heW9yw61hIGRlIGxhcyB2YXJpYWJsZXMsIGNvbiBleGNlcGNpw7NuIGRlIHBvcmNlbnRhamUgZGUgcGVyc29uYXMgZGVzb2N1cGFkYXMgdGVuw61hbiBsb3MgMyBhc3RlcmlzY29zLCBwb3IgbG8gdGFudG8gc2UgY29uc2lkZXJhbiB2YXJpYWJsZXMgaW1wYWN0YW50ZXMuCgojIyMgR3LDoWZpY2EKYGBge3J9CmVmZmVjdF9wbG90KG1vZGVsb19yZWdyZXNpb24xLHByZWQ9VGlwby5kZS5jYW1iaW8saW50ZXJ2YWw9VFJVRSkKYGBgCgojIyMjIENvbW8gc2UgcHVlZGUgb2JzZXJ2YXIgZW4gbGEgZ3LDoWZpY2EsIGxhIHRlbmRlbmNpYSBxdWUgc2lndWUgZXMgbmVnYXRpdmEsIGVzdG8gcXVpZXJlIGRlY2lyLCBxdWUgZW50cmUgbcOhcyBjdWVzdGUgdW4gZG9sYXIgZW4gcGVzb3MgTcOpeGljYW5vcyBvIHF1ZSBlbCB0aXBvIGRlIGNhbWJpbyBzZWEgbcOhcyBiYWpvLCBtZW5vcyBzZSBleHBvcnRhLgoKIyMgKipNb2RlbG8gZGUgcmVncmVzacOzbiAyKioKYGBge3J9Cm1vZGVsb19yZWdyZXNpb24yIDwtIGxtKFZlbnRhfkHDsW8rTWVzK1RpcG8uZGUuY2FtYmlvK0luZmxhY2nDs24rcG9yY2VudGFqZV9vY3UrcG9yY2VudGFqZV9kZXNvY3UrY29uZl9jb25zdW1pZG9yLGRhdGE9YmRfcHJlZGljY2lvbjIpCnN1bW1hcnkobW9kZWxvX3JlZ3Jlc2lvbjIpCmBgYAoKIyMjIyBFbiBlc3RlIG1vZGVsbyBkZSByZWdyZXNpw7NuLCBlbiBsdWdhciBkZSBleHBvcnRhY2lvbmVzLCBzZSB0b21hcm9uIGVuIGN1ZW50YSBsYXMgdmVudGFzIGRlIHZlaGljdWxvcywgeSBkZSBpZ3VhbCBmb3JtYSBzZSBncmFmaWNvIGRvcyB2ZWNlcywgbGEgcHJpbWVyYSBzaW4gYcOxbyB5IG1lcywgbG8gY3VhbCBub3MgZGFiYSBjb21vIHZhcmlhYmxlIHNpZ25pZmljYXRpdmEgbGEgZGUgcG9yY2VudGFqZSBkZSBwb2JsYWNpw7NuIG9jdXBhZGEsIHkgZGVzcHXDqXMgYWdyZWdhbmRvIGxhcyB2YXJpYWJsZXMgYcOxbyB5IG1lcywgbGEgbWF5b3LDrWEgZGUgbGFzIHZhcmlhYmxlcyB0dXZpZXJvbiBzZW50aWRvIGNvbiBsb3MgMyBhc3RlcmlzY29zLCBhIGV4Y2VwY2nDs24gZGVsIHBvcmNlbnRhamUgZGUgcG9ibGFjacOzbiBkZXNvY3VwYWRhIHkgZWwgdGlwbyBkZSBjYW1iaW8uICAKCiMjIyBHcsOhZmljYQpgYGB7cn0KZWZmZWN0X3Bsb3QobW9kZWxvX3JlZ3Jlc2lvbjIscHJlZD1wb3JjZW50YWplX29jdSxpbnRlcnZhbD1UUlVFKQpgYGAKCiMjIyMgQXF1w60gc2Ugb2JzZXJ2YSBxdWUgbGEgdGVuZGVuY2lhIGRlIGxhIGdyw6FmaWNhIGVzIHBvc2l0aXZhLCB5IGxvIHF1ZSBzZSBncmFmaWPDsyBmdWVyb24gbGFzIHZlbnRhcyB5IGxhIHZhcmlhYmxlIHNpZ25pZmljYXRpdmEgcXVlIGZ1ZSBwb3JjZW50YWplIGRlIHBvYmxhY2nDs24gb2N1cGFkYS4gUGFyYSBpbnRlcnByZXRhciBkZSBmb3JtYSBnZW5lcmFsLCBsYSBncsOhZmljYSBxdWllcmUgZGVjaXIgcXVlIGVudHJlIG3DoXMgcG9yY2VudGFqZSBkZSBwb2JsYWNpw7NuIGN1ZW50ZSBjb24gdHJhYmFqbywgbcOhcyB2ZW50YXMgaGFicsOhLgoKIyMgKkRlc2NyaXBjacOzbiBkZSB2YXJpYWJsZXMqCiMjIyMgQcOxbyAtIEHDsW8gZW4gZWwgcXVlIHNlIGVmZWN0w7pvIGxhIGV4cG9ydGFjacOzbiBvIHZlbnRhLgojIyMjIE1lcyAtIE1lcyBjb3JyZXNwb25kaWVudGUgYWwgYcOxbyBlbiBlbCBxdWUgc2UgZWZlY3TDum8gbGEgZXhwb3J0YWNpw7NuIG8gdmVudGEuIAojIyMjIFZlbnRhICh2YXJpYWJsZSBkZXBlbmRpZW50ZSkgLSBWZW50YSBlbiBNw6l4aWNvIGRlIHZlaMOtY3Vsb3MgbGlnZXJvcyBlbiB1bmlkYWRlcy4KIyMjIyBFeHBvcnRhY2nDs24gKHZhcmlhYmxlIGRlcGVuZGllbnRlKSAtIEV4cG9ydGFjacOzbiBlbiBNw6l4aWNvIGRlIHZlaMOtY3Vsb3MgbGlnZXJvcyBlbiB1bmlkYWRlcy4KIyMjIyBUaXBvIGRlIGNhbWJpbyAodmFyaWFibGUgaW5kZXBlbmRpZW50ZSkgLSBSZWdpc3Ryb3MgaGlzdG9yaWNvcyBkZWwgZG9sYXIgZW4gTcOpeGljby4KIyMjIyBJbmZsYWNpw7NuICh2YXJpYWJsZSBpbmRlcGVuZGllbnRlKS0gSW5mbGFjacOzbiBkdXJhbnRlIGxvcyBhw7FvcyBkZWZpbmlkb3MuCiMjIyMgcG9yY2VudGFqZV9vY3UgKHZhcmlhYmxlIGluZGVwZW5kaWVudGUpIC0gUG9yY2VudGFqZSBkZSBsYSBwb2JsYWNpw7NuIG9jdXBhZGEuCiMjIyMgcG9yY2VudGFqZV9kZXNvY3UgKHZhcmlhYmxlIGluZGVwZW5kaWVudGUpIC0gUG9yY2VudGFqZSBkZSBsYSBwb2JsYWNpw7NuIGRlc29jdXBhZGEuCiMjIyMgY29uZl9jb25zdW1pZG9yICh2YXJpYWJsZSBpbmRlcGVuZGllbnRlKSAtIENvbmZpYW56YSBkZWwgY29uc3VtaWRvciBlbiBsYSBpbmR1c3RyaWEgYXV0b21vdHJpeiBlbiBNw6l4aWNvLgoKIyMgKkludGVycHJldGFjacOzbiBkZSBsb3MgbW9kZWxvcyBkZSByZWdyZXNpw7NuOioKCiMjIyMgRGVzcHXDqXMgZGUgYW5hbGl6YXIgYW1ib3MgbW9kZWxvcyBkZSByZWdyZXNpw7NuLCBzZSBwdWVkZSBkZXN0YWNhciBxdWUgcGFyYSBsYSB2YXJpYWJsZSBkZXBlbmRpZW50ZSBkZSBleHBvcnRhY2lvbmVzLCBsYSB2YXJpYWJsZSBpbmRlcGVuZGllbnRlIHF1ZSBtw6FzIGltcGFjdGEgZXMgbGEgZGUgdGlwby5kZS5jYW1iaW8sIGVzdGEgaW1wYWN0YSBkZSBtYW5lcmEgcXVlIGxhIHRlbmRlbmNpYSBzZSB2dWVsdmUgbmVnYXRpdmEsIGRhbmRvIGEgY29ub2NlciBxdWUgZW50cmUgbcOhcyBhdW1lbnRlIGVsIHBlc28gbWV4aWNhbm8gY29uIHJlc3BlY3RvIGFsIGRvbGFyLCBsYXMgZXhwb3J0YWNpb25lcyBiYWphbi4gCgojIyMjIFBvciBvdHJvIGxhZG8sIGxhIHZhcmlhYmxlIGRlcGVuZGllbnRlIGRlIHZlbnRhcywgc2UgdmUgYWZlY3RhZGEgcHJpbmNpcGFsbWVudGUgcG9yIGxhIHZhcmlhYmxlIGluZGVwZW5kaWVudGUgZGUgcG9yY2VudGFqZSBkZSBwb2JsYWNpw7NuIG9jdXBhZGEsIGVzIGRlY2lyLCBsYSBxdWUgY3VlbnRhIGNvbiB2aWRhIGxhYm9yYWwsIGVzdG8gaGFjZSBzZW50aWRvLCB5YSBxdWUsIHNpIGhheSBpbmdyZXNvcywgZXMgbcOhcyBwcm9iYWJsZSBxdWUgaGF5YSBtw6FzIHZlbnRhcy4gCgojIyMjIFBvciDDumx0aW1vLCBsYSB0ZW5kZW5jaWEgZGUgbGEgZ3LDoWZpY2EgZXMgcG9zaXRpdmEsIGxvIGN1YWwgc2lnbmlmaWNhLCBxdWUgZW50cmUgbcOhcyBncmFuZGUgZWwgcG9yY2VudGFqZSBkZSBwb2JsYWNpw7NuIG9jdXBhZGEsIG3DoXMgZWxldmFkYXMgw7FhcyB2ZW50YXMuCgojICoqSWRlbnRpZmljYWNpw7NuIHkgRGVzY3JpcGNpw7NuIGRlIGxvcyBQcmluY2lwYWxlcyBSZXN1bHRhZG9zIFJlbGV2YW50ZXMqKgoKIyMjIyBMYSBtYXlvciBjYW50aWRhZCBkZSBiYWphcyBxdWUgRk9STSBoYSBwcmVzZW50YWRvIHNvbiBkZSBjb2xhYm9yYWRvcmVzIGrDs3ZlbmVzIChlbnRyZSBsb3MgMjAtMzAgYcOxb3MgZW4gc3UgbWF5b3LDrWEpIHkgc2llbmRvIGVsIHByaW5jaXBhbCBtb3Rpdm8gbGEg4oCcQmFqYSBwb3IgRmFsdGFz4oCdICg1OSUpLgoKIyMjIyBBY3R1YWxtZW50ZSBGT1JNIGN1ZW50YSBjYXNpIGNvbiBsYSBtaXNtYSBjYW50aWRhZCBkZSBjb2xhYm9yYWRvcmVzIGZlbWVuaW5vcyB5IG1hc2N1bGlub3MgeSBjb24gdW4gcmFuZ28gZGUgZWRhZGVzIGVudHJlIGxvcyAxOCB5IGxvcyA3MyBhw7Fvcy4gQXNpbWlzbW8gZWwgcHJvbWVkaW8gZGUgc2FsYXJpbyBnYW5hZG8gZXMgZGUgMTcwIHBlc29zIGRpYXJpb3MgeSBsb3MgaG9tYnJlcyBjYXNhZG9zIHkgbGFzIG11amVyZXMgc29sdGVyYXMgc29uIGxvcyBxdWUgZ2FuYW4gbcOhcy4KCiMjIyMgTGEgbWF5b3IgY2FudGlkYWQgZGUgc2NyYXAgZW4gbGEgZW1wcmVzYSBGT1JNIGVzIGdlbmVyYWRhIGVuIGxhIHByZS1wcm9kdWNjaW9uIHkgZW4gZG9uZGUgbWVub3Mgc2UgZ2VuZXJhIGVzIGVuIGxhIHBvc3QtcHJvZHVjY2lvbi4KCiMjIyMgU2UgcHJvbm9zdGljYSBxdWUgaGF5YSB1biBjcmVjaW1pZW50byBwb3NpdGl2byBkZSBsb3MgdmVow61jdWxvcyBlbiBjaXJjdWxhY2nDs24gY29uIGVsIHBhc28gZGVsIHRpZW1wby4KCiMjIyMgRWwgdGlwbyBkZSBjYW1iaW8gZXMgbGEgdmFyaWFibGUgcXVlIG3DoXMgYWZlY3RhIGUgaW1wYWN0YSB0YW50byBwb3NpdGl2YSBjb21vIG5lZ2F0aXZhbWVudGUgbGEgZXhwb3J0YWNpw7NuIGRlIHZlaMOtY3Vsb3MgbGlnZXJvcy4gRW50cmUgbcOhcyBlbGV2YWRvIGVzdGUgZWwgdGlwbyBkZSBjYW1iaW8gZW4gTVhOIGhheSBtZW5vcyBleHBvcnRhY2lvbmVzLgoKIyMjIyBMb3MgY2xpZW50ZXMgbcOhcyBpbXBvcnRhbnRlcyBwYXJhIEZPUk0gKHF1ZSBtw6FzIHBpZXphcyBwcm9ncmFtYWRhcyB0aWVuZW4pIHNvbiBZYW5mZW5nLCBTdGFiaWx1cyAxIHkgVmFycm9jLiAKCiMjIyMgTG9zIGNsaWVudGVzIGNvbiBsb3MgcXVlIEZPUk0gcHJlc2VudGEgbcOhcyBob3JhcyBkZSByZXRyYXNvIGVuIGVudHJlZ2FzIGVzIGNvbiBNYWhsZSB5IFByaW50ZWwgKHRlbmllbmRvIGhhc3RhIDIwaCksIGNsaWVudGVzIHF1ZSBubyBvcmRlbmFuIG11Y2hhcyBwaWV6YXMuIExvIHF1ZSBwdWVkZSBzaWduaWZpY2FyIHF1ZSBsb3MgY2xpZW50ZXMgaW1wb3J0YW50ZXMgc29uIHByaW9yaXRhcmlvcyBwYXJhIEZPUk0geSBlcyBwb3IgZXNvIHF1ZSBjb24gZWxsb3Mgbm8gc3VmcmVuIHJldHJhc29zLgoKIyAqKlJlZmxleGnDs24gRmluYWwqKgoKIyMjIyBFbCAqQnVzaW5lc3MgQW5hbHl0aWNzIGVzIGVsIG3DqXRvZG8gZGUgYW7DoWxpc2lzIHF1ZSBsYXMgZW1wcmVzYXMgdXRpbGl6YW4gcGFyYSBwb2RlciBjcmVhciBlc3RyYXRlZ2lhcyBlbiB0b3JubyBhbCBjcmVjaW1pZW50byBlIGlubm92YWNpw7NuIHRvbWFuZG8gZW4gY3VlbnRhIHN1IGluZm9ybWFjacOzbiBpbnRlcm5hIHkgZXh0ZXJuYSouIEVzIHVuYSBjb21iaW5hY2nDs24gZGUgbG9zIGNhbXBvcyBkZSBsYSBnZXN0acOzbiwgbG9zIG5lZ29jaW9zIHkgbGEgY2llbmNpYSBkZSBsb3MgZGF0b3MuCgojIyMjIEFsZ3Vub3MgZGUgbG9zIHByaW5jaXBhbGVzIG9iamV0aXZvcyBkZWwgQnVzaW5lc3MgQW5hbHl0aWNzIHNvbiAqZGV0ZXJtaW5hciBxdcOpIGNvbmp1bnRvcyBkZSBkYXRvcyBzb24gw7p0aWxlcyogKG9yZ2FuaXphcmxvcywgZmlsdHJhcmxvcyB5IGxpbXBpYXJsb3MpLCAqZXhhbWluYXJsb3MqIChlc3RhYmxlY2VyIHJlbGFjaW9uZXMgeSBjbGFzaWZpY2FybG9zKSB5IHZlciBjw7NtbyBlc3RvcyBwdWVkZW4gKmF1bWVudGFyIGxvcyBpbmdyZXNvcywgbGEgcHJvZHVjdGl2aWRhZCwgbGEgZWZpY2llbmNpYSB5IGVsIHJlbmRpbWllbnRvIG9yZ2FuaXphY2lvbmFsLiogQXNpbWlzbW8sIGVsIEJ1c2luZXNzIEFuYWx5dGljcyBheXVkYSBhIHF1ZSBsb3MgY29sYWJvcmFkb3JlcyBwdWVkYW4gKnRvbWFyIGRlY2lzaW9uZXMgbcOhcyBpbnRlbGlnZW50ZXMgKEJ1c2luZXNzIEludGVsbGlnZW5jZSkgYmFzYWRhcyBlbiBsb3MgZGF0b3MgYW5hbGl6YWRvcyBhbCB1dGlsaXphciBkaWZlcmVudGVzIGhlcnJhbWllbnRhcyBjb21vIGVsIGFuw6FsaXNpcyBlc3RhZMOtc3RpY28geSBwcmVkaWN0aXZvLioKCiMjIyMgTGEgcmVsYWNpw7NuIGVudHJlIGVsIOKAnEJ1c2luZXNzIEludGVsbGlnZW5jZeKAnSB5IGVsIOKAnEJ1c2luZXNzIEFuYWx5dGljc+KAnSBlcyBxdWUgdW4gZXhwZXJ0byBlbiBCdXNpbmVzcyBJbnRlbGxpZ2VuY2UsIHRvbWEgeSBwcm9jZXNhIGxhIGluZm9ybWFjacOzbiBnZW5lcmFkYSBwb3IgbG9zIGV4cGVydG9zIGVuIEJ1c2luZXNzIEFuYWx5dGljcyB5IGxhIGNvbnZpZXJ0ZSBlbiBkZWNpc2lvbmVzIGVzdHJhdMOpZ2ljYXMgcGFyYSBzdSBuZWdvY2lvLgoKCg==