Lectura de datos

# install.packages("devtools") # solo una vez
# devtools::install_github("dgonxalex80/paquetePROB") # descarga paquetePROB
library(paquetePROB) # activa paquetePROB
data("beer") # carga la base beer
#install.packages("DT")
library(DT)
# Mostrar la tabla con DataTable
DT::datatable(
  head(beer, fillContainer = FALSE, options = list(pageLength = 8))
)
beer$tipo <- as.factor(beer$tipo)
beer$origen <- as.factor(beer$origen)



Tablas de Frecuencia para varibles cualitativas:


- Origen

Origen de cerveza

Frecuencia Absoluta

0-nacional

60

1-importada

216


- Tipo

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



Caracteristicas cuantitativas de las cervezas

pander(descr(beer[,c(4,3,2)]))
  calorias poralcoh precio
Mean 142.3 4.42 4.963
Std.Dev 29.74 1.566 1.439
Min 58 0 2.36
Q1 142 4.4 3.9
Median 148 4.9 4.79
Q3 160 5.1 6.24
Max 201 6 7.8
MAD 16.31 0.593 1.735
IQR 18 0.7 2.34
CV 0.2089 0.3544 0.2899
Skewness -1.268 -2.16 0.1093
SE.Skewness 0.1466 0.1466 0.1466
Kurtosis 1.271 3.532 -1.07
N.Valid 276 276 276
Pct.Valid 100 100 100



-Analisis estadistico

Calorias:
Las cervezas presentadas en esta encuesta tienen un promedio de calorias de 142.3 calorias, con un valor calorico modal de 148 calorias. Tambien tiene una desviacion de 29.74%. Con un coeficiente de variacion de aproximadamente 20%, por lo que se puede asegurar que es una muestra homogenea.


Porcentaje de alcohol:
Estas cervezas tienen un porencaje de alcohol promedio de 4.42, con mediana de 4.9, lo cual es levemente superior. Ademas presenta un coeficiente de variacion del 35.44% por lo que podriamos afirmar que la muestra es heterogenea.


Precio:
El precio promedio es de 4.963, con mediana de 4.79. Su coeficiente de variacion es de 28.99%, entonces es una muestra parcialmente homogenea, con desviacion estandar de 1.439%.