library(readxl)
Caso_Aguacate_xls<-read_excel("avocado.csv..xlsx")🥑PROMEDIOS:
Note
BD
🥑OBTENIENDO PROMEDIOS DE LA BD.....🥑
🥑(PRECIO PROMEDIO)
mean(Caso_Aguacate_xls$`AveragePrice (PRECIO PROMEDIO)`)[1] 1.405978
🥑(NUMERO TOTAL DE AGUACATES VENDIDOS)
mean(Caso_Aguacate_xls$`Total Volume (NUMERO TOTAL DE AGUACATES VENDIDOS)`)[1] 850644
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS`)[1] 293008.4
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS`)[1] 295154.6
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS`)[1] 22839.74
🥑(BOLSAS TOTALES)
mean(Caso_Aguacate_xls$`Total Bags (BOLSAS TOTALES)`)[1] 239639.2
🥑(BOLSAS PEQUEÑAS)
mean(Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)`)[1] 182194.7
🥑(BOLSAS GRANDES)
mean(Caso_Aguacate_xls$`Large Bags (BOLSAS GRANDES)`)[1] 54338.09
🥑(BOLSAS EXTRAGRANDES)
mean(Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)`)[1] 3106.427