28.16 Example, tests for normality, large sample

• Test a large random normal distribution

rn <- rnorm(5000, mean=0, sd=1)
shapiro.test(rn)

## 
##  Shapiro-Wilk normality test
## 
## data:  rn
## W = 1, p-value = 0.9

• Test a large random uniform distribution

ru <- runif(5000, min=-4, max=4)
shapiro.test(ru)

## 
##  Shapiro-Wilk normality test
## 
## data:  ru
## W = 1, p-value <2e-16