U3A2

• Prueba de hipótesis y normalidad para realizar inferencias estadísticas entre las búsquedas de PS5 y XSX

setwd("~/VERANOPYE")
library(readxl)
datos <- read_excel("consola.xlsx")
boxplot(datos$PS5 ~ datos$XSX, col="pink")

Se observa que ambas búsquedas coinciden bastante, esto quiere decir que últimamente ambas consolan se han frecuentado en Google de forma pareja.

• ¿Qué tanto se parecen los datos?

cor(datos)

##           XSX       PS5
## XSX 1.0000000 0.8346031
## PS5 0.8346031 1.0000000

pairs(datos)

Tienen una coincidencia del 83.46% de búsqueda en Google, esto es un porcentaje bastante alto. * Prueba de normalidad de shapiro-wilk

shapiro.test(datos$PS5)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$PS5
## W = 0.38826, p-value = 2.132e-13

shapiro.test(datos$XSX)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$XSX
## W = 0.62693, p-value = 3.012e-10

• Histograma de frecuencias de datos de busquedas de Playstation 5 y Xbox Series X en 2020

hist(datos$PS5)

hist(datos$XSX)