# NOT RUN {
#Data
data(lengthWeightData)
#Subset the data
SubData<-lengthWeightData[lengthWeightData$Age=='16 week', ]
SubData<-SubData[SubData$Generation=='F1', ]
SubData<-SubData[SubData$SEX=='M', ]
williamsTest(df=SubData, trt='Treatment',
resp='WEIGHT', direction='decreasing',SeIn=NULL)
# }
Run the code above in your browser using DataLab