Contexto

Para Arca Continental, la situación que están viviendo los dueños de las tienditas de la esquina no ha pasado desapercibida. Ellos, quienes por muchos años han sido nuestros principales aliados comerciales, no pueden por sí solos revertir la situación de riesgo en la que se encuentran por lo que, en Arca Continental, acorde a nuestra misión de “Generar el máximo valor para nuestros clientes, colaboradores, comunidades, y accionistas…” hemos decidido apoyar al fortalecimiento del canal tradicional a través del Proyecto Siglo XXI.

#Importar base de datos

#file.choose()
df <- read.csv("/Users/sofiaalcudia/Downloads/arca.csv")

#Entender la base de datos

summary(df)
##        ID              Año        Territorio        Sub.Territorio    
##  Min.   :     1   Min.   :2016   Length:466509      Length:466509     
##  1st Qu.:116628   1st Qu.:2017   Class :character   Class :character  
##  Median :233255   Median :2018   Mode  :character   Mode  :character  
##  Mean   :233255   Mean   :2018                                        
##  3rd Qu.:349882   3rd Qu.:2019                                        
##  Max.   :466509   Max.   :2019                                        
##      CEDI             Cliente             Nombre          Tamaño.Cte.Industria
##  Length:466509      Length:466509      Length:466509      Length:466509       
##  Class :character   Class :character   Class :character   Class :character    
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character    
##                                                                               
##                                                                               
##                                                                               
##  Segmento.Det          Marca           Presentacion          Tamaño         
##  Length:466509      Length:466509      Length:466509      Length:466509     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##  Retornable_NR         Enero             Febrero             Marzo          
##  Length:466509      Length:466509      Length:466509      Length:466509     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##     Abril               Mayo              Junio              Julio          
##  Length:466509      Length:466509      Length:466509      Length:466509     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##     Agosto           Septiembre          Octubre           Noviembre        
##  Length:466509      Length:466509      Length:466509      Length:466509     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##   Diciembre        
##  Length:466509     
##  Class :character  
##  Mode  :character  
##                    
##                    
## 
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.3     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.3     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
str(df)
## 'data.frame':    466509 obs. of  25 variables:
##  $ ID                  : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Año                 : int  2016 2016 2016 2016 2016 2016 2016 2016 2016 2016 ...
##  $ Territorio          : chr  "Guadalajara" "Guadalajara" "Guadalajara" "Guadalajara" ...
##  $ Sub.Territorio      : chr  "Belenes" "Belenes" "Belenes" "Belenes" ...
##  $ CEDI                : chr  "Suc. Belenes" "Suc. Belenes" "Suc. Belenes" "Suc. Belenes" ...
##  $ Cliente             : chr  "77737" "77737" "77737" "77737" ...
##  $ Nombre              : chr  "ABARR" "ABARR" "ABARR" "ABARR" ...
##  $ Tamaño.Cte.Industria: chr  "Extra Grande" "Extra Grande" "Extra Grande" "Extra Grande" ...
##  $ Segmento.Det        : chr  "Agua Mineral" "Agua Purificada" "Agua Purificada" "Agua Saborizada" ...
##  $ Marca               : chr  "Topo Chico A.M." "Ciel Agua Purificada" "Ciel Agua Purificada" "Ciel Exprim" ...
##  $ Presentacion        : chr  "600 ml NR" "1 Ltro. N.R." "1.5 Lts. NR" "600 ml NR" ...
##  $ Tamaño              : chr  "Individual" "Individual" "Individual" "Individual" ...
##  $ Retornable_NR       : chr  "No Retornable" "No Retornable" "No Retornable" "No Retornable" ...
##  $ Enero               : chr  "" "" "" "" ...
##  $ Febrero             : chr  "" "2" "" "" ...
##  $ Marzo               : chr  "" "8" "3" "" ...
##  $ Abril               : chr  "" "4" "6" "" ...
##  $ Mayo                : chr  "" "4" "3" "" ...
##  $ Junio               : chr  "" "2" "3" "" ...
##  $ Julio               : chr  "" "2" "3" "" ...
##  $ Agosto              : chr  "" "2" "3" "" ...
##  $ Septiembre          : chr  "" "2" "3" "" ...
##  $ Octubre             : chr  "" "2" "3" "" ...
##  $ Noviembre           : chr  "" "4" "3" "" ...
##  $ Diciembre           : chr  "1" "2" "3" "1" ...
library(dplyr)
count(df,Territorio,sort=TRUE)
##    Territorio      n
## 1 Guadalajara 466508
## 2  Territorio      1

Observaciones: Eliminar renglon 184065 que tiene titulos en lugar de datos

#Limpiar la base de datos

