setwd("~/PyE verano 2020")
library(readxl)
datos <- read_excel("americavschivas.xlsx")
boxplot(datos$america ~ datos$chivas, col= "blue" )

* que tanto de parecen los datos:

shapiro.test(datos$america)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$america
## W = 0.73625, p-value = 2.539e-08
hist(datos$america)

shapiro.test(datos$chivas)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$chivas
## W = 0.91407, p-value = 0.001139
hist(datos$chivas)

en este caso se rechaza la hipotesis nula debido que los datos no son normales, pero nos podemos dar cuenta que en la busqueda de club deportivo guadalajara ( chivas) tiene mayor probabildiad de normalidad que el de busqueda de el club america (america).