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.

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.

shapiro.test(datos$Ropa)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Ropa
## W = 0.98939, p-value = 0.9223
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.

hist(datos$Ropa)

hist(datos$Cumpleaños)