U3A2

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

setwd("~/PROBABILIDAD Y ESTADISTICA (R Studio)")
library(readxl)
datos <- read_excel("Comparacion.xlsx")
boxplot(datos$PlayStation ~ datos$Xbox, col="Red")

• ¿Que tanto se parecen los datos?

cor(datos)

##             PlayStation      Xbox
## PlayStation   1.0000000 0.9528232
## Xbox          0.9528232 1.0000000

pairs(datos)

WILK

• Para Playstation 4

shapiro.test(datos$PlayStation)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$PlayStation
## W = 0.97292, p-value = 0.002259

• Para Xbox One

shapiro.test(datos$Xbox)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Xbox
## W = 0.95947, p-value = 8.533e-05

• Histograma de frecuencias de datos de busquedas de Halloween en los últimos 7 Dias

hist(datos$PlayStation, col="Blue")

hist(datos$Xbox, col="Light Green")