abarrotes
Cristina FP a01566880
2023-03-17
AnƔlisis de las ventas de Abarrotes
Una empresa con 5 tiendas en el paĆs solicita un anĆ”lisis de sus ventas de abarrotes de mayo y noviembre de 2020
Paso 0. instalar paquetes y llamar librerias
#install.packages("dplyr")
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union#install.packages("tidyverse")
library(tidyverse)## āā Attaching core tidyverse packages āāāāāāāāāāāāāāāāāāāāāāāā tidyverse 2.0.0 āā
## ā forcats 1.0.0 ā readr 2.1.4
## ā ggplot2 3.4.1 ā stringr 1.5.0
## ā lubridate 1.9.2 ā tibble 3.1.8
## ā purrr 1.0.1 ā tidyr 1.3.0## āā Conflicts āāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāāā tidyverse_conflicts() āā
## ā dplyr::filter() masks stats::filter()
## ā dplyr::lag() masks stats::lag()
## ā¹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors#install.packages("janitor")
library(janitor)##
## Attaching package: 'janitor'
##
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test#install.packages("lubridate")
library(lubridate)Paso 1. importar el archivo
file.choose()
bd <- read.csv("/Users/crisflorespalacios/Desktop/Manipulacion de datos/abarrotes.csv")Paso 2. Entender la base de datos
summary(bd)## vcClaveTienda DescGiro Codigo.Barras PLU
## Length:200625 Length:200625 Min. :8.347e+05 Min. : 1.00
## Class :character Class :character 1st Qu.:7.501e+12 1st Qu.: 1.00
## Mode :character Mode :character Median :7.501e+12 Median : 1.00
## Mean :5.950e+12 Mean : 2.11
## 3rd Qu.:7.501e+12 3rd Qu.: 1.00
## Max. :1.750e+13 Max. :30.00
## NA's :199188
## Fecha Hora Marca Fabricante
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## Producto Precio Ult.Costo Unidades
## Length:200625 Min. :-147.00 Min. : 0.38 Min. : 0.200
## Class :character 1st Qu.: 11.00 1st Qu.: 8.46 1st Qu.: 1.000
## Mode :character Median : 16.00 Median : 12.31 Median : 1.000
## Mean : 19.42 Mean : 15.31 Mean : 1.262
## 3rd Qu.: 25.00 3rd Qu.: 19.23 3rd Qu.: 1.000
## Max. :1000.00 Max. :769.23 Max. :96.000
##
## F.Ticket NombreDepartamento NombreFamilia NombreCategoria
## Min. : 1 Length:200625 Length:200625 Length:200625
## 1st Qu.: 33964 Class :character Class :character Class :character
## Median :105993 Mode :character Mode :character Mode :character
## Mean :193990
## 3rd Qu.:383005
## Max. :450040
##
## Estado Mts.2 Tipo.ubicaciĆ³n Giro
## Length:200625 Min. :47.0 Length:200625 Length:200625
## Class :character 1st Qu.:53.0 Class :character Class :character
## Mode :character Median :60.0 Mode :character Mode :character
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
##
## Hora.inicio Hora.cierre
## Length:200625 Length:200625
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## #count(bd,vcClaveTienda, sort=TRUE)
#count(bd,DescGiro, sort=TRUE)
#count(bd,Marca, sort=TRUE)
#count(bd,Fabricante, sort=TRUE)
#count(bd,Producto, sort=TRUE)
#count(bd,NombreDepartamento, sort=TRUE)
#count(bd,NombreFamilia, sort=TRUE)
#count(bd,NombreCategoria, sort=TRUE)
#count(bd,Estado, sort=TRUE)
#count(bd,Tipo.ubicaciĆ³n, sort=TRUE)
#count(bd,Giro, sort=TRUE)
tibble(bd) ## # A tibble: 200,625 Ć 22
## vcClaveTienda DescGiro Codigā¦Ā¹ PLU Fecha Hora Marca Fabriā¦Ā² Produā¦Ā³ Precio
## <chr> <chr> <dbl> <int> <chr> <chr> <chr> <chr> <chr> <dbl>
## 1 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:1ā¦ NUTRā¦ MEXILAC Nutri ā¦ 16
## 2 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ DAN ā¦ DANONEā¦ DANUP ā¦ 14
## 3 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ BIMBO GRUPO ā¦ Rebanaā¦ 5
## 4 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ PEPSI PEPSI-ā¦ Pepsi ā¦ 8
## 5 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ BLANā¦ FABRICā¦ Detergā¦ 19.5
## 6 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:1ā¦ NUTRā¦ MEXILAC Nutri ā¦ 16
## 7 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ DAN ā¦ DANONEā¦ DANUP ā¦ 14
## 8 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ BIMBO GRUPO ā¦ Rebanaā¦ 5
## 9 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ PEPSI PEPSI-ā¦ Pepsi ā¦ 8
## 10 MX001 Abarrotā¦ 7.50e12 NA 19/0ā¦ 08:2ā¦ BLANā¦ FABRICā¦ Detergā¦ 19.5
## # ā¦ with 200,615 more rows, 12 more variables: Ult.Costo <dbl>, Unidades <dbl>,
## # F.Ticket <int>, NombreDepartamento <chr>, NombreFamilia <chr>,
## # NombreCategoria <chr>, Estado <chr>, Mts.2 <int>, Tipo.ubicaciĆ³n <chr>,
## # Giro <chr>, Hora.inicio <chr>, Hora.cierre <chr>, and abbreviated variable
## # names Ā¹āCodigo.Barras, Ā²āFabricante, Ā³āProductohead(bd)## vcClaveTienda DescGiro Codigo.Barras PLU Fecha Hora
## 1 MX001 Abarrotes 7.50102e+12 NA 19/06/2020 08:16:21
## 2 MX001 Abarrotes 7.50103e+12 NA 19/06/2020 08:23:33
## 3 MX001 Abarrotes 7.50100e+12 NA 19/06/2020 08:24:33
## 4 MX001 Abarrotes 7.50103e+12 NA 19/06/2020 08:24:33
## 5 MX001 Abarrotes 7.50103e+12 NA 19/06/2020 08:26:28
## 6 MX001 Abarrotes 7.50102e+12 NA 19/06/2020 08:16:21
## Marca Fabricante
## 1 NUTRI LECHE MEXILAC
## 2 DAN UP DANONE DE MEXICO
## 3 BIMBO GRUPO BIMBO
## 4 PEPSI PEPSI-COLA MEXICANA
## 5 BLANCA NIEVES (DETERGENTE) FABRICA DE JABON LA CORONA
## 6 NUTRI LECHE MEXILAC
## Producto Precio Ult.Costo Unidades F.Ticket
## 1 Nutri Leche 1 Litro 16.0 12.31 1 1
## 2 DANUP STRAWBERRY P/BEBER 350GR NAL 14.0 14.00 1 2
## 3 Rebanadas Bimbo 2Pz 5.0 5.00 1 3
## 4 Pepsi N.R. 400Ml 8.0 8.00 1 3
## 5 Detergente Blanca Nieves 500G 19.5 15.00 1 4
## 6 Nutri Leche 1 Litro 16.0 12.31 1 1
## NombreDepartamento NombreFamilia NombreCategoria
## 1 Abarrotes Lacteos y Refrigerados Leche
## 2 Abarrotes Lacteos y Refrigerados Yogurt
## 3 Abarrotes Pan y Tortilla Pan Dulce Empaquetado
## 4 Abarrotes Bebidas Refrescos PlƔstico (N.R.)
## 5 Abarrotes Limpieza del Hogar LavanderĆa
## 6 Abarrotes Lacteos y Refrigerados Leche
## Estado Mts.2 Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## 1 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00
## 2 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00
## 3 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00
## 4 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00
## 5 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00
## 6 Nuevo LeĆ³n 60 Esquina Abarrotes 8:00 22:00tail(bd, n=7)## vcClaveTienda DescGiro Codigo.Barras PLU Fecha Hora
## 200619 MX005 DepĆ³sito 7.62221e+12 NA 07/12/2020 00:36:34
## 200620 MX005 DepĆ³sito 7.62221e+12 NA 07/12/2020 01:08:25
## 200621 MX005 DepĆ³sito 7.62221e+12 NA 23/10/2020 22:17:37
## 200622 MX005 DepĆ³sito 7.62221e+12 NA 10/10/2020 20:30:20
## 200623 MX005 DepĆ³sito 7.62221e+12 NA 10/10/2020 22:40:43
## 200624 MX005 DepĆ³sito 7.62221e+12 NA 27/06/2020 22:30:19
## 200625 MX005 DepĆ³sito 7.62221e+12 NA 26/06/2020 23:43:34
## Marca Fabricante Producto Precio
## 200619 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200620 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200621 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200622 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200623 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200624 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## 200625 TRIDENT XTRA CARE CADBURY ADAMS Trident Xtracare Freshmint 16.32G 9
## Ult.Costo Unidades F.Ticket NombreDepartamento NombreFamilia
## 200619 6.92 1 103087 Abarrotes DulcerĆa
## 200620 6.92 1 103100 Abarrotes DulcerĆa
## 200621 6.92 1 116598 Abarrotes DulcerĆa
## 200622 6.92 1 114886 Abarrotes DulcerĆa
## 200623 6.92 1 114955 Abarrotes DulcerĆa
## 200624 6.92 1 101121 Abarrotes DulcerĆa
## 200625 6.92 1 100879 Abarrotes DulcerĆa
## NombreCategoria Estado Mts.2 Tipo.ubicaciĆ³n Giro Hora.inicio
## 200619 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200620 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200621 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200622 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200623 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200624 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## 200625 Gomas de Mazcar Quintana Roo 58 Esquina Mini sĆŗper 8:00
## Hora.cierre
## 200619 21:00
## 200620 21:00
## 200621 21:00
## 200622 21:00
## 200623 21:00
## 200624 21:00
## 200625 21:00tabyl(bd, vcClaveTienda, NombreDepartamento) #crea una tabla nueva, en el primero es el renglon y en el 2 las columnas ## vcClaveTienda Abarrotes Bebes e Infantiles Carnes Farmacia FerreterĆa MercerĆa
## MX001 95415 515 1 147 245 28
## MX002 6590 21 0 4 10 0
## MX003 4026 15 0 2 8 0
## MX004 82234 932 0 102 114 16
## MX005 10014 0 0 0 0 0
## PapelerĆa Productos a Eliminar Vinos y Licores
## 35 3 80
## 0 0 4
## 0 0 0
## 32 5 20
## 7 0 0tabyl(bd, NombreFamilia, vcClaveTienda)## NombreFamilia MX001 MX002 MX003 MX004 MX005
## Accesorios 88 0 0 58 0
## Aceite 346 29 18 1088 2
## Aderezos 544 21 30 909 3
## Alcohol 6 2 0 8 0
## Alimentos 256 9 15 530 0
## Alimentos a Granel 1 0 0 0 0
## Alimentos para Mascotas 300 9 36 533 0
## AnalgƩsicos 0 0 1 0 0
## AntiƔcido 0 0 1 0 0
## Antigripal 17 0 0 40 0
## ArtĆculos de Escritura 0 0 0 6 0
## AzĆŗcar y Miel 349 0 0 38 4
## Bebidas 38511 3416 1460 21504 27
## Bebidas Premezcladas 0 4 0 19 0
## Botanas 13051 1194 498 5724 1116
## C. FrĆas y SalchichonerĆa 451 1 143 1528 0
## Cereales 533 7 10 210 0
## Cerveza 4644 196 26 1041 8110
## Cigarros 3775 451 75 2237 279
## Cuadernos 7 0 0 8 0
## Cuidado Personal 1940 117 40 3319 17
## DermatolĆ³gicos 33 1 0 20 0
## Desechables 809 38 25 2588 0
## DulcerĆa 1725 45 108 486 307
## Especias 1596 28 22 3249 26
## Galletas 3259 218 256 3754 0
## Granos y Semillas 1138 18 19 1488 0
## Harinas y Complementos 460 20 43 1237 0
## Lacteos y Refrigerados 6795 139 503 10221 1
## LaterĆa 1540 90 108 3365 4
## Limpieza del Hogar 3771 295 172 4470 16
## Mantecas 203 7 6 581 0
## Material de CuraciĆ³n 46 0 0 11 0
## Materiales y Accesorios 28 0 0 18 7
## Pan y Tortilla 5782 39 294 4387 0
## PaƱales 114 8 0 215 0
## Pegamentos 104 8 6 102 0
## Pilas para uso DomƩstico 141 2 2 12 0
## Pollo 1 0 0 0 0
## Postres 29 0 2 56 0
## Productos HigiƩnicos 57 4 0 129 0
## Productos sin Familia 3 0 0 5 0
## Ron 1 0 0 0 0
## Salsas y Sazonadores 1550 94 59 3527 90
## SangrĆa 13 0 0 0 0
## Sopas y Pastas 1280 65 37 2749 10
## Te, Chocolate y CafƩ 454 42 27 906 2
## Tequila 62 0 0 1 0
## Varios 73 1 0 39 0
## Velas y Veladoras 579 11 9 1039 0
## Whisky 4 0 0 0 0Hallazgos
Las fechas y las horas estan en caracter, como si fueran texto Precios negativos No hay columna de ventas (cantidad * precio)
Paso 3. Limpieza de datos
Existen 6 tƩcnicas para limpiar datos
1- Remover valores irrelevantes Eliminar columnas
bd1 <- bd
bd1 <- subset(bd1, select = -c(PLU, Codigo.Barras))
bd2 <- bd1
bd2 <- bd2[bd2$Precio >0,]
summary(bd2)## vcClaveTienda DescGiro Fecha Hora
## Length:200478 Length:200478 Length:200478 Length:200478
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Marca Fabricante Producto Precio
## Length:200478 Length:200478 Length:200478 Min. : 0.50
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.45
## 3rd Qu.: 25.00
## Max. :1000.00
## Ult.Costo Unidades F.Ticket NombreDepartamento
## Min. : 0.38 Min. : 0.200 Min. : 1 Length:200478
## 1st Qu.: 8.46 1st Qu.: 1.000 1st Qu.: 33977 Class :character
## Median : 12.31 Median : 1.000 Median :106034 Mode :character
## Mean : 15.31 Mean : 1.261 Mean :194096
## 3rd Qu.: 19.23 3rd Qu.: 1.000 3rd Qu.:383062
## Max. :769.23 Max. :96.000 Max. :450040
## NombreFamilia NombreCategoria Estado Mts.2
## Length:200478 Length:200478 Length:200478 Min. :47.0
## Class :character Class :character Class :character 1st Qu.:53.0
## Mode :character Mode :character Mode :character Median :60.0
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## Length:200478 Length:200478 Length:200478 Length:200478
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
## 2- Remover valores duplicados ĀæCuantos valores duplicados tenemos?
bd2[duplicated(bd2),]## vcClaveTienda DescGiro Fecha Hora Marca
## 6 MX001 Abarrotes 19/06/2020 08:16:21 NUTRI LECHE
## 7 MX001 Abarrotes 19/06/2020 08:23:33 DAN UP
## 8 MX001 Abarrotes 19/06/2020 08:24:33 BIMBO
## 9 MX001 Abarrotes 19/06/2020 08:24:33 PEPSI
## 10 MX001 Abarrotes 19/06/2020 08:26:28 BLANCA NIEVES (DETERGENTE)
## Fabricante Producto Precio
## 6 MEXILAC Nutri Leche 1 Litro 16.0
## 7 DANONE DE MEXICO DANUP STRAWBERRY P/BEBER 350GR NAL 14.0
## 8 GRUPO BIMBO Rebanadas Bimbo 2Pz 5.0
## 9 PEPSI-COLA MEXICANA Pepsi N.R. 400Ml 8.0
## 10 FABRICA DE JABON LA CORONA Detergente Blanca Nieves 500G 19.5
## Ult.Costo Unidades F.Ticket NombreDepartamento NombreFamilia
## 6 12.31 1 1 Abarrotes Lacteos y Refrigerados
## 7 14.00 1 2 Abarrotes Lacteos y Refrigerados
## 8 5.00 1 3 Abarrotes Pan y Tortilla
## 9 8.00 1 3 Abarrotes Bebidas
## 10 15.00 1 4 Abarrotes Limpieza del Hogar
## NombreCategoria Estado Mts.2 Tipo.ubicaciĆ³n Giro
## 6 Leche Nuevo LeĆ³n 60 Esquina Abarrotes
## 7 Yogurt Nuevo LeĆ³n 60 Esquina Abarrotes
## 8 Pan Dulce Empaquetado Nuevo LeĆ³n 60 Esquina Abarrotes
## 9 Refrescos PlĆ”stico (N.R.) Nuevo LeĆ³n 60 Esquina Abarrotes
## 10 LavanderĆa Nuevo LeĆ³n 60 Esquina Abarrotes
## Hora.inicio Hora.cierre
## 6 8:00 22:00
## 7 8:00 22:00
## 8 8:00 22:00
## 9 8:00 22:00
## 10 8:00 22:00sum(duplicated(bd2))## [1] 5Eliminar renglones duplicados
bd3<- bd2
bd3 <- distinct(bd3)3- Resolver renglones tipogrƔficos y similares Precios en absoluto
bd4<- bd1
bd4$Precio<- abs(bd4$Precio)
summary(bd4)## vcClaveTienda DescGiro Fecha Hora
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Marca Fabricante Producto Precio
## Length:200625 Length:200625 Length:200625 Min. : 0.50
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.45
## 3rd Qu.: 25.00
## Max. :1000.00
## Ult.Costo Unidades F.Ticket NombreDepartamento
## Min. : 0.38 Min. : 0.200 Min. : 1 Length:200625
## 1st Qu.: 8.46 1st Qu.: 1.000 1st Qu.: 33964 Class :character
## Median : 12.31 Median : 1.000 Median :105993 Mode :character
## Mean : 15.31 Mean : 1.262 Mean :193990
## 3rd Qu.: 19.23 3rd Qu.: 1.000 3rd Qu.:383005
## Max. :769.23 Max. :96.000 Max. :450040
## NombreFamilia NombreCategoria Estado Mts.2
## Length:200625 Length:200625 Length:200625 Min. :47.0
## Class :character Class :character Class :character 1st Qu.:53.0
## Mode :character Mode :character Mode :character Median :60.0
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
## Unidades en enteros
bd5<- bd4
bd5$Unidades <- ceiling(bd5$Unidades)
summary(bd5)## vcClaveTienda DescGiro Fecha Hora
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Marca Fabricante Producto Precio
## Length:200625 Length:200625 Length:200625 Min. : 0.50
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.45
## 3rd Qu.: 25.00
## Max. :1000.00
## Ult.Costo Unidades F.Ticket NombreDepartamento
## Min. : 0.38 Min. : 1.000 Min. : 1 Length:200625
## 1st Qu.: 8.46 1st Qu.: 1.000 1st Qu.: 33964 Class :character
## Median : 12.31 Median : 1.000 Median :105993 Mode :character
## Mean : 15.31 Mean : 1.262 Mean :193990
## 3rd Qu.: 19.23 3rd Qu.: 1.000 3rd Qu.:383005
## Max. :769.23 Max. :96.000 Max. :450040
## NombreFamilia NombreCategoria Estado Mts.2
## Length:200625 Length:200625 Length:200625 Min. :47.0
## Class :character Class :character Class :character 1st Qu.:53.0
## Mode :character Mode :character Mode :character Median :60.0
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
## 4- Convertir tipos de datos Convertir de caracter a fecha
bd6<- bd3
bd6$Fecha <- as.Date(bd6$Fecha, format= "%d/%m/%Y") #si el aƱo estĆ” con dos es y minĆŗscula y si estĆ” con 4 es mayĆŗscula Convertir de caracter a entero
bd7 <- bd6
bd7$Hora <- substr(bd7$Hora, start=1, stop=2)
tibble(bd7)## # A tibble: 200,473 Ć 20
## vcClaā¦Ā¹ DescGā¦Ā² Fecha Hora Marca Fabriā¦Ā³ Produā¦ā“ Precio Ult.Cā¦āµ Unidaā¦ā¶
## <chr> <chr> <date> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl>
## 1 MX001 Abarroā¦ 2020-06-19 08 NUTRā¦ MEXILAC Nutri ā¦ 16 12.3 1
## 2 MX001 Abarroā¦ 2020-06-19 08 DAN ā¦ DANONEā¦ DANUP ā¦ 14 14 1
## 3 MX001 Abarroā¦ 2020-06-19 08 BIMBO GRUPO ā¦ Rebanaā¦ 5 5 1
## 4 MX001 Abarroā¦ 2020-06-19 08 PEPSI PEPSI-ā¦ Pepsi ā¦ 8 8 1
## 5 MX001 Abarroā¦ 2020-06-19 08 BLANā¦ FABRICā¦ Detergā¦ 19.5 15 1
## 6 MX001 Abarroā¦ 2020-06-19 08 FLASH ALEN Flash ā¦ 9.5 7.31 1
## 7 MX001 Abarroā¦ 2020-06-19 08 VARIā¦ DANONEā¦ Danoneā¦ 11 11 1
## 8 MX001 Abarroā¦ 2020-06-19 08 ZOTE FABRICā¦ Jabon ā¦ 9.5 7.31 1
## 9 MX001 Abarroā¦ 2020-06-19 08 ALWAā¦ PROCTEā¦ T Femeā¦ 23.5 18.1 1
## 10 MX001 Abarroā¦ 2020-06-19 15 JUMEX JUMEX Jugo Dā¦ 12 12 1
## # ā¦ with 200,463 more rows, 10 more variables: F.Ticket <int>,
## # NombreDepartamento <chr>, NombreFamilia <chr>, NombreCategoria <chr>,
## # Estado <chr>, Mts.2 <int>, Tipo.ubicaciĆ³n <chr>, Giro <chr>,
## # Hora.inicio <chr>, Hora.cierre <chr>, and abbreviated variable names
## # Ā¹āvcClaveTienda, Ā²āDescGiro, Ā³āFabricante, ā“āProducto, āµāUlt.Costo, ā¶āUnidadesbd7$Hora <- as.integer(bd7$Hora)
str(bd7)## 'data.frame': 200473 obs. of 20 variables:
## $ vcClaveTienda : chr "MX001" "MX001" "MX001" "MX001" ...
## $ DescGiro : chr "Abarrotes" "Abarrotes" "Abarrotes" "Abarrotes" ...
## $ Fecha : Date, format: "2020-06-19" "2020-06-19" ...
## $ Hora : int 8 8 8 8 8 8 8 8 8 15 ...
## $ Marca : chr "NUTRI LECHE" "DAN UP" "BIMBO" "PEPSI" ...
## $ Fabricante : chr "MEXILAC" "DANONE DE MEXICO" "GRUPO BIMBO" "PEPSI-COLA MEXICANA" ...
## $ Producto : chr "Nutri Leche 1 Litro" "DANUP STRAWBERRY P/BEBER 350GR NAL" "Rebanadas Bimbo 2Pz" "Pepsi N.R. 400Ml" ...
## $ Precio : num 16 14 5 8 19.5 9.5 11 9.5 23.5 12 ...
## $ Ult.Costo : num 12.3 14 5 8 15 ...
## $ Unidades : num 1 1 1 1 1 1 1 1 1 1 ...
## $ F.Ticket : int 1 2 3 3 4 4 4 4 4 5 ...
## $ NombreDepartamento: chr "Abarrotes" "Abarrotes" "Abarrotes" "Abarrotes" ...
## $ NombreFamilia : chr "Lacteos y Refrigerados" "Lacteos y Refrigerados" "Pan y Tortilla" "Bebidas" ...
## $ NombreCategoria : chr "Leche" "Yogurt" "Pan Dulce Empaquetado" "Refrescos PlƔstico (N.R.)" ...
## $ Estado : chr "Nuevo LeĆ³n" "Nuevo LeĆ³n" "Nuevo LeĆ³n" "Nuevo LeĆ³n" ...
## $ Mts.2 : int 60 60 60 60 60 60 60 60 60 60 ...
## $ Tipo.ubicaciĆ³n : chr "Esquina" "Esquina" "Esquina" "Esquina" ...
## $ Giro : chr "Abarrotes" "Abarrotes" "Abarrotes" "Abarrotes" ...
## $ Hora.inicio : chr "8:00" "8:00" "8:00" "8:00" ...
## $ Hora.cierre : chr "22:00" "22:00" "22:00" "22:00" ...5- Tratar valores faltantes (NA) ĀæCuantos NA tengo en la base de datos?
sum(is.na(bd7))## [1] 0sum(is.na(bd))## [1] 199188ĀæCuantos NA tengo por variable?
sapply(bd, function(x) sum (is.na(x)))## vcClaveTienda DescGiro Codigo.Barras PLU
## 0 0 0 199188
## Fecha Hora Marca Fabricante
## 0 0 0 0
## Producto Precio Ult.Costo Unidades
## 0 0 0 0
## F.Ticket NombreDepartamento NombreFamilia NombreCategoria
## 0 0 0 0
## Estado Mts.2 Tipo.ubicaciĆ³n Giro
## 0 0 0 0
## Hora.inicio Hora.cierre
## 0 0Borrar los NA de una tabla
bd8 <- bd
bd8 <- na.omit(bd8)
summary(bd8)## vcClaveTienda DescGiro Codigo.Barras PLU
## Length:1437 Length:1437 Min. :6.750e+08 Min. : 1.000
## Class :character Class :character 1st Qu.:6.750e+08 1st Qu.: 1.000
## Mode :character Mode :character Median :6.750e+08 Median : 1.000
## Mean :2.616e+11 Mean : 2.112
## 3rd Qu.:6.750e+08 3rd Qu.: 1.000
## Max. :7.501e+12 Max. :30.000
## Fecha Hora Marca Fabricante
## Length:1437 Length:1437 Length:1437 Length:1437
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Producto Precio Ult.Costo Unidades
## Length:1437 Min. :30.00 Min. : 1.00 Min. :1.000
## Class :character 1st Qu.:90.00 1st Qu.:64.62 1st Qu.:1.000
## Mode :character Median :90.00 Median :64.62 Median :1.000
## Mean :87.94 Mean :56.65 Mean :1.124
## 3rd Qu.:90.00 3rd Qu.:64.62 3rd Qu.:1.000
## Max. :90.00 Max. :64.62 Max. :7.000
## F.Ticket NombreDepartamento NombreFamilia NombreCategoria
## Min. : 772 Length:1437 Length:1437 Length:1437
## 1st Qu.: 99955 Class :character Class :character Class :character
## Median :102493 Mode :character Mode :character Mode :character
## Mean :100595
## 3rd Qu.:106546
## Max. :118356
## Estado Mts.2 Tipo.ubicaciĆ³n Giro
## Length:1437 Min. :58.00 Length:1437 Length:1437
## Class :character 1st Qu.:58.00 Class :character Class :character
## Mode :character Median :58.00 Mode :character Mode :character
## Mean :58.07
## 3rd Qu.:58.00
## Max. :60.00
## Hora.inicio Hora.cierre
## Length:1437 Length:1437
## Class :character Class :character
## Mode :character Mode :character
##
##
## Reeplazar los NA con ceros 0
bd9 <- bd
bd9 [is.na(bd9)]<- 0
summary(bd9)## vcClaveTienda DescGiro Codigo.Barras PLU
## Length:200625 Length:200625 Min. :8.347e+05 Min. : 0.00000
## Class :character Class :character 1st Qu.:7.501e+12 1st Qu.: 0.00000
## Mode :character Mode :character Median :7.501e+12 Median : 0.00000
## Mean :5.950e+12 Mean : 0.01513
## 3rd Qu.:7.501e+12 3rd Qu.: 0.00000
## Max. :1.750e+13 Max. :30.00000
## Fecha Hora Marca Fabricante
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Producto Precio Ult.Costo Unidades
## Length:200625 Min. :-147.00 Min. : 0.38 Min. : 0.200
## Class :character 1st Qu.: 11.00 1st Qu.: 8.46 1st Qu.: 1.000
## Mode :character Median : 16.00 Median : 12.31 Median : 1.000
## Mean : 19.42 Mean : 15.31 Mean : 1.262
## 3rd Qu.: 25.00 3rd Qu.: 19.23 3rd Qu.: 1.000
## Max. :1000.00 Max. :769.23 Max. :96.000
## F.Ticket NombreDepartamento NombreFamilia NombreCategoria
## Min. : 1 Length:200625 Length:200625 Length:200625
## 1st Qu.: 33964 Class :character Class :character Class :character
## Median :105993 Mode :character Mode :character Mode :character
## Mean :193990
## 3rd Qu.:383005
## Max. :450040
## Estado Mts.2 Tipo.ubicaciĆ³n Giro
## Length:200625 Min. :47.0 Length:200625 Length:200625
## Class :character 1st Qu.:53.0 Class :character Class :character
## Mode :character Median :60.0 Mode :character Mode :character
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Hora.inicio Hora.cierre
## Length:200625 Length:200625
## Class :character Class :character
## Mode :character Mode :character
##
##
## Reemplazar el NA con el promedio
bd10<- bd
bd10$PLU[is.na(bd10$PLU)] <- mean(bd10$PLU, na.rm=TRUE)
summary(bd10) ## vcClaveTienda DescGiro Codigo.Barras PLU
## Length:200625 Length:200625 Min. :8.347e+05 Min. : 1.000
## Class :character Class :character 1st Qu.:7.501e+12 1st Qu.: 2.112
## Mode :character Mode :character Median :7.501e+12 Median : 2.112
## Mean :5.950e+12 Mean : 2.112
## 3rd Qu.:7.501e+12 3rd Qu.: 2.112
## Max. :1.750e+13 Max. :30.000
## Fecha Hora Marca Fabricante
## Length:200625 Length:200625 Length:200625 Length:200625
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Producto Precio Ult.Costo Unidades
## Length:200625 Min. :-147.00 Min. : 0.38 Min. : 0.200
## Class :character 1st Qu.: 11.00 1st Qu.: 8.46 1st Qu.: 1.000
## Mode :character Median : 16.00 Median : 12.31 Median : 1.000
## Mean : 19.42 Mean : 15.31 Mean : 1.262
## 3rd Qu.: 25.00 3rd Qu.: 19.23 3rd Qu.: 1.000
## Max. :1000.00 Max. :769.23 Max. :96.000
## F.Ticket NombreDepartamento NombreFamilia NombreCategoria
## Min. : 1 Length:200625 Length:200625 Length:200625
## 1st Qu.: 33964 Class :character Class :character Class :character
## Median :105993 Mode :character Mode :character Mode :character
## Mean :193990
## 3rd Qu.:383005
## Max. :450040
## Estado Mts.2 Tipo.ubicaciĆ³n Giro
## Length:200625 Min. :47.0 Length:200625 Length:200625
## Class :character 1st Qu.:53.0 Class :character Class :character
## Mode :character Median :60.0 Mode :character Mode :character
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Hora.inicio Hora.cierre
## Length:200625 Length:200625
## Class :character Class :character
## Mode :character Mode :character
##
##
## 6- Verificar datos con mĆ©todos estadĆsticos Buscar datos atĆpicos, fuera de lo normal
bd11<- bd7
boxplot(bd11$Precio, horizontal=TRUE) #hay un producto que cuesta 1000, pero es whiskey por lo que es normal 
boxplot(bd11$Unidades, horizontal=TRUE) #comparon 100 unidades de tecate por lo que no es anormal 
Paso 4.Manipulacion de la base de datos
bd11$diadelasemana <- wday(bd11$Fecha)
summary(bd11) ## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Min. :2020-01-05 Min. : 0.00
## Class :character Class :character 1st Qu.:2020-05-22 1st Qu.:13.00
## Mode :character Mode :character Median :2020-07-07 Median :17.00
## Mean :2020-07-07 Mean :16.23
## 3rd Qu.:2020-09-06 3rd Qu.:20.00
## Max. :2020-12-10 Max. :23.00
## Marca Fabricante Producto Precio
## Length:200473 Length:200473 Length:200473 Min. : 0.50
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.45
## 3rd Qu.: 25.00
## Max. :1000.00
## Ult.Costo Unidades F.Ticket NombreDepartamento
## Min. : 0.38 Min. : 0.200 Min. : 1 Length:200473
## 1st Qu.: 8.46 1st Qu.: 1.000 1st Qu.: 33978 Class :character
## Median : 12.31 Median : 1.000 Median :106035 Mode :character
## Mean : 15.31 Mean : 1.261 Mean :194101
## 3rd Qu.: 19.23 3rd Qu.: 1.000 3rd Qu.:383065
## Max. :769.23 Max. :96.000 Max. :450040
## NombreFamilia NombreCategoria Estado Mts.2
## Length:200473 Length:200473 Length:200473 Min. :47.0
## Class :character Class :character Class :character 1st Qu.:53.0
## Mode :character Mode :character Mode :character Median :60.0
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## Length:200473 Length:200473 Length:200473 Length:200473
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## diadelasemana
## Min. :1.0
## 1st Qu.:2.0
## Median :4.0
## Mean :3.9
## 3rd Qu.:6.0
## Max. :7.0bd11$subtotal <- bd11$Precio * bd11$Unidades
summary(bd11)## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Min. :2020-01-05 Min. : 0.00
## Class :character Class :character 1st Qu.:2020-05-22 1st Qu.:13.00
## Mode :character Mode :character Median :2020-07-07 Median :17.00
## Mean :2020-07-07 Mean :16.23
## 3rd Qu.:2020-09-06 3rd Qu.:20.00
## Max. :2020-12-10 Max. :23.00
## Marca Fabricante Producto Precio
## Length:200473 Length:200473 Length:200473 Min. : 0.50
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.45
## 3rd Qu.: 25.00
## Max. :1000.00
## Ult.Costo Unidades F.Ticket NombreDepartamento
## Min. : 0.38 Min. : 0.200 Min. : 1 Length:200473
## 1st Qu.: 8.46 1st Qu.: 1.000 1st Qu.: 33978 Class :character
## Median : 12.31 Median : 1.000 Median :106035 Mode :character
## Mean : 15.31 Mean : 1.261 Mean :194101
## 3rd Qu.: 19.23 3rd Qu.: 1.000 3rd Qu.:383065
## Max. :769.23 Max. :96.000 Max. :450040
## NombreFamilia NombreCategoria Estado Mts.2
## Length:200473 Length:200473 Length:200473 Min. :47.0
## Class :character Class :character Class :character 1st Qu.:53.0
## Mode :character Mode :character Mode :character Median :60.0
## Mean :56.6
## 3rd Qu.:60.0
## Max. :62.0
## Tipo.ubicaciĆ³n Giro Hora.inicio Hora.cierre
## Length:200473 Length:200473 Length:200473 Length:200473
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## diadelasemana subtotal
## Min. :1.0 Min. : 1.0
## 1st Qu.:2.0 1st Qu.: 12.0
## Median :4.0 Median : 18.0
## Mean :3.9 Mean : 24.3
## 3rd Qu.:6.0 3rd Qu.: 27.0
## Max. :7.0 Max. :2496.0Paso 5. Exportar base de datos limpia
bd_limpia <- bd11
#write.csv(bd_limpia, file= "abarrotes_bdlimpia.csv", row.names= FALSE)LS0tCnRpdGxlOiAiYWJhcnJvdGVzIgphdXRob3I6ICJDcmlzdGluYSBGUCBhMDE1NjY4ODAiCmRhdGU6ICIyMDIzLTAzLTE3IgpvdXRwdXQ6CiAgICBodG1sX2RvY3VtZW50OgogICAgICB0b2M6IHRydWUKICAgICAgdG9jX2Zsb2F0OiB0cnVlIAogICAgICBjb2RlX2Rvd25sb2FkOiB0cnVlIAotLS0KIyMgQW7DoWxpc2lzIGRlIGxhcyB2ZW50YXMgZGUgQWJhcnJvdGVzIAoKVW5hIGVtcHJlc2EgY29uIDUgdGllbmRhcyBlbiBlbCBwYcOtcyBzb2xpY2l0YSB1biBhbsOhbGlzaXMgZGUgc3VzIHZlbnRhcyBkZSBhYmFycm90ZXMgZGUgbWF5byB5IG5vdmllbWJyZSBkZSAyMDIwCgojIyMgUGFzbyAwLiBpbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXJpYXMKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJkcGx5ciIpCmxpYnJhcnkoZHBseXIpCiNpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKI2luc3RhbGwucGFja2FnZXMoImphbml0b3IiKQpsaWJyYXJ5KGphbml0b3IpCiNpbnN0YWxsLnBhY2thZ2VzKCJsdWJyaWRhdGUiKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKYGBgCgojIyMgUGFzbyAxLiBpbXBvcnRhciBlbCBhcmNoaXZvIApmaWxlLmNob29zZSgpCmBgYHtyfQpiZCA8LSByZWFkLmNzdigiL1VzZXJzL2NyaXNmbG9yZXNwYWxhY2lvcy9EZXNrdG9wL01hbmlwdWxhY2lvbiBkZSBkYXRvcy9hYmFycm90ZXMuY3N2IikKYGBgCgojIyMgUGFzbyAyLiBFbnRlbmRlciBsYSBiYXNlIGRlIGRhdG9zCmBgYHtyfQpzdW1tYXJ5KGJkKQoKI2NvdW50KGJkLHZjQ2xhdmVUaWVuZGEsIHNvcnQ9VFJVRSkKI2NvdW50KGJkLERlc2NHaXJvLCBzb3J0PVRSVUUpCiNjb3VudChiZCxNYXJjYSwgc29ydD1UUlVFKQojY291bnQoYmQsRmFicmljYW50ZSwgc29ydD1UUlVFKQojY291bnQoYmQsUHJvZHVjdG8sIHNvcnQ9VFJVRSkKI2NvdW50KGJkLE5vbWJyZURlcGFydGFtZW50bywgc29ydD1UUlVFKQojY291bnQoYmQsTm9tYnJlRmFtaWxpYSwgc29ydD1UUlVFKQojY291bnQoYmQsTm9tYnJlQ2F0ZWdvcmlhLCBzb3J0PVRSVUUpCiNjb3VudChiZCxFc3RhZG8sIHNvcnQ9VFJVRSkKI2NvdW50KGJkLFRpcG8udWJpY2FjacOzbiwgc29ydD1UUlVFKQojY291bnQoYmQsR2lybywgc29ydD1UUlVFKQoKdGliYmxlKGJkKSAKaGVhZChiZCkKdGFpbChiZCwgbj03KQoKdGFieWwoYmQsIHZjQ2xhdmVUaWVuZGEsIE5vbWJyZURlcGFydGFtZW50bykgI2NyZWEgdW5hIHRhYmxhIG51ZXZhLCBlbiBlbCBwcmltZXJvIGVzIGVsIHJlbmdsb24geSBlbiBlbCAyIGxhcyBjb2x1bW5hcyAKdGFieWwoYmQsIE5vbWJyZUZhbWlsaWEsIHZjQ2xhdmVUaWVuZGEpCmBgYAoKIyMjIEhhbGxhemdvcyAKTGFzIGZlY2hhcyB5IGxhcyBob3JhcyBlc3RhbiBlbiBjYXJhY3RlciwgY29tbyBzaSBmdWVyYW4gdGV4dG8gClByZWNpb3MgbmVnYXRpdm9zCk5vIGhheSBjb2x1bW5hIGRlIHZlbnRhcyAoY2FudGlkYWQgKiBwcmVjaW8pCgojIyMgUGFzbyAzLiBMaW1waWV6YSBkZSBkYXRvcyAKRXhpc3RlbiA2IHTDqWNuaWNhcyBwYXJhIGxpbXBpYXIgZGF0b3MKCioqMS0gUmVtb3ZlciB2YWxvcmVzIGlycmVsZXZhbnRlcyoqCkVsaW1pbmFyIGNvbHVtbmFzIApgYGB7cn0KYmQxIDwtIGJkCmJkMSA8LSBzdWJzZXQoYmQxLCBzZWxlY3QgPSAtYyhQTFUsIENvZGlnby5CYXJyYXMpKQogIApiZDIgPC0gYmQxCmJkMiA8LSBiZDJbYmQyJFByZWNpbyA+MCxdCnN1bW1hcnkoYmQyKQpgYGAKICAKKioyLSBSZW1vdmVyIHZhbG9yZXMgZHVwbGljYWRvcyoqCsK/Q3VhbnRvcyB2YWxvcmVzIGR1cGxpY2Fkb3MgdGVuZW1vcz8KYGBge3J9CmJkMltkdXBsaWNhdGVkKGJkMiksXQpzdW0oZHVwbGljYXRlZChiZDIpKQpgYGAKRWxpbWluYXIgcmVuZ2xvbmVzIGR1cGxpY2Fkb3MKYGBge3J9CmJkMzwtIGJkMgpiZDMgPC0gZGlzdGluY3QoYmQzKQpgYGAKCioqMy0gUmVzb2x2ZXIgcmVuZ2xvbmVzIHRpcG9ncsOhZmljb3MgeSBzaW1pbGFyZXMgKioKUHJlY2lvcyBlbiBhYnNvbHV0byAKYGBge3J9CmJkNDwtIGJkMQpiZDQkUHJlY2lvPC0gYWJzKGJkNCRQcmVjaW8pCnN1bW1hcnkoYmQ0KQpgYGAKVW5pZGFkZXMgZW4gZW50ZXJvcyAKYGBge3J9CmJkNTwtIGJkNApiZDUkVW5pZGFkZXMgPC0gY2VpbGluZyhiZDUkVW5pZGFkZXMpCnN1bW1hcnkoYmQ1KQpgYGAKCioqNC0gQ29udmVydGlyIHRpcG9zIGRlIGRhdG9zICoqCkNvbnZlcnRpciBkZSBjYXJhY3RlciBhIGZlY2hhCmBgYHtyfQpiZDY8LSBiZDMKYmQ2JEZlY2hhIDwtIGFzLkRhdGUoYmQ2JEZlY2hhLCBmb3JtYXQ9ICIlZC8lbS8lWSIpICNzaSBlbCBhw7FvIGVzdMOhIGNvbiBkb3MgZXMgeSBtaW7DunNjdWxhIHkgc2kgZXN0w6EgY29uIDQgZXMgbWF5w7pzY3VsYSAgCmBgYAoKQ29udmVydGlyIGRlIGNhcmFjdGVyIGEgZW50ZXJvCmBgYHtyfQpiZDcgPC0gYmQ2CmJkNyRIb3JhIDwtIHN1YnN0cihiZDckSG9yYSwgc3RhcnQ9MSwgc3RvcD0yKQp0aWJibGUoYmQ3KQpiZDckSG9yYSA8LSBhcy5pbnRlZ2VyKGJkNyRIb3JhKQpzdHIoYmQ3KQpgYGAKCioqNS0gVHJhdGFyIHZhbG9yZXMgZmFsdGFudGVzIChOQSkqKgrCv0N1YW50b3MgTkEgdGVuZ28gZW4gbGEgYmFzZSBkZSBkYXRvcz8KYGBge3J9CnN1bShpcy5uYShiZDcpKQpzdW0oaXMubmEoYmQpKQpgYGAKCsK/Q3VhbnRvcyBOQSB0ZW5nbyBwb3IgdmFyaWFibGU/CmBgYHtyfQpzYXBwbHkoYmQsIGZ1bmN0aW9uKHgpIHN1bSAoaXMubmEoeCkpKQpgYGAKCioqQm9ycmFyIGxvcyBOQSBkZSB1bmEgdGFibGEqKgpgYGB7cn0KYmQ4IDwtIGJkCmJkOCA8LSBuYS5vbWl0KGJkOCkKc3VtbWFyeShiZDgpCmBgYAoKUmVlcGxhemFyIGxvcyBOQSBjb24gY2Vyb3MgMApgYGB7cn0KYmQ5IDwtIGJkCmJkOSBbaXMubmEoYmQ5KV08LSAwCnN1bW1hcnkoYmQ5KQpgYGAKClJlZW1wbGF6YXIgZWwgTkEgY29uIGVsIHByb21lZGlvIApgYGB7cn0KYmQxMDwtIGJkCmJkMTAkUExVW2lzLm5hKGJkMTAkUExVKV0gPC0gbWVhbihiZDEwJFBMVSwgbmEucm09VFJVRSkgIApzdW1tYXJ5KGJkMTApICAKYGBgCgoqKjYtIFZlcmlmaWNhciBkYXRvcyBjb24gbcOpdG9kb3MgZXN0YWTDrXN0aWNvcyAqKgpCdXNjYXIgZGF0b3MgYXTDrXBpY29zLCBmdWVyYSBkZSBsbyBub3JtYWwgCmBgYHtyfQpiZDExPC0gYmQ3CmJveHBsb3QoYmQxMSRQcmVjaW8sIGhvcml6b250YWw9VFJVRSkgI2hheSB1biBwcm9kdWN0byBxdWUgY3Vlc3RhIDEwMDAsIHBlcm8gZXMgd2hpc2tleSBwb3IgbG8gcXVlIGVzIG5vcm1hbCAKYm94cGxvdChiZDExJFVuaWRhZGVzLCBob3Jpem9udGFsPVRSVUUpICNjb21wYXJvbiAxMDAgdW5pZGFkZXMgZGUgdGVjYXRlIHBvciBsbyBxdWUgbm8gZXMgYW5vcm1hbCAKYGBgCgoqKlBhc28gNC5NYW5pcHVsYWNpb24gZGUgbGEgYmFzZSBkZSBkYXRvcyoqIApgYGB7cn0KYmQxMSRkaWFkZWxhc2VtYW5hIDwtIHdkYXkoYmQxMSRGZWNoYSkKc3VtbWFyeShiZDExKSAgCgpiZDExJHN1YnRvdGFsIDwtIGJkMTEkUHJlY2lvICogYmQxMSRVbmlkYWRlcwpzdW1tYXJ5KGJkMTEpCmBgYAoKKipQYXNvIDUuIEV4cG9ydGFyIGJhc2UgZGUgZGF0b3MgbGltcGlhICoqCmBgYHtyfQpiZF9saW1waWEgPC0gYmQxMQojd3JpdGUuY3N2KGJkX2xpbXBpYSwgZmlsZT0gImFiYXJyb3Rlc19iZGxpbXBpYS5jc3YiLCByb3cubmFtZXM9IEZBTFNFKQpgYGAKCg==