shapiro_test.R

# Test de normalidad de Shapiro-Wilk
set.seed(10)
x <- rnorm(100)
x.test <- shapiro.test(x)
print(x.test)

## 
##  Shapiro-Wilk normality test
## 
## data:  x
## W = 0.9891, p-value = 0.5911

x2 <- runif(100)
x2.test <- shapiro.test(x2)
print(x2.test)

## 
##  Shapiro-Wilk normality test
## 
## data:  x2
## W = 0.9285, p-value = 4.082e-05