**Prueba de hipotesis y normalidad Para realizar inferencias estadisticas

setwd("~/veranoPyE")
library(readxl)
datos <- read_excel("deportes.xlsx")
boxplot(datos$Beisbol ~ datos$Futbol, col="pink" )

* ¿Que tanto se parecen los datos?

cor(datos)
##           Beisbol    Futbol
## Beisbol 1.0000000 0.5779563
## Futbol  0.5779563 1.0000000
pairs(datos)

shapiro.test(datos$Beisbol)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Beisbol
## W = 0.83896, p-value = 5.563e-06
shapiro.test(datos$Futbol)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Futbol
## W = 0.85674, p-value = 1.707e-05
hist(datos$Beisbol)

*Histograma de frecuencas de datos de busquedas de Beisbol

hist(datos$Futbol)