“Limpieza Abarrotes”
Carlos González Ayerdi A00829126
2022-09-08
A la base de datos se le hicieron los siguientes cambios
*Formato a fecha corta
*Se duplicaron os primeros 5 registros
* Se Cambió el formato a hora (Español, México)
*Se cambi? el formao codigo de barras
* Se cambio el formato a codigo de barras para que salga completo
#Importar base de datos
Selecciónar y entender la base de datos
#file.choose()
bd <- read.csv("/Users/carlosgonzalez/Desktop/Analitica para negocios/Modulo 3/Todos los R Rdowns y HTMLs/Abarrotes.csv")
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
##
##
##
## Instalar paquetes
#install.packages(dplyr)
#library(dplyr)
#count(bd, ?..vcClaveTienda, sort = TRUE)
#count(bd, DescGiro, sort = TRUE)
#count(bd, Fabricante, sort = TRUE)
#count(bd, Producto, sort = TRUE)
#count(bd, Precio, sort = TRUE)
#count(bd, NombreFamilia, sort = TRUE)
#count(bd, NombreCategoria, sort = TRUE)
#count(bd, Estado, sort = TRUE)
#count(bd, Mts.2, sort = TRUE)
#count(bd, Tipo.ubicación, sort = TRUE)
#count(bd, Giro, sort = TRUE)
#count(bd, Hora.inicio, sort = TRUE)
#count(bd, Hora.cierre, sort = TRUE)
#install.packages("tidyverse")
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.0 ✔ stringr 1.4.1
## ✔ readr 2.1.2 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()Algunas librerias no funcionan por actualizaciones
Formato
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 6/19… 08:1… NUTR… MEXILAC Nutri … 16
## 2 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… DAN … DANONE… DANUP … 14
## 3 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… BIMBO GRUPO … Rebana… 5
## 4 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… PEPSI PEPSI-… Pepsi … 8
## 5 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… BLAN… FABRIC… Deterg… 19.5
## 6 MX001 Abarrot… 7.50e12 NA 6/19… 08:1… NUTR… MEXILAC Nutri … 16
## 7 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… DAN … DANONE… DANUP … 14
## 8 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… BIMBO GRUPO … Rebana… 5
## 9 MX001 Abarrot… 7.50e12 NA 6/19… 08:2… PEPSI PEPSI-… Pepsi … 8
## 10 MX001 Abarrot… 7.50e12 NA 6/19… 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, ³Productostr(bd)## 'data.frame': 200625 obs. of 22 variables:
## $ vcClaveTienda : chr "MX001" "MX001" "MX001" "MX001" ...
## $ DescGiro : chr "Abarrotes" "Abarrotes" "Abarrotes" "Abarrotes" ...
## $ Codigo.Barras : num 7.5e+12 7.5e+12 7.5e+12 7.5e+12 7.5e+12 ...
## $ PLU : int NA NA NA NA NA NA NA NA NA NA ...
## $ Fecha : chr "6/19/2020" "6/19/2020" "6/19/2020" "6/19/2020" ...
## $ Hora : chr "08:16:21 a. m." "08:23:33 a. m." "08:24:33 a. m." "08:24:33 a. m." ...
## $ 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 16 14 5 8 19.5 ...
## $ 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 1 2 3 3 4 ...
## $ 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" ...head(bd)## vcClaveTienda DescGiro Codigo.Barras PLU Fecha Hora
## 1 MX001 Abarrotes 7.50102e+12 NA 6/19/2020 08:16:21 a. m.
## 2 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:23:33 a. m.
## 3 MX001 Abarrotes 7.50100e+12 NA 6/19/2020 08:24:33 a. m.
## 4 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:24:33 a. m.
## 5 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:26:28 a. m.
## 6 MX001 Abarrotes 7.50102e+12 NA 6/19/2020 08:16:21 a. m.
## 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:00head(bd, n=7)## vcClaveTienda DescGiro Codigo.Barras PLU Fecha Hora
## 1 MX001 Abarrotes 7.50102e+12 NA 6/19/2020 08:16:21 a. m.
## 2 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:23:33 a. m.
## 3 MX001 Abarrotes 7.50100e+12 NA 6/19/2020 08:24:33 a. m.
## 4 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:24:33 a. m.
## 5 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:26:28 a. m.
## 6 MX001 Abarrotes 7.50102e+12 NA 6/19/2020 08:16:21 a. m.
## 7 MX001 Abarrotes 7.50103e+12 NA 6/19/2020 08:23:33 a. m.
## 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
## 7 DAN UP DANONE DE MEXICO
## 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
## 7 DANUP STRAWBERRY P/BEBER 350GR NAL 14.0 14.00 1 2
## 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
## 7 Abarrotes Lacteos y Refrigerados Yogurt
## 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:00
## 7 Nuevo León 60 Esquina Abarrotes 8:00 22:00#install.packages("janitor")
library(janitor)##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testtail(bd)## vcClaveTienda DescGiro Codigo.Barras PLU Fecha Hora
## 200620 MX005 Depósito 7.62221e+12 NA 07/12/20 01:08:25 a. m.
## 200621 MX005 Depósito 7.62221e+12 NA 10/23/2020 10:17:37 p. m.
## 200622 MX005 Depósito 7.62221e+12 NA 10/10/20 08:30:20 p. m.
## 200623 MX005 Depósito 7.62221e+12 NA 10/10/20 10:40:43 p. m.
## 200624 MX005 Depósito 7.62221e+12 NA 6/27/2020 10:30:19 p. m.
## 200625 MX005 Depósito 7.62221e+12 NA 6/26/2020 11:43:34 p. m.
## Marca Fabricante Producto Precio
## 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
## 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
## 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
## 200620 21:00
## 200621 21:00
## 200622 21:00
## 200623 21:00
## 200624 21:00
## 200625 21:00#tabyl(bd, ?..vcClaveTienda , NombreDepartamento)Observaciones:
Casi ningun registro cuenta con PLU
Cambiar formato fecha
Cambiar formato de hora
Hay precios negativos
Hay unidades menores a 1
Técnicas para limpieza de datos
#eliminar columnas
bdl <- bd
bdl <- subset(bdl, select= -c (PLU, Codigo.Barras))Eliminar renglones
bd2 <- bdl
bd2 <- bd2[bd2$Precio > 0,]
summary(bdl)## 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. :-147.00
## Class :character Class :character Class :character 1st Qu.: 11.00
## Mode :character Mode :character Mode :character Median : 16.00
## Mean : 19.42
## 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
##
##
## 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
##
##
## Esto no lo usaremos, pondermos precios negativos como absoluto
#Tecnica 2. Remover valores duplicados
#Cuantos renglones tenemos
bdl[duplicated(bdl),]## vcClaveTienda DescGiro Fecha Hora Marca
## 6 MX001 Abarrotes 6/19/2020 08:16:21 a. m. NUTRI LECHE
## 7 MX001 Abarrotes 6/19/2020 08:23:33 a. m. DAN UP
## 8 MX001 Abarrotes 6/19/2020 08:24:33 a. m. BIMBO
## 9 MX001 Abarrotes 6/19/2020 08:24:33 a. m. PEPSI
## 10 MX001 Abarrotes 6/19/2020 08:26:28 a. m. 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(bdl))## [1] 5#Eliminar renglones duplicados
bd3 <- bd2
library(dplyr)
bd3 <- distinct(bd3)
summary(bd3)## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Length:200473 Length:200473
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## 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
##
##
## #Tecnica 3 errores tipograficos y errores similares
bd4 <- bd3
bd4$Precio <- abs(bd4$Precio)
summary(bd4) ## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Length:200473 Length:200473
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## 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
##
##
## #Cantidades en enteros
bd5 <- bd4
bd5$Unidades <- ceiling(bd5$Unidades)
summary(bd5)## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Length:200473 Length:200473
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## 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. : 1.000 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
##
##
## Técnica 4 convertir tipos de datos
#Convertir de caracter a fecha
bd6 <- bd5
bd6$Fecha <- as.Date(bd6$Fecha, format = "%d/%m/%Y")
tibble(bd6)## # 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… NA 08:16:21… NUTR… MEXILAC Nutri … 16 12.3 1
## 2 MX001 Abarro… NA 08:23:33… DAN … DANONE… DANUP … 14 14 1
## 3 MX001 Abarro… NA 08:24:33… BIMBO GRUPO … Rebana… 5 5 1
## 4 MX001 Abarro… NA 08:24:33… PEPSI PEPSI-… Pepsi … 8 8 1
## 5 MX001 Abarro… NA 08:26:28… BLAN… FABRIC… Deterg… 19.5 15 1
## 6 MX001 Abarro… NA 08:26:28… FLASH ALEN Flash … 9.5 7.31 1
## 7 MX001 Abarro… NA 08:26:28… VARI… DANONE… Danone… 11 11 1
## 8 MX001 Abarro… NA 08:26:28… ZOTE FABRIC… Jabon … 9.5 7.31 1
## 9 MX001 Abarro… NA 08:26:28… ALWA… PROCTE… T Feme… 23.5 18.1 1
## 10 MX001 Abarro… NA 03:24:02… 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, ⁶Unidades#Convertir 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… NA 08 NUTRI LE… MEXILAC Nutri … 16 12.3 1
## 2 MX001 Abarro… NA 08 DAN UP DANONE… DANUP … 14 14 1
## 3 MX001 Abarro… NA 08 BIMBO GRUPO … Rebana… 5 5 1
## 4 MX001 Abarro… NA 08 PEPSI PEPSI-… Pepsi … 8 8 1
## 5 MX001 Abarro… NA 08 BLANCA N… FABRIC… Deterg… 19.5 15 1
## 6 MX001 Abarro… NA 08 FLASH ALEN Flash … 9.5 7.31 1
## 7 MX001 Abarro… NA 08 VARIOS D… DANONE… Danone… 11 11 1
## 8 MX001 Abarro… NA 08 ZOTE FABRIC… Jabon … 9.5 7.31 1
## 9 MX001 Abarro… NA 08 ALWAYS PROCTE… T Feme… 23.5 18.1 1
## 10 MX001 Abarro… NA 03 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: NA NA ...
## $ Hora : int 8 8 8 8 8 8 8 8 8 3 ...
## $ 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" ...Tecnica 5. valores faltantes
#Cuantos NA tengo en la base de datos
sum(is.na(bd7))## [1] 113126sum(is.na(bd))## [1] 199188#Cuantos NA por variable?
sapply(bd7, function(x) sum(is.na(x)))## vcClaveTienda DescGiro Fecha Hora
## 0 0 113126 0
## Marca Fabricante Producto Precio
## 0 0 0 0
## Ult.Costo Unidades F.Ticket NombreDepartamento
## 0 0 0 0
## NombreFamilia NombreCategoria Estado Mts.2
## 0 0 0 0
## Tipo.ubicación Giro Hora.inicio Hora.cierre
## 0 0 0 0sapply(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 0#borrar todos los registros 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
##
##
## #Reemplazar NA con ceros
bd9 <- bd
bd9 <- na.omit(bd9)
summary(bd9)## 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
##
##
## #Reemplazar NA con Promedio
bd10 <- bd
bd10$PLU[is.na(bd9$PLU)] <- mean(bd9$PLU, na.rm = TRUE)
summary(bd10)## 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
##
##
##
## Tecnica 6 metodo estadistico
bd12 <- bd7
boxplot(bd12$Precio, horizontal = TRUE)
boxplot(bd12$Unidades, horizontal = TRUE)
#Agregar Columnas
#install.packages("lubridate")
library(lubridate)##
## Attaching package: 'lubridate'## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, unionbd12$Dia_de_la_Semana <- wday(bd12$Fecha)
summary(bd12)## vcClaveTienda DescGiro Fecha Hora
## Length:200473 Length:200473 Min. :0020-01-05 Min. : 1.0
## Class :character Class :character 1st Qu.:0020-03-11 1st Qu.: 5.0
## Mode :character Mode :character Median :0020-06-10 Median : 8.0
## Mean :0020-06-20 Mean : 7.3
## 3rd Qu.:0020-09-10 3rd Qu.:10.0
## Max. :0020-12-10 Max. :12.0
## NA's :113126
## 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. : 1.000 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
##
##
##
##
## Dia_de_la_Semana
## Min. :1.00
## 1st Qu.:2.00
## Median :4.00
## Mean :3.96
## 3rd Qu.:6.00
## Max. :7.00
## NA's :113126#Expotar base de datos limpia
bd_limpia <- bd12
write.csv(bd_limpia, file="abarrotes_bd_limpia.csv", row.names = FALSE)Conclusón
Durante la realización de este programa, pude comprender las distintas tecnicas de limpieza de datos que son de gran utilidad para un posterior análisis. En lo personal considero que si bien fué un proceso largo, vale la pensa entender por completo las técnicas.
LS0tCnRpdGxlOiA8c3BhbiBzdHlsZT0iQ29sb3I6Qmx1ZSI+ICJMaW1waWV6YSBBYmFycm90ZXMiCmF1dGhvcjogIkNhcmxvcyBHb256w6FsZXogQXllcmRpIEEwMDgyOTEyNiIKZGF0ZTogIjIwMjItMDktMDgiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDogCiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQotLS0KPGltZyBzcmM9ICIvVXNlcnMvY2FybG9zZ29uemFsZXovRGVza3RvcC9MSU1QSUVaQSAucG5nIj4gCgoKIyMgQSBsYSBiYXNlIGRlIGRhdG9zIHNlIGxlIGhpY2llcm9uIGxvcyBzaWd1aWVudGVzIGNhbWJpb3MKIyMgICAqRm9ybWF0byBhIGZlY2hhIGNvcnRhCiMjICAgKlNlIGR1cGxpY2Fyb24gb3MgcHJpbWVyb3MgNSByZWdpc3Ryb3MKIyMgICAqIFNlIENhbWJpw7MgZWwgZm9ybWF0byBhIGhvcmEgKEVzcGHDsW9sLCBNw6l4aWNvKQojIyAgICpTZSBjYW1iaT8gZWwgZm9ybWFvIGNvZGlnbyBkZSBiYXJyYXMKIyMgICAqIFNlIGNhbWJpbyBlbCBmb3JtYXRvIGEgY29kaWdvIGRlIGJhcnJhcyBwYXJhIHF1ZSBzYWxnYSBjb21wbGV0byAKCiNJbXBvcnRhciBiYXNlIGRlIGRhdG9zCgoKIyBTZWxlY2Npw7NuYXIgeSBlbnRlbmRlciBsYSBiYXNlIGRlIGRhdG9zCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpiZCA8LSByZWFkLmNzdigiL1VzZXJzL2Nhcmxvc2dvbnphbGV6L0Rlc2t0b3AvQW5hbGl0aWNhIHBhcmEgbmVnb2Npb3MvTW9kdWxvIDMvVG9kb3MgbG9zIFIgUmRvd25zIHkgSFRNTHMvQWJhcnJvdGVzLmNzdiIpCgpzdW1tYXJ5KGJkKSAgCmBgYAoKIyBJbnN0YWxhciBwYXF1ZXRlcwpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoZHBseXIpCiNsaWJyYXJ5KGRwbHlyKQojY291bnQoYmQsID8uLnZjQ2xhdmVUaWVuZGEsIHNvcnQgPSBUUlVFKQojY291bnQoYmQsIERlc2NHaXJvLCBzb3J0ID0gVFJVRSkKI2NvdW50KGJkLCBGYWJyaWNhbnRlLCBzb3J0ID0gVFJVRSkKI2NvdW50KGJkLCBQcm9kdWN0bywgc29ydCA9IFRSVUUpCiNjb3VudChiZCwgUHJlY2lvLCBzb3J0ID0gVFJVRSkKI2NvdW50KGJkLCBOb21icmVGYW1pbGlhLCBzb3J0ID0gVFJVRSkKI2NvdW50KGJkLCBOb21icmVDYXRlZ29yaWEsIHNvcnQgPSBUUlVFKQojY291bnQoYmQsIEVzdGFkbywgc29ydCA9IFRSVUUpCiNjb3VudChiZCwgTXRzLjIsIHNvcnQgPSBUUlVFKQojY291bnQoYmQsIFRpcG8udWJpY2FjacOzbiwgc29ydCA9IFRSVUUpCiNjb3VudChiZCwgR2lybywgc29ydCA9IFRSVUUpCiNjb3VudChiZCwgSG9yYS5pbmljaW8sIHNvcnQgPSBUUlVFKQojY291bnQoYmQsIEhvcmEuY2llcnJlLCBzb3J0ID0gVFJVRSkKCiNpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKCgpgYGAKCkFsZ3VuYXMgbGlicmVyaWFzIG5vIGZ1bmNpb25hbiBwb3IgYWN0dWFsaXphY2lvbmVzCgojIEZvcm1hdG8gCmBgYHtyfQp0aWJibGUoYmQpCnN0cihiZCkKaGVhZChiZCkKaGVhZChiZCwgbj03KQoKI2luc3RhbGwucGFja2FnZXMoImphbml0b3IiKQpsaWJyYXJ5KGphbml0b3IpCgp0YWlsKGJkKQoKI3RhYnlsKGJkLCAgPy4udmNDbGF2ZVRpZW5kYSAsIE5vbWJyZURlcGFydGFtZW50bykKYGBgCgojIyMgT2JzZXJ2YWNpb25lczogIAojIyMgQ2FzaSBuaW5ndW4gcmVnaXN0cm8gY3VlbnRhIGNvbiBQTFUgIAojIyMgQ2FtYmlhciBmb3JtYXRvIGZlY2hhICAKIyMjIENhbWJpYXIgZm9ybWF0byBkZSBob3JhICAgICAKIyMjIEhheSBwcmVjaW9zIG5lZ2F0aXZvcyAgCiMjIyBIYXkgdW5pZGFkZXMgbWVub3JlcyBhIDEgIAoKCiMgVMOpY25pY2FzIHBhcmEgbGltcGllemEgZGUgZGF0b3MKYGBge3J9CiNlbGltaW5hciBjb2x1bW5hcwpiZGwgPC0gYmQKYmRsIDwtIHN1YnNldChiZGwsIHNlbGVjdD0gLWMgKFBMVSwgQ29kaWdvLkJhcnJhcykpCmBgYAoKCgojIEVsaW1pbmFyIHJlbmdsb25lcwpgYGB7cn0KYmQyIDwtIGJkbApiZDIgPC0gYmQyW2JkMiRQcmVjaW8gPiAwLF0Kc3VtbWFyeShiZGwpCnN1bW1hcnkoYmQyKQpgYGAKCiMjIyBFc3RvIG5vIGxvIHVzYXJlbW9zLCBwb25kZXJtb3MgcHJlY2lvcyBuZWdhdGl2b3MgY29tbyBhYnNvbHV0bwoKI1RlY25pY2EgMi4gUmVtb3ZlciB2YWxvcmVzIGR1cGxpY2Fkb3MKYGBge3J9CiNDdWFudG9zIHJlbmdsb25lcyB0ZW5lbW9zIApiZGxbZHVwbGljYXRlZChiZGwpLF0Kc3VtKGR1cGxpY2F0ZWQoYmRsKSkKCiNFbGltaW5hciByZW5nbG9uZXMgZHVwbGljYWRvcwpiZDMgPC0gYmQyCmxpYnJhcnkoZHBseXIpCmJkMyA8LSBkaXN0aW5jdChiZDMpCnN1bW1hcnkoYmQzKQpgYGAKCgojVGVjbmljYSAzIGVycm9yZXMgdGlwb2dyYWZpY29zIHkgZXJyb3JlcyBzaW1pbGFyZXMKYGBge3J9CmJkNCA8LSBiZDMKYmQ0JFByZWNpbyA8LSBhYnMoYmQ0JFByZWNpbykKc3VtbWFyeShiZDQpIAoKI0NhbnRpZGFkZXMgZW4gZW50ZXJvcwpiZDUgPC0gYmQ0CmJkNSRVbmlkYWRlcyA8LSBjZWlsaW5nKGJkNSRVbmlkYWRlcykgCnN1bW1hcnkoYmQ1KQpgYGAKCgojIFTDqWNuaWNhIDQgY29udmVydGlyIHRpcG9zIGRlIGRhdG9zIAoKYGBge3J9CiNDb252ZXJ0aXIgZGUgY2FyYWN0ZXIgYSBmZWNoYQpiZDYgPC0gYmQ1CmJkNiRGZWNoYSA8LSBhcy5EYXRlKGJkNiRGZWNoYSwgZm9ybWF0ID0gIiVkLyVtLyVZIikKdGliYmxlKGJkNikKCiNDb252ZXJ0aXIgY2FyYWN0ZXIgYSBlbnRlcm8KYmQ3IDwtIGJkNgpiZDckSG9yYSA8LSBzdWJzdHIoYmQ3JEhvcmEsIHN0YXJ0ID0gMSwgc3RvcCA9IDIpCnRpYmJsZShiZDcpCmJkNyRIb3JhIDwtIGFzLmludGVnZXIoYmQ3JEhvcmEpCnN0cihiZDcpCmBgYAoKIyBUZWNuaWNhIDUuIHZhbG9yZXMgZmFsdGFudGVzIApgYGB7cn0KI0N1YW50b3MgTkEgdGVuZ28gZW4gbGEgYmFzZSBkZSBkYXRvcwpzdW0oaXMubmEoYmQ3KSkKc3VtKGlzLm5hKGJkKSkKCiNDdWFudG9zIE5BIHBvciB2YXJpYWJsZT8Kc2FwcGx5KGJkNywgZnVuY3Rpb24oeCkgc3VtKGlzLm5hKHgpKSkKc2FwcGx5KGJkLCBmdW5jdGlvbiAoeCkgc3VtKGlzLm5hKHgpKSkKCiNib3JyYXIgdG9kb3MgbG9zIHJlZ2lzdHJvcyBOQSBkZSB1bmEgdGFibGEKYmQ4IDwtIGJkCmJkOCA8LSBuYS5vbWl0KGJkOCkKc3VtbWFyeShiZDgpCgojUmVlbXBsYXphciBOQSBjb24gY2Vyb3MgCmJkOSA8LSBiZApiZDkgPC0gbmEub21pdChiZDkpCnN1bW1hcnkoYmQ5KQoKI1JlZW1wbGF6YXIgTkEgY29uIFByb21lZGlvCmJkMTAgPC0gYmQKYmQxMCRQTFVbaXMubmEoYmQ5JFBMVSldIDwtIG1lYW4oYmQ5JFBMVSwgbmEucm0gPSBUUlVFKQpzdW1tYXJ5KGJkMTApCmBgYAoKCiMgIFRlY25pY2EgNiBtZXRvZG8gZXN0YWRpc3RpY28KYGBge3J9CmJkMTIgPC0gYmQ3IApib3hwbG90KGJkMTIkUHJlY2lvLCBob3Jpem9udGFsID0gVFJVRSkKYm94cGxvdChiZDEyJFVuaWRhZGVzLCBob3Jpem9udGFsID0gVFJVRSkKYGBgCgojQWdyZWdhciBDb2x1bW5hcwpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImx1YnJpZGF0ZSIpCmxpYnJhcnkobHVicmlkYXRlKQpiZDEyJERpYV9kZV9sYV9TZW1hbmEgPC0gd2RheShiZDEyJEZlY2hhKQpzdW1tYXJ5KGJkMTIpCgpgYGAKCgoKI0V4cG90YXIgYmFzZSBkZSBkYXRvcyBsaW1waWEKYGBge3J9CmJkX2xpbXBpYSA8LSBiZDEyCndyaXRlLmNzdihiZF9saW1waWEsIGZpbGU9ImFiYXJyb3Rlc19iZF9saW1waWEuY3N2Iiwgcm93Lm5hbWVzID0gRkFMU0UpCmBgYAogCiMgQ29uY2x1c8OzbgpEdXJhbnRlIGxhIHJlYWxpemFjacOzbiBkZSBlc3RlIHByb2dyYW1hLCBwdWRlIGNvbXByZW5kZXIgbGFzIGRpc3RpbnRhcyB0ZWNuaWNhcyBkZSBsaW1waWV6YSBkZSBkYXRvcyBxdWUgc29uIGRlIGdyYW4gdXRpbGlkYWQgcGFyYSB1biBwb3N0ZXJpb3IgYW7DoWxpc2lzLiBFbiBsbyBwZXJzb25hbCBjb25zaWRlcm8gcXVlIHNpIGJpZW4gZnXDqSB1biBwcm9jZXNvIGxhcmdvLCB2YWxlIGxhIHBlbnNhIGVudGVuZGVyIHBvciBjb21wbGV0byBsYXMgdMOpY25pY2FzLiA=