Teste de normalidade Shapiro-Wilk

#shapiro wilk

dados <-data.frame(dose= c(0:20), nove= c(20:40), sete= c(20:40))
shap.teste <-apply(dados, MARGIN = 2, shapiro.test)
shap.teste

## $dose
## 
##  Shapiro-Wilk normality test
## 
## data:  newX[, i]
## W = 0.95993, p-value = 0.5148
## 
## 
## $nove
## 
##  Shapiro-Wilk normality test
## 
## data:  newX[, i]
## W = 0.95993, p-value = 0.5148
## 
## 
## $sete
## 
##  Shapiro-Wilk normality test
## 
## data:  newX[, i]
## W = 0.95993, p-value = 0.5148

#Wesley