Muestreo

U3A2

• Prueba de hipótesis y normalidad Para realizar inferencias estadísticas.

setwd("~/Stat")
library(readxl)
datos <- read_excel("Mundial-Rusia.xlsx")

boxplot(datos$Mundial ~ datos$Rusia, col="pink" )

• ¿Que tanto se parecen los datos?

cor(datos)

##           Mundial     Rusia
## Mundial 1.0000000 0.9956808
## Rusia   0.9956808 1.0000000

pairs(datos)

• Prueba de normalidad de shapiro-wilk

• Para Rusia

shapiro.test(datos$Rusia)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Rusia
## W = 0.59957, p-value = 8.925e-07

• Para Mundial

shapiro.test(datos$Mundial)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Mundial
## W = 0.57368, p-value = 4.701e-07

• Histograma de frecuencias de datos de busquedas de Rusia en 2018

hist(datos$Rusia)

• Histograma de frecuencias de datos de busquedas de Mundial en 2018

hist(datos$Mundial)

• En conclusión, pareceria que se relacionan uno con el otro ya que los datos son demasiados parecidos, y los temas futbol con mundial de futbol, investigados en el 2018 son temas que se relacionan. Ya que la p-value es demasiado chica, se rechaza la hipótesis nula dado que los datos no son normales.