U3A1

• prueba de hipotesis y normaidad para realizar inferencias estadisticas

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

* que tanto de parecen los datos:

• prueba de normalidad de shapiro-wilk

• para el america

shapiro.test(datos$america)

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

• histograma de frecuencias de datos de busquedas covid en 2020

hist(datos$america)

• para las chivas

shapiro.test(datos$chivas)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$chivas
## W = 0.91407, p-value = 0.001139

• histograma de frecuencias de datos de busquedas covid en 2020

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