# NOT RUN {
#Data
data(lengthWeightData)
#Subset the data
SubData<-lengthWeightData[lengthWeightData$Age=='16 week', ]
SubData<-SubData[SubData$Generation=='F1', ]
SubData<-SubData[SubData$SEX=='M', ]
#Run
Residuals<-aov(WEIGHT~Treatment,SubData)$residuals
wilksTest(Residuals)
# }
Run the code above in your browser using DataLab