U3A2

**Prueba de hipotesis y normalidad Para realizar inferencias estadisticas

setwd("~/Rstudio verano")
library(readxl)
datos <- read_excel("Comparación Ventas Compras en México.xlsx")
boxplot(datos$Ventas ~ datos$Compras, col="blue" )

• ¿Que tanto se parecen los datos?

cor(datos)

##            Ventas   Compras
## Ventas  1.0000000 0.5178167
## Compras 0.5178167 1.0000000

pairs(datos)

• Prueba de normalidad de shapiro-wilk

• para Ventas

shapiro.test(datos$Ventas)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Ventas
## W = 0.8945, p-value = 0.0002415

• para Compras

shapiro.test(datos$Compras)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Compras
## W = 0.91067, p-value = 0.0008613

• Histograma de frecuencas de datos de busquedas de Ventas

hist(datos$Ventas)

*Histograma de frecuencas de datos de busquedas de Compras

hist(datos$Compras)