*Prueba de hipotesis y normalidad Para realizar inferencias estadisticas

setwd ("~/proba")
library(readxl)
datos <- read_excel("tarea.xlsx")
boxplot( datos$trajedebano ~ datos$Abrigo, col="green" )

cor(datos)
##             trajedebano     Abrigo
## trajedebano   1.0000000 -0.1628669
## Abrigo       -0.1628669  1.0000000
pairs(datos)

*Prueba de normalidad de shapiro-wilk

shapiro.test(datos$trajedebano)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$trajedebano
## W = 0.90067, p-value = 0.0003881

*Prueba de normalidad de shapiro-wilk

shapiro.test(datos$Abrigo)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Abrigo
## W = 0.78058, p-value = 2.15e-07

*Histrograma de frecuencias de datos de busquedas de trajes de baño en el 2020

hist(datos$trajedebano)

*Histrograma de frecuencias de datos de busquedas de abrigos en el 2020

hist(datos$Abrigo)

Los datos son normales y podemos observar que aunque se refleja que las personas hacen mas busquedas de trajes de baño en verano y abrigos en invierno, estos datos no estan relacionados entre si