df <- df[-184065,]
df$Enero <- as.integer(df$Enero)
## Warning: NAs introduced by coercion
df$Febrero <- as.integer(df$Febrero)
## Warning: NAs introduced by coercion
df$Marzo <- as.integer(df$Marzo)
## Warning: NAs introduced by coercion
df$Abril <- as.integer(df$Abril)
## Warning: NAs introduced by coercion
df$Mayo <- as.integer(df$Mayo)
## Warning: NAs introduced by coercion
df$Junio <- as.integer(df$Junio)
## Warning: NAs introduced by coercion
df$Julio <- as.integer(df$Julio)
## Warning: NAs introduced by coercion
df$Agosto <- as.integer(df$Agosto)
## Warning: NAs introduced by coercion
df$Septiembre <- as.integer(df$Septiembre)
## Warning: NAs introduced by coercion
df$Octubre <- as.integer(df$Octubre)
## Warning: NAs introduced by coercion
df$Noviembre <- as.integer(df$Noviembre)
## Warning: NAs introduced by coercion
df$Diciembre <- as.integer(df$Diciembre)
## Warning: NAs introduced by coercion
summary(df)
##        ID              Año        Territorio        Sub.Territorio    
##  Min.   :     1   Min.   :2016   Length:466508      Length:466508     
##  1st Qu.:116628   1st Qu.:2017   Class :character   Class :character  
##  Median :233256   Median :2018   Mode  :character   Mode  :character  
##  Mean   :233255   Mean   :2018                                        
##  3rd Qu.:349882   3rd Qu.:2019                                        
##  Max.   :466509   Max.   :2019                                        
##                                                                       
##      CEDI             Cliente             Nombre          Tamaño.Cte.Industria
##  Length:466508      Length:466508      Length:466508      Length:466508       
##  Class :character   Class :character   Class :character   Class :character    
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character    
##                                                                               
##                                                                               
##                                                                               
##                                                                               
##  Segmento.Det          Marca           Presentacion          Tamaño         
##  Length:466508      Length:466508      Length:466508      Length:466508     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##  Retornable_NR          Enero           Febrero           Marzo       
##  Length:466508      Min.   :-19.00   Min.   :-11.00   Min.   :-32.00  
##  Class :character   1st Qu.:  1.00   1st Qu.:  1.00   1st Qu.:  1.00  
##  Mode  :character   Median :  2.00   Median :  2.00   Median :  3.00  
##                     Mean   :  9.39   Mean   :  9.09   Mean   : 10.54  
##                     3rd Qu.:  6.00   3rd Qu.:  6.00   3rd Qu.:  6.00  
##                     Max.   :999.00   Max.   :986.00   Max.   :986.00  
##                     NA's   :233551   NA's   :231285   NA's   :227506  
##      Abril             Mayo             Junio             Julio       
##  Min.   :-70.00   Min.   :-106.00   Min.   :-211.00   Min.   :-60.00  
##  1st Qu.:  1.00   1st Qu.:   1.00   1st Qu.:   1.00   1st Qu.:  1.00  
##  Median :  3.00   Median :   3.00   Median :   3.00   Median :  2.00  
##  Mean   : 10.62   Mean   :  11.44   Mean   :  10.98   Mean   : 10.72  
##  3rd Qu.:  6.00   3rd Qu.:   7.00   3rd Qu.:   6.00   3rd Qu.:  6.00  
##  Max.   :993.00   Max.   : 991.00   Max.   : 998.00   Max.   :993.00  
##  NA's   :224185   NA's   :217072    NA's   :215907    NA's   :223537  
##      Agosto          Septiembre        Octubre         Noviembre     
##  Min.   :-211.00   Min.   :-527     Min.   :-38.0    Min.   :-25.0   
##  1st Qu.:   1.00   1st Qu.:   1     1st Qu.:  1.0    1st Qu.:  1.0   
##  Median :   3.00   Median :   3     Median :  3.0    Median :  3.0   
##  Mean   :  10.95   Mean   :  12     Mean   : 12.1    Mean   : 11.8   
##  3rd Qu.:   6.00   3rd Qu.:   7     3rd Qu.:  7.0    3rd Qu.:  6.0   
##  Max.   : 999.00   Max.   : 993     Max.   :998.0    Max.   :991.0   
##  NA's   :220366    NA's   :337401   NA's   :338482   NA's   :338545  
##    Diciembre     
##  Min.   :-28     
##  1st Qu.:  1     
##  Median :  3     
##  Mean   : 13     
##  3rd Qu.:  7     
##  Max.   :997     
##  NA's   :341954

Observaciones:

#¿Cuantas N/A's tengo en la base de datos?
sum(is.na(df))
## [1] 3149791
# ¿Cuantos N/A's tengo por variable?
sapply(df,function(x) sum(is.na(x)))
##                   ID                  Año           Territorio 
##                    0                    0                    0 
##       Sub.Territorio                 CEDI              Cliente 
##                    0                    0                    0 
##               Nombre Tamaño.Cte.Industria         Segmento.Det 
##                    0                    0                    0 
##                Marca         Presentacion               Tamaño 
##                    0                    0                    0 
##        Retornable_NR                Enero              Febrero 
##                    0               233551               231285 
##                Marzo                Abril                 Mayo 
##               227506               224185               217072 
##                Junio                Julio               Agosto 
##               215907               223537               220366 
##           Septiembre              Octubre            Noviembre 
##               337401               338482               338545 
##            Diciembre 
##               341954
# Reemplazar N/A's con 0
df[is.na(df)] <- 0

