CASO1

Enunciado

La siguiente información recoge cinco de las principales características de un grupo de marcas de cerveza que fue recogida con la finalizad de clasificar los productos y además permita realizar un análisis descriptivo de las 69 marcas recogidas

Inicialmente el director de investigación desea su apoyo en una primera etapa del análisis que consiste en resumir la información suministrada en tablas e indicadores que le permitan validar algunas de sus hipótesis.

La base compartida contiene información sobre 69 marcas de cervezas que son distribuidas en la ciudad. Las variables recogidas corresponden a:

• precio de la presentación en caja de seis botellas de 12 onzas,

• contenido de calorias contenidas en una unidad de 12 onzas,

• porcentaje de contenido de alcohol por 12 onzas de contenido,

• tipo de cerveza (1-lager artesanal, 2-clara artesanal, 3-lager importada, 4-cerveza normal y helada, y 5-cerveza baja en calorías y sin alcohol) y

• país de origen : 0-nacional, 1- importada.

Su trabajo consiste en escribir un primer informe basado en una evaluación descriptiva, que contenga las tablas que resumen la información para cada variable de base de datos y resumen de sus indicadores estadísticos.

Finalmente adjunte un análisis de los resultados obtenidos.

Cargar datos

library(readr)
beer <- read_csv("beer.csv")

Rows: 69 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (1): marca
dbl (3): calorias, tipo, origen
num (2): precio, poralcoh

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(beer)

Resumen estadistico

Tipo de cervza

Tipo de cerveza	Frecuencia Absoluta
1-lager artesanal	13
2-clara artesanal	17
3-lager importada	10
4-cerveza normal y helada	16
5-cerveza baja en calorías y sin alcohol	13

Origen de la cerveza

Origen de la cerveza	Frecuencia Absoluta
0-nacional	15
1-importada	54

`

Precio, porcentaje de alcohol, caloricas de la cerveza

n     mean     sd      median  min   max   range   skew    kurtosis   se
69    424.58   1.44    425     4     779   775     -0.54   -0.68      25.57

summarytools::descr(beer[,2:4])

Descriptive Statistics  
beer  
N: 69  

                    calorias   poralcoh   precio
----------------- ---------- ---------- --------
             Mean     142.35      36.25   424.58
          Std.Dev      29.90      21.09   212.37
              Min      58.00       0.00     4.00
               Q1     142.00       5.00   319.00
           Median     148.00      46.00   425.00
               Q3     160.00      51.00   596.00
              Max     201.00      59.00   779.00
              MAD      16.31      10.38   222.39
              IQR      18.00      46.00   277.00
               CV       0.21       0.58     0.50
         Skewness      -1.25      -0.84    -0.54
      SE.Skewness       0.29       0.29     0.29
         Kurtosis       1.18      -1.08    -0.68
          N.Valid      69.00      69.00    69.00
                N      69.00      69.00    69.00
        Pct.Valid     100.00     100.00   100.00