U3A1

Prueba de hipótesis y normalidad.

Para realizar inferencias estadísticas mediante una búsquedad en Google trends de ropa y cumpleaños.

setwd("~/VERANOPYE")
library(readxl)
datos <- read_excel("cumpleaños.xlsx")
boxplot(datos$Ropa ~ datos$Cumpleaños, col="red")

Se puede observar en el gráfico que los datos de ropa y los datos de cumpleaños es muy poca la coincidencia de búsquedas de dichos datos.

• ¿Qué tanto se parecen los datos?

cor(datos)

##                 Ropa Cumpleaños
## Ropa       1.0000000  0.1590832
## Cumpleaños 0.1590832  1.0000000

pairs(datos)

Se puede observar que no tiene mucha coincidencia ya que tiene 15.9% de búsquedas en Google.

• Prueba de normalidad de shapiro-wilk

• Para ropa

shapiro.test(datos$Ropa)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Ropa
## W = 0.98939, p-value = 0.9223

• Para Cumpleaños

shapiro.test(datos$Cumpleaños)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Cumpleaños
## W = 0.98278, p-value = 0.6496

Podemos observar que en ambos casos el valor de probabilidad son superiores por lo que no rechamos la hipótesis nula.

• Histograma de frecuencias de datos de busquedas de Ropa en 2020

hist(datos$Ropa)

• Histograma de frecuencias de datos de busquedas de Cumpleaños en 2020

hist(datos$Cumpleaños)