#Las cantidades negativas son perdidas
#df$Enero<- abs(df$Enero)

#Agregar columna de ventas
df$Ventas <- df$Enero+df$Febrero+df$Marzo+df$Abril+df$Mayo+df$Junio+df$Julio+df$Agosto+df$Septiembre+
  df$Octubre+df$Noviembre+df$Diciembre

#Grafica de caja y bigotes
boxplot(df$Enero, horizontal=TRUE)

boxplot(df$Agosto, horizontal=TRUE)

summary(df)
##        ID              Año        Territorio        Sub.Territorio    
##  Min.   :     1   Min.   :2016   Length:466508      Length:466508     
##  1st Qu.:116628   1st Qu.:2017   Class :character   Class :character  
##  Median :233256   Median :2018   Mode  :character   Mode  :character  
##  Mean   :233255   Mean   :2018                                        
##  3rd Qu.:349882   3rd Qu.:2019                                        
##  Max.   :466509   Max.   :2019                                        
##      CEDI             Cliente             Nombre          Tamaño.Cte.Industria
##  Length:466508      Length:466508      Length:466508      Length:466508       
##  Class :character   Class :character   Class :character   Class :character    
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character    
##                                                                               
##                                                                               
##                                                                               
##  Segmento.Det          Marca           Presentacion          Tamaño         
##  Length:466508      Length:466508      Length:466508      Length:466508     
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##  Retornable_NR          Enero           Febrero            Marzo        
##  Length:466508      Min.   :-19.00   Min.   :-11.000   Min.   :-32.000  
##  Class :character   1st Qu.:  0.00   1st Qu.:  0.000   1st Qu.:  0.000  
##  Mode  :character   Median :  0.00   Median :  0.000   Median :  0.000  
##                     Mean   :  4.69   Mean   :  4.581   Mean   :  5.401  
##                     3rd Qu.:  2.00   3rd Qu.:  2.000   3rd Qu.:  3.000  
##                     Max.   :999.00   Max.   :986.000   Max.   :986.000  
##      Abril              Mayo              Junio            Julio        
##  Min.   :-70.000   Min.   :-106.000   Min.   :-211.0   Min.   :-60.000  
##  1st Qu.:  0.000   1st Qu.:   0.000   1st Qu.:   0.0   1st Qu.:  0.000  
##  Median :  0.000   Median :   0.000   Median :   0.0   Median :  0.000  
##  Mean   :  5.519   Mean   :   6.117   Mean   :   5.9   Mean   :  5.583  
##  3rd Qu.:  3.000   3rd Qu.:   3.000   3rd Qu.:   3.0   3rd Qu.:  3.000  
##  Max.   :993.000   Max.   : 991.000   Max.   : 998.0   Max.   :993.000  
##      Agosto           Septiembre          Octubre          Noviembre      
##  Min.   :-211.000   Min.   :-527.000   Min.   :-38.000   Min.   :-25.000  
##  1st Qu.:   0.000   1st Qu.:   0.000   1st Qu.:  0.000   1st Qu.:  0.000  
##  Median :   0.000   Median :   0.000   Median :  0.000   Median :  0.000  
##  Mean   :   5.777   Mean   :   3.311   Mean   :  3.327   Mean   :  3.248  
##  3rd Qu.:   3.000   3rd Qu.:   1.000   3rd Qu.:  1.000   3rd Qu.:  1.000  
##  Max.   : 999.000   Max.   : 993.000   Max.   :998.000   Max.   :991.000  
##    Diciembre           Ventas       
##  Min.   :-28.000   Min.   :-527.00  
##  1st Qu.:  0.000   1st Qu.:   2.00  
##  Median :  0.000   Median :   7.00  
##  Mean   :  3.477   Mean   :  56.93  
##  3rd Qu.:  0.000   3rd Qu.:  26.00  
##  Max.   :997.000   Max.   :9517.00

Observacion #Pregunta 1 ¿Puede observarse un crecimiento en las ventas de algunos de los segmentos de productos de la familia Coca Cola en las tiendas en las que se implementó el Proyecto Siglo XXI de Arca Continental? Respuesta: Se observa un incremento general en las ventas

ggplot(df, aes(x=Año, y=Ventas)) + 
  geom_bar(stat="identity") + 
  labs(
    title= "VENTAS POR AÑO",
    subtitle= "Caso arca continental"
  )

#Pregunta 2 ¿El incremento en las ventas es similar entre los diferentes tamaños de clientes? Respuesta:Arca experimentó un aumento en las ventas en 2019 debido al crecimiento en el número de clientes de empresas grandes, micro y pequeñas. Durante ese año, el alza fue especialmente notable debido a la incorporación de empresas grandes y pequeñas. 

ggplot(df, aes(x=Año, y=Ventas, colour=Tamaño.Cte.Industria)) + 
  geom_bar(stat="identity") + 
  labs(
    title= "VENTAS POR AÑO",
    subtitle= "Caso arca continental"
  )

