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,
contendo de calorias congtenidas 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

# install.packages("devtools") # solo una vez
# devtools::install_github("dgonxalex80/paquetePROB", force = TRUE) # descarga paquetePROB
library(paquetePROB) # activa paquetePROB
data("beer") # carga la base beer

Resumen estaditico

Tipo de cerveza

t1 <- table (beer$tipo)
names(t1) <- c("1-lager artesanal", "2-clara artesanal", "3-lager importada", "4-cerveza normal y helada", "5-cerveza baja en calorias y sin alcohol")
t1 = as.data.frame(t1)

colnames(t1)=c("Tipo de cerveza", "Frecuencia Absoluta")

t1=flextable(t1)

set_flextable_defaults(
  font.size = 10, font.family = "Helvetica",
  font.color = "#333333",
  table.layout = "fixed",
  border.color = "gray",
  padding.top = 3, padding.bottom = 3,
  padding.left = 4, padding.right = 4)

t1 <- t1 %>%
    width(j = 1,  width = 2) %>%
    width(j = 2, width = 1)
t1

Tipo de cerveza	Frecuencia Absoluta
1-lager artesanal	52
2-clara artesanal	68
3-lager importada	40
4-cerveza normal y helada	64
5-cerveza baja en calorias y sin alcohol	52

Origen de la cerveza

t2 <- table(beer$origen)
names(t2) <- c("0-nacional", "1- importada")
t2 = as.data.frame(t2)

colnames(t2)=c("Origen de la cerveza", "Frecuencia Absoluta")

t2=flextable(t2)

set_flextable_defaults(
  font.size = 10, font.family = "Helvetica",
  font.color = "#333333",
  table.layout = "fixed",
  border.color = "gray",
  padding.top = 3, padding.bottom = 3,
  padding.left = 4, padding.right = 4)

t2 <- t2 %>%
    width(j = 1,  width = 2) %>%
    width(j = 2, width = 1)
t2

Origen de la cerveza	Frecuencia Absoluta
0-nacional	60
1- importada	216

Precio, porcentaje de alcohol, calorias de la cerveza

n    mean   sd     median  min   max   range  skew  kurtosis   se
276  4.96   1.44   4.79    2.36  7.8   5.44   0.11  -1.07      0.09

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

Descriptive Statistics  
beer  
N: 276  

                    calorias   poralcoh   precio
----------------- ---------- ---------- --------
             Mean     142.35       4.42     4.96
          Std.Dev      29.74       1.57     1.44
              Min      58.00       0.00     2.36
               Q1     142.00       4.40     3.90
           Median     148.00       4.90     4.79
               Q3     160.00       5.10     6.24
              Max     201.00       6.00     7.80
              MAD      16.31       0.59     1.73
              IQR      18.00       0.70     2.34
               CV       0.21       0.35     0.29
         Skewness      -1.27      -2.16     0.11
      SE.Skewness       0.15       0.15     0.15
         Kurtosis       1.27       3.53    -1.07
          N.Valid     276.00     276.00   276.00
        Pct.Valid     100.00     100.00   100.00

Caso 1

Efrain reyes

2025-02-05