U3A2

**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)

• Prueba de normalidad de shapiro-wilk

• para beisbol

shapiro.test(datos$Beisbol)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Beisbol
## W = 0.83896, p-value = 5.563e-06

• para Futbol

shapiro.test(datos$Futbol)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Futbol
## W = 0.85674, p-value = 1.707e-05

• Histograma de frecuencas de datos de busquedas de Beisbol

hist(datos$Beisbol)

*Histograma de frecuencas de datos de busquedas de Beisbol

hist(datos$Futbol)