28.19 Example, test for normality, small sample

• Test a small random normal distribution

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

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

• Test a small random uniform distribution

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

## 
##  Shapiro-Wilk normality test
## 
## data:  ru
## W = 1, p-value = 0.8