CASOSTORE -Modelo de Simulación-

El presente trabajo, permite realizar un análisis descriptivo y exploratorio del caso Store, donde el problema fundamental en realizar una simulación de la conveniencia de mantener el bono por el tiempo en la empresa.

Metodología de trabajo

Con el propósito de realizar un diagnóstico el comportamiento de las variables a realizado un análisis descriptivo en función de la variable ventas “sales” segmentado por la variable categórica “visibility” y “residencia”

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  699306  984579 1127332 1205413 1362388 2113089
## Store$Res: Industrial
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## 1227841 1274856 1321870 1452484 1564805 1807740 
## ------------------------------------------------------------ 
## Store$Res: Residencial
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  699306  982312 1107686 1195119 1359036 2113089

Para determinar un análisis más detallado se aplica la técnica de análisis exploratorio, en particular el sesgo de la variable en base a la asimetría y concentración de los datos en función de la curtosis.

## Warning: package 'psych' was built under R version 4.0.2
##    vars  n    mean       sd  median trimmed    mad    min     max   range skew
## X1    1 75 1205413 304531.3 1127332 1182031 288422 699306 2113089 1413783 0.71
##    kurtosis       se
## X1    -0.09 35164.25
## 
##  Descriptive statistics by group 
## group: Alta visibilidad
##    vars n    mean       sd  median trimmed      mad     min     max  range skew
## X1    1 2 1653594 72452.99 1653594 1653594 75956.56 1602362 1704826 102464    0
##    kurtosis    se
## X1    -2.75 51232
## ------------------------------------------------------------ 
## group: Media alta visibilidad
##    vars  n    mean       sd  median trimmed      mad    min     max  range skew
## X1    1 18 1230161 221286.5 1234101 1224830 302797.3 925744 1619874 694130 0.17
##    kurtosis       se
## X1    -1.49 52157.74
## ------------------------------------------------------------ 
## group: Media baja visibilidad
##    vars  n    mean       sd  median trimmed      mad    min     max   range
## X1    1 16 1207456 391594.7 1049171 1175857 258165.1 744211 2113089 1368878
##    skew kurtosis       se
## X1  0.9    -0.45 97898.68
## ------------------------------------------------------------ 
## group: Visibilidad media
##    vars  n    mean       sd  median trimmed      mad    min     max   range
## X1    1 39 1170169 293057.6 1099921 1149816 259661.1 699306 1874873 1175567
##    skew kurtosis       se
## X1 0.69    -0.12 46926.77
## 
##  Descriptive statistics by group 
## : Industrial
## : Alta visibilidad
## NULL
## ------------------------------------------------------------ 
## : Residencial
## : Alta visibilidad
##    vars n    mean       sd  median trimmed      mad     min     max  range skew
## X1    1 2 1653594 72452.99 1653594 1653594 75956.56 1602362 1704826 102464    0
##    kurtosis    se
## X1    -2.75 51232
## ------------------------------------------------------------ 
## : Industrial
## : Media alta visibilidad
##    vars n    mean sd  median trimmed mad     min     max range skew kurtosis se
## X1    1 1 1321870 NA 1321870 1321870   0 1321870 1321870     0   NA       NA NA
## ------------------------------------------------------------ 
## : Residencial
## : Media alta visibilidad
##    vars  n    mean       sd  median trimmed      mad    min     max  range skew
## X1    1 17 1224767 226873.6 1171491 1218361 279017.9 925744 1619874 694130 0.23
##    kurtosis       se
## X1    -1.54 55024.94
## ------------------------------------------------------------ 
## : Industrial
## : Media baja visibilidad
##    vars n    mean sd  median trimmed mad     min     max range skew kurtosis se
## X1    1 1 1227841 NA 1227841 1227841   0 1227841 1227841     0   NA       NA NA
## ------------------------------------------------------------ 
## : Residencial
## : Media baja visibilidad
##    vars  n    mean     sd  median trimmed      mad    min     max   range skew
## X1    1 15 1206097 405300 1027035 1171858 218615.3 744211 2113089 1368878 0.88
##    kurtosis     se
## X1    -0.62 104648
## ------------------------------------------------------------ 
## : Industrial
## : Visibilidad media
##    vars n    mean sd  median trimmed mad     min     max range skew kurtosis se
## X1    1 1 1807740 NA 1807740 1807740   0 1807740 1807740     0   NA       NA NA
## ------------------------------------------------------------ 
## : Residencial
## : Visibilidad media
##    vars  n    mean       sd  median trimmed      mad    min     max   range
## X1    1 38 1153391 277359.7 1097808 1132525 258767.8 699306 1874873 1175567
##    skew kurtosis       se
## X1  0.7     0.09 44993.69

Para dar un apoyo visual los estadígrafos se han generado dos gráficos de caja que determinan los niveles de sesgo en cada grupo de análisis.

  Warning: package 'car' was built under R version 4.0.2
  Warning in Boxplot.default(mf[[response]], x, id = list(method = id.method, :
  NAs introducidos por coerción
  [1] "9"
  Warning in Boxplot.default(mf[[response]], x, id = list(method = id.method, :
  NAs introducidos por coerción

  [1] "30"

Con estos antecedentes se puede tener un diagnóstico estadístico del caso Store.

## Warning: package 'corrplot' was built under R version 4.0.2

## Warning: package 'ggplot2' was built under R version 4.0.2
## Warning: package 'GGally' was built under R version 4.0.2
## Warning: package 'dplyr' was built under R version 4.0.2
## Warning: package 'PerformanceAnalytics' was built under R version 4.0.2
## Warning: package 'xts' was built under R version 4.0.2
## Warning: package 'zoo' was built under R version 4.0.2