df2 <- df %>% filter(Tamaño.Cte.Industria=="Extra Grande")

ggplot(df2, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año",
    subtitle = "Caso Arca Continental"
  )

df3 <- df %>% filter(Tamaño.Cte.Industria=="Grande")

ggplot(df3, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año",
    subtitle = "Caso Arca Continental"
  )

df4 <- df %>% filter(Tamaño.Cte.Industria=="Micro")

ggplot(df4, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año",
    subtitle = "Caso Arca Continental"
  )

df5 <- df %>% filter(Tamaño.Cte.Industria=="Pequeño")

ggplot(df5, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año",
    subtitle = "Caso Arca Continental"
  )

#Pregunta 3 ¿Cuál es el comportamiento observado de las unidades vendidas por mes de cada una de las marcas, independientemente de sus respectivas presentaciones? Respuesta: La marca Coca-Cola es la más vendida de todas, con incremento de ventas en 2019. La marca Sprite con incremento de ventas año con año 

df6 <- df %>% filter(Marca=="Coca-Cola")

ggplot(df6, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año de Coca Cola",
    subtitle = "Caso Arca Continental"
  )

df7 <- df %>% filter(Marca=="Sprite")

ggplot(df7, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año de Sprite",
    subtitle = "Caso Arca Continental"
  )

#Pregunta 4 ¿Se ha incrementado la venta de productos en envases retornables en los últimos dos años? Respuesta: Si, crubiendo más tamaños de mercados.

df8 <- df %>% filter(Retornable_NR=="Retornable")

ggplot(df8, aes(x=Año, y= Ventas, colour=Tamaño.Cte.Industria)) +
  geom_bar(stat = "Identity") +
  labs(
    title = "Ventas por año de envases retornables",
    subtitle = "Caso Arca Continental"
  )

#Pregunta 5 ¿El comportamiento de la venta de agua ha incrementado en relación al de los refrescos o las bebidas isotónicas? Respuesta: Las ventas de Agua Purificada y Colas regular ah bajado en el último año. Pero por otro lado, las bebidas Isotónicas han estado en aumento año con año.

df9 <- df %>% filter(Segmento.Det=="Agua Purificada" | Segmento.Det=="Isotónicos Regular" | Segmento.Det=="Colas Regular")

ggplot(df9, aes(x=Año, y= Ventas, fill=Segmento.Det)) +
  geom_bar(position="dodge", stat = "Identity") +
  labs(
    title = "Ventas por año",
    subtitle = "Caso Arca Continental"
  )

#Pregunta 6 ¿A cuánto ascienden las ventas esperadas para el 2020 en la Coca Cola de 500 ml NR Vidrio? Respuesta: NoAcorde a un modelo predictivo utilizando regresion lineal, las ventas esperadas para Coca Cola de 500ml NR Vidrio en 2020 es de 444,066 unidades, con una R cuadrada ajustada del 48%.

df11 <- df %>% filter(Marca=="Coca-Cola" & Presentacion=="500 ml NR Vidrio") 

df12 <- aggregate(Ventas ~ Año, df11, sum)
df12$Año <- as.integer(df12$Año)
regresion <- lm(Ventas ~ Año, data=df12)
summary(regresion)
## 
## Call:
## lm(formula = Ventas ~ Año, data = df12)
## 
## Residuals:
##        1        2        3        4 
## -23838.5  35316.5    882.5 -12360.5 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## (Intercept) -54970594   28310425  -1.942    0.192
## Año             27433      14032   1.955    0.190
## 
## Residual standard error: 31380 on 2 degrees of freedom
## Multiple R-squared:  0.6565, Adjusted R-squared:  0.4847 
## F-statistic: 3.822 on 1 and 2 DF,  p-value: 0.1898
#Ecuacion de la recta y = -54,970,595 + 27,433*Año
datos <- data.frame(Año=2020)
predict(regresion,datos)
##        1 
## 444065.5
LS0tCnRpdGxlOiAiRXZpZGVuY2lhIgphdXRob3I6ICJTb2ZpYSBBbGN1ZGlhIEEwMDgzMTEyNSIKZGF0ZTogIjIwMjMtMDktMTMiCm91dHB1dDogCiBodG1sX2RvY3VtZW50OgogICB0b2M6IFRSVUUKICAgdG9jX2Zsb2F0OiBUUlVFCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgdGhlbWU6ICJqb3VybmFsIgogICBoaWdobGlnaHQ6ICJlc3ByZXNzbyIKLS0tCgoKIyA8c3BhbiBzdHlsZT0iY29sb3I6IHJlZDsiPkNvbnRleHRvPC9zcGFuPgpQYXJhIEFyY2EgQ29udGluZW50YWwsIGxhIHNpdHVhY2nDs24gcXVlIGVzdMOhbiB2aXZpZW5kbyBsb3MgZHVlw7FvcyBkZSBsYXMgdGllbmRpdGFzIGRlIGxhIGVzcXVpbmEgbm8gaGEgcGFzYWRvIGRlc2FwZXJjaWJpZGEuIEVsbG9zLCBxdWllbmVzIHBvciBtdWNob3MgYcOxb3MgaGFuIHNpZG8gbnVlc3Ryb3MgcHJpbmNpcGFsZXMgYWxpYWRvcyBjb21lcmNpYWxlcywgbm8gcHVlZGVuIHBvciBzw60gc29sb3MgcmV2ZXJ0aXIgbGEgc2l0dWFjacOzbiBkZSByaWVzZ28gZW4gbGEgcXVlIHNlIGVuY3VlbnRyYW4gcG9yIGxvIHF1ZSwgZW4gQXJjYSBDb250aW5lbnRhbCwgYWNvcmRlIGEgbnVlc3RyYSBtaXNpw7NuIGRlIOKAnEdlbmVyYXIgZWwgbcOheGltbyB2YWxvciBwYXJhIG51ZXN0cm9zIGNsaWVudGVzLCBjb2xhYm9yYWRvcmVzLCBjb211bmlkYWRlcywgeSBhY2Npb25pc3Rhc+KApuKAnSBoZW1vcyBkZWNpZGlkbyBhcG95YXIgYWwgZm9ydGFsZWNpbWllbnRvIGRlbCBjYW5hbCB0cmFkaWNpb25hbCBhIHRyYXbDqXMgZGVsIFByb3llY3RvIFNpZ2xvIFhYSS4KCgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5JbXBvcnRhciBiYXNlIGRlIGRhdG9zPC9zcGFuPgpgYGB7cn0KI2ZpbGUuY2hvb3NlKCkKZGYgPC0gcmVhZC5jc3YoIi9Vc2Vycy9zb2ZpYWFsY3VkaWEvRG93bmxvYWRzL2FyY2EuY3N2IikKYGBgCgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5FbnRlbmRlciBsYSBiYXNlIGRlIGRhdG9zPC9zcGFuPgpgYGB7cn0Kc3VtbWFyeShkZikKbGlicmFyeSh0aWR5dmVyc2UpCnN0cihkZikKbGlicmFyeShkcGx5cikKY291bnQoZGYsVGVycml0b3Jpbyxzb3J0PVRSVUUpCgpgYGAgCk9ic2VydmFjaW9uZXM6CkVsaW1pbmFyIHJlbmdsb24gMTg0MDY1IHF1ZSB0aWVuZSB0aXR1bG9zIGVuIGx1Z2FyIGRlIGRhdG9zCgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5MaW1waWFyIGxhIGJhc2UgZGUgZGF0b3M8L3NwYW4+CmBgYHtyfQpkZiA8LSBkZlstMTg0MDY1LF0KZGYkRW5lcm8gPC0gYXMuaW50ZWdlcihkZiRFbmVybykKZGYkRmVicmVybyA8LSBhcy5pbnRlZ2VyKGRmJEZlYnJlcm8pCmRmJE1hcnpvIDwtIGFzLmludGVnZXIoZGYkTWFyem8pCmRmJEFicmlsIDwtIGFzLmludGVnZXIoZGYkQWJyaWwpCmRmJE1heW8gPC0gYXMuaW50ZWdlcihkZiRNYXlvKQpkZiRKdW5pbyA8LSBhcy5pbnRlZ2VyKGRmJEp1bmlvKQpkZiRKdWxpbyA8LSBhcy5pbnRlZ2VyKGRmJEp1bGlvKQpkZiRBZ29zdG8gPC0gYXMuaW50ZWdlcihkZiRBZ29zdG8pCmRmJFNlcHRpZW1icmUgPC0gYXMuaW50ZWdlcihkZiRTZXB0aWVtYnJlKQpkZiRPY3R1YnJlIDwtIGFzLmludGVnZXIoZGYkT2N0dWJyZSkKZGYkTm92aWVtYnJlIDwtIGFzLmludGVnZXIoZGYkTm92aWVtYnJlKQpkZiREaWNpZW1icmUgPC0gYXMuaW50ZWdlcihkZiREaWNpZW1icmUpCgpzdW1tYXJ5KGRmKQpgYGAKICBPYnNlcnZhY2lvbmVzOgogIApgYGB7cn0KI8K/Q3VhbnRhcyBOL0EncyB0ZW5nbyBlbiBsYSBiYXNlIGRlIGRhdG9zPwpzdW0oaXMubmEoZGYpKQoKIyDCv0N1YW50b3MgTi9BJ3MgdGVuZ28gcG9yIHZhcmlhYmxlPwpzYXBwbHkoZGYsZnVuY3Rpb24oeCkgc3VtKGlzLm5hKHgpKSkKCiMgUmVlbXBsYXphciBOL0EncyBjb24gMApkZltpcy5uYShkZildIDwtIDAKCiNMYXMgY2FudGlkYWRlcyBuZWdhdGl2YXMgc29uIHBlcmRpZGFzCiNkZiRFbmVybzwtIGFicyhkZiRFbmVybykKCiNBZ3JlZ2FyIGNvbHVtbmEgZGUgdmVudGFzCmRmJFZlbnRhcyA8LSBkZiRFbmVybytkZiRGZWJyZXJvK2RmJE1hcnpvK2RmJEFicmlsK2RmJE1heW8rZGYkSnVuaW8rZGYkSnVsaW8rZGYkQWdvc3RvK2RmJFNlcHRpZW1icmUrCiAgZGYkT2N0dWJyZStkZiROb3ZpZW1icmUrZGYkRGljaWVtYnJlCgojR3JhZmljYSBkZSBjYWphIHkgYmlnb3Rlcwpib3hwbG90KGRmJEVuZXJvLCBob3Jpem9udGFsPVRSVUUpCmJveHBsb3QoZGYkQWdvc3RvLCBob3Jpem9udGFsPVRSVUUpCgpzdW1tYXJ5KGRmKQpgYGAKICBPYnNlcnZhY2lvbgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5QcmVndW50YSAxPC9zcGFuPgrCv1B1ZWRlIG9ic2VydmFyc2UgdW4gY3JlY2ltaWVudG8gZW4gbGFzIHZlbnRhcyBkZSBhbGd1bm9zIGRlIGxvcyBzZWdtZW50b3MgZGUgcHJvZHVjdG9zIGRlIGxhIGZhbWlsaWEgQ29jYSBDb2xhIGVuIGxhcyB0aWVuZGFzIGVuIGxhcyBxdWUgc2UgaW1wbGVtZW50w7MgZWwgUHJveWVjdG8gU2lnbG8gWFhJIGRlIEFyY2EgQ29udGluZW50YWw/CioqUmVzcHVlc3RhOiBTZSBvYnNlcnZhIHVuIGluY3JlbWVudG8gZ2VuZXJhbCBlbiBsYXMgdmVudGFzKioKYGBge3J9CmdncGxvdChkZiwgYWVzKHg9QcOxbywgeT1WZW50YXMpKSArIAogIGdlb21fYmFyKHN0YXQ9ImlkZW50aXR5IikgKyAKICBsYWJzKAogICAgdGl0bGU9ICJWRU5UQVMgUE9SIEHDkU8iLAogICAgc3VidGl0bGU9ICJDYXNvIGFyY2EgY29udGluZW50YWwiCiAgKQoKYGBgCgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5QcmVndW50YSAyPC9zcGFuPgrCv0VsIGluY3JlbWVudG8gZW4gbGFzIHZlbnRhcyBlcyBzaW1pbGFyIGVudHJlIGxvcyBkaWZlcmVudGVzIHRhbWHDsW9zIGRlIGNsaWVudGVzPwoqKlJlc3B1ZXN0YTpBcmNhIGV4cGVyaW1lbnTDsyB1biBhdW1lbnRvIGVuIGxhcyB2ZW50YXMgZW4gMjAxOSBkZWJpZG8gYWwgY3JlY2ltaWVudG8gZW4gZWwgbsO6bWVybyBkZSBjbGllbnRlcyBkZSBlbXByZXNhcyBncmFuZGVzLCBtaWNybyB5IHBlcXVlw7Fhcy4gRHVyYW50ZSBlc2UgYcOxbywgZWwgYWx6YSBmdWUgZXNwZWNpYWxtZW50ZSBub3RhYmxlIGRlYmlkbyBhIGxhIGluY29ycG9yYWNpw7NuIGRlIGVtcHJlc2FzIGdyYW5kZXMgeSBwZXF1ZcOxYXMuICoqCmBgYHtyfQpnZ3Bsb3QoZGYsIGFlcyh4PUHDsW8sIHk9VmVudGFzLCBjb2xvdXI9VGFtYcOxby5DdGUuSW5kdXN0cmlhKSkgKyAKICBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIpICsgCiAgbGFicygKICAgIHRpdGxlPSAiVkVOVEFTIFBPUiBBw5FPIiwKICAgIHN1YnRpdGxlPSAiQ2FzbyBhcmNhIGNvbnRpbmVudGFsIgogICkKCmRmMiA8LSBkZiAlPiUgZmlsdGVyKFRhbWHDsW8uQ3RlLkluZHVzdHJpYT09IkV4dHJhIEdyYW5kZSIpCgpnZ3Bsb3QoZGYyLCBhZXMoeD1Bw7FvLCB5PSBWZW50YXMsIGNvbG91cj1UYW1hw7FvLkN0ZS5JbmR1c3RyaWEpKSArCiAgZ2VvbV9iYXIoc3RhdCA9ICJJZGVudGl0eSIpICsKICBsYWJzKAogICAgdGl0bGUgPSAiVmVudGFzIHBvciBhw7FvIiwKICAgIHN1YnRpdGxlID0gIkNhc28gQXJjYSBDb250aW5lbnRhbCIKICApCgpkZjMgPC0gZGYgJT4lIGZpbHRlcihUYW1hw7FvLkN0ZS5JbmR1c3RyaWE9PSJHcmFuZGUiKQoKZ2dwbG90KGRmMywgYWVzKHg9QcOxbywgeT0gVmVudGFzLCBjb2xvdXI9VGFtYcOxby5DdGUuSW5kdXN0cmlhKSkgKwogIGdlb21fYmFyKHN0YXQgPSAiSWRlbnRpdHkiKSArCiAgbGFicygKICAgIHRpdGxlID0gIlZlbnRhcyBwb3IgYcOxbyIsCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFyY2EgQ29udGluZW50YWwiCiAgKQoKZGY0IDwtIGRmICU+JSBmaWx0ZXIoVGFtYcOxby5DdGUuSW5kdXN0cmlhPT0iTWljcm8iKQoKZ2dwbG90KGRmNCwgYWVzKHg9QcOxbywgeT0gVmVudGFzLCBjb2xvdXI9VGFtYcOxby5DdGUuSW5kdXN0cmlhKSkgKwogIGdlb21fYmFyKHN0YXQgPSAiSWRlbnRpdHkiKSArCiAgbGFicygKICAgIHRpdGxlID0gIlZlbnRhcyBwb3IgYcOxbyIsCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFyY2EgQ29udGluZW50YWwiCiAgKQoKZGY1IDwtIGRmICU+JSBmaWx0ZXIoVGFtYcOxby5DdGUuSW5kdXN0cmlhPT0iUGVxdWXDsW8iKQoKZ2dwbG90KGRmNSwgYWVzKHg9QcOxbywgeT0gVmVudGFzLCBjb2xvdXI9VGFtYcOxby5DdGUuSW5kdXN0cmlhKSkgKwogIGdlb21fYmFyKHN0YXQgPSAiSWRlbnRpdHkiKSArCiAgbGFicygKICAgIHRpdGxlID0gIlZlbnRhcyBwb3IgYcOxbyIsCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFyY2EgQ29udGluZW50YWwiCiAgKQoKCgpgYGAKCiM8c3BhbiBzdHlsZT0iY29sb3I6IHJlZDsiPlByZWd1bnRhIDM8L3NwYW4+CsK/Q3XDoWwgZXMgZWwgY29tcG9ydGFtaWVudG8gb2JzZXJ2YWRvIGRlIGxhcyB1bmlkYWRlcyB2ZW5kaWRhcyBwb3IgbWVzIGRlIGNhZGEgdW5hIGRlIGxhcyBtYXJjYXMsIGluZGVwZW5kaWVudGVtZW50ZSBkZSBzdXMgcmVzcGVjdGl2YXMgcHJlc2VudGFjaW9uZXM/CipSZXNwdWVzdGE6IExhIG1hcmNhIENvY2EtQ29sYSBlcyBsYSBtw6FzIHZlbmRpZGEgZGUgdG9kYXMsIGNvbiBpbmNyZW1lbnRvIGRlIHZlbnRhcyBlbiAyMDE5LiBMYSBtYXJjYSBTcHJpdGUgY29uIGluY3JlbWVudG8gZGUgdmVudGFzIGHDsW8gY29uIGHDsW8gKgpgYGB7cn0KZGY2IDwtIGRmICU+JSBmaWx0ZXIoTWFyY2E9PSJDb2NhLUNvbGEiKQoKZ2dwbG90KGRmNiwgYWVzKHg9QcOxbywgeT0gVmVudGFzLCBjb2xvdXI9VGFtYcOxby5DdGUuSW5kdXN0cmlhKSkgKwogIGdlb21fYmFyKHN0YXQgPSAiSWRlbnRpdHkiKSArCiAgbGFicygKICAgIHRpdGxlID0gIlZlbnRhcyBwb3IgYcOxbyBkZSBDb2NhIENvbGEiLAogICAgc3VidGl0bGUgPSAiQ2FzbyBBcmNhIENvbnRpbmVudGFsIgogICkKCmRmNyA8LSBkZiAlPiUgZmlsdGVyKE1hcmNhPT0iU3ByaXRlIikKCmdncGxvdChkZjcsIGFlcyh4PUHDsW8sIHk9IFZlbnRhcywgY29sb3VyPVRhbWHDsW8uQ3RlLkluZHVzdHJpYSkpICsKICBnZW9tX2JhcihzdGF0ID0gIklkZW50aXR5IikgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJWZW50YXMgcG9yIGHDsW8gZGUgU3ByaXRlIiwKICAgIHN1YnRpdGxlID0gIkNhc28gQXJjYSBDb250aW5lbnRhbCIKICApCgpgYGAKCiM8c3BhbiBzdHlsZT0iY29sb3I6IHJlZDsiPlByZWd1bnRhIDQ8L3NwYW4+CsK/U2UgaGEgaW5jcmVtZW50YWRvIGxhIHZlbnRhIGRlIHByb2R1Y3RvcyBlbiBlbnZhc2VzIHJldG9ybmFibGVzIGVuIGxvcyDDumx0aW1vcyBkb3MgYcOxb3M/CipSZXNwdWVzdGE6IFNpLCBjcnViaWVuZG8gbcOhcyB0YW1hw7FvcyBkZSBtZXJjYWRvcy4qCmBgYHtyfQpkZjggPC0gZGYgJT4lIGZpbHRlcihSZXRvcm5hYmxlX05SPT0iUmV0b3JuYWJsZSIpCgpnZ3Bsb3QoZGY4LCBhZXMoeD1Bw7FvLCB5PSBWZW50YXMsIGNvbG91cj1UYW1hw7FvLkN0ZS5JbmR1c3RyaWEpKSArCiAgZ2VvbV9iYXIoc3RhdCA9ICJJZGVudGl0eSIpICsKICBsYWJzKAogICAgdGl0bGUgPSAiVmVudGFzIHBvciBhw7FvIGRlIGVudmFzZXMgcmV0b3JuYWJsZXMiLAogICAgc3VidGl0bGUgPSAiQ2FzbyBBcmNhIENvbnRpbmVudGFsIgogICkKYGBgCgojPHNwYW4gc3R5bGU9ImNvbG9yOiByZWQ7Ij5QcmVndW50YSA1PC9zcGFuPgrCv0VsIGNvbXBvcnRhbWllbnRvIGRlIGxhIHZlbnRhIGRlIGFndWEgaGEgaW5jcmVtZW50YWRvIGVuIHJlbGFjacOzbiBhbCBkZSBsb3MgcmVmcmVzY29zIG8gbGFzIGJlYmlkYXMgaXNvdMOzbmljYXM/CipSZXNwdWVzdGE6IExhcyB2ZW50YXMgZGUgQWd1YSBQdXJpZmljYWRhIHkgQ29sYXMgcmVndWxhciBhaCBiYWphZG8gZW4gZWwgw7psdGltbyBhw7FvLiBQZXJvIHBvciBvdHJvIGxhZG8sIGxhcyBiZWJpZGFzIElzb3TDs25pY2FzIGhhbiBlc3RhZG8gZW4gYXVtZW50byBhw7FvIGNvbiBhw7FvLioKYGBge3J9CmRmOSA8LSBkZiAlPiUgZmlsdGVyKFNlZ21lbnRvLkRldD09IkFndWEgUHVyaWZpY2FkYSIgfCBTZWdtZW50by5EZXQ9PSJJc290w7NuaWNvcyBSZWd1bGFyIiB8IFNlZ21lbnRvLkRldD09IkNvbGFzIFJlZ3VsYXIiKQoKZ2dwbG90KGRmOSwgYWVzKHg9QcOxbywgeT0gVmVudGFzLCBmaWxsPVNlZ21lbnRvLkRldCkpICsKICBnZW9tX2Jhcihwb3NpdGlvbj0iZG9kZ2UiLCBzdGF0ID0gIklkZW50aXR5IikgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJWZW50YXMgcG9yIGHDsW8iLAogICAgc3VidGl0bGUgPSAiQ2FzbyBBcmNhIENvbnRpbmVudGFsIgogICkKCmBgYAoKIzxzcGFuIHN0eWxlPSJjb2xvcjogcmVkOyI+UHJlZ3VudGEgNjwvc3Bhbj4Kwr9BIGN1w6FudG8gYXNjaWVuZGVuIGxhcyB2ZW50YXMgZXNwZXJhZGFzIHBhcmEgZWwgMjAyMCBlbiBsYSBDb2NhIENvbGEgZGUgNTAwIG1sIE5SIFZpZHJpbz8KKlJlc3B1ZXN0YTogTm9BY29yZGUgYSB1biBtb2RlbG8gcHJlZGljdGl2byB1dGlsaXphbmRvIHJlZ3Jlc2lvbiBsaW5lYWwsIGxhcyB2ZW50YXMgZXNwZXJhZGFzIHBhcmEgQ29jYSBDb2xhIGRlIDUwMG1sIE5SIFZpZHJpbyBlbiAyMDIwIGVzIGRlIDQ0NCwwNjYgdW5pZGFkZXMsIGNvbiB1bmEgUiBjdWFkcmFkYSBhanVzdGFkYSBkZWwgNDglLioKYGBge3J9CmRmMTEgPC0gZGYgJT4lIGZpbHRlcihNYXJjYT09IkNvY2EtQ29sYSIgJiBQcmVzZW50YWNpb249PSI1MDAgbWwgTlIgVmlkcmlvIikgCgpkZjEyIDwtIGFnZ3JlZ2F0ZShWZW50YXMgfiBBw7FvLCBkZjExLCBzdW0pCmRmMTIkQcOxbyA8LSBhcy5pbnRlZ2VyKGRmMTIkQcOxbykKcmVncmVzaW9uIDwtIGxtKFZlbnRhcyB+IEHDsW8sIGRhdGE9ZGYxMikKc3VtbWFyeShyZWdyZXNpb24pCiNFY3VhY2lvbiBkZSBsYSByZWN0YSB5ID0gLTU0LDk3MCw1OTUgKyAyNyw0MzMqQcOxbwpkYXRvcyA8LSBkYXRhLmZyYW1lKEHDsW89MjAyMCkKcHJlZGljdChyZWdyZXNpb24sZGF0b3MpCmBgYAoK