U3A2

**Prueba de hipotesis y normalidad Para realizar inferencias estadisticas

setwd("~/VeranoPyE")
library(readxl)
datos <- read_excel("ROPA.xlsx")
boxplot(datos$vestidos ~ datos$blusas, col="red" )

* ¿Que tanto se parecen los datos?

cor(datos)

##          vestidos   blusas
## vestidos 1.000000 0.549217
## blusas   0.549217 1.000000

pairs(datos)

• Prueba de normalidad de shapiro-wilk

• para vestidos

shapiro.test(datos$vestidos)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$vestidos
## W = 0.88468, p-value = 0.0001166

• para blusas

shapiro.test(datos$blusas)

## 
##  Shapiro-Wilk normality test
## 
## data:  datos$blusas
## W = 0.94592, p-value = 0.01963

• Histograma de frecuencas de datos de busquedas de vestidos

hist(datos$vestidos)

*Histograma de frecuencas de datos de busquedas de blusas

hist(datos$blusas)