# NOT RUN {
#Data
data(lengthWeightData)
#Subset the data
SubData<-lengthWeightData[lengthWeightData$Age=='8 week', ]
SubData<-SubData[SubData$Generation=='F1', ]
SubData<-SubData[SubData$SEX=='M', ]
#Run
oneWayDunnettTest(Data=SubData, Treatment='Treatment', Response='WEIGHT',
WeightList = NULL, TestDirection = "Decreasing")
# }
Run the code above in your browser using DataCamp Workspace