Se instalará el paquete de importación data.table. En este caso resulta útil para importar un archivo en formato “csv”
install.packages("data.table")
Invocar ahora la biblioteca data.table
library(data.table)
Importar el archivo “sacarosa” desde una ubicación en Internet. Para una mejor comprensión de la tabla de datos, revise el vídeo descriptivo
sacarosa <- fread("https://archive.org/download/sacarosa/sacarosa.csv")
Observar el contenido de los primeros seis registros de la tabla de datos “sacarosa”
head(sacarosa)
## muestra ph brix pol pureza cenizas aclac
## 1: Jugo Claro 6.94 14.68 12.56 85.56 0.468 58.70
## 2: Jugo Claro 6.91 14.86 12.72 85.60 0.536 82.57
## 3: Jugo Claro 6.99 14.08 11.96 84.94 0.550 116.71
## 4: Jugo Claro 7.32 13.23 11.26 85.11 0.476 131.13
## 5: Jugo Claro 7.48 14.21 12.10 85.15 0.560 116.58
## 6: Jugo Claro 7.35 14.35 12.14 84.60 0.681 74.10
Solicitar estadísticas univariadas de resumen para una variable cualitativa
table(sacarosa$muestra)
##
## Cachaza Filtro Banda Cachaza Filtro Rotativo Jugo Claro
## 18 18 18
## Jugo Filtrado Banda Jugo Filtrado Rotativo Lodo
## 18 18 18
Solicitar estadísticas univariadas para variables cuantitativas. Iniciar solicitando “Medidas de tendencia central para variables cuantitativas”
Solicitar la media
mean(sacarosa$ph)
## [1] 8.05787
Solicitar la mediana
median(sacarosa$ph)
## [1] 7.79
Analizar la amplitud de una variable cuantitativa. En este caso el mínimo, máximo y rango de Brix
min(sacarosa$brix)
## [1] 1.2
max(sacarosa$brix)
## [1] 14.86
range(sacarosa$brix)
## [1] 1.20 14.86
Calcular el percentil 25
quantile(sacarosa$brix, 0.25)
## 25%
## 6.75
Calcular el percentil 90
quantile(sacarosa$brix, 0.90)
## 90%
## 13.7
Calcular el rango inter cuartílico
IQR(sacarosa$brix)
## [1] 5.76
Calcular la varianza
var(sacarosa$brix)
## [1] 16.00276
Calcular la desviación estándar
sd(sacarosa$brix)
## [1] 4.000344
Analizar la forma de una variable cuantitativa. En este caso el Brix
Instalar previamente el paquete “moments”
install.packages("moments")
Invocar la biblioteca “moments”
library(moments)
Calcular la asimetría
skewness(sacarosa$brix)
## [1] -0.7792361
Calcular la curtosis
kurtosis(sacarosa$brix)
## [1] 2.362837