# 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
medianData(Data=SubData, Treatment='Treatment', Response='WEIGHT',
Replicate='Replicate')
averageData(Data=SubData, Treatment='Treatment', Response='WEIGHT',
Replicate='Replicate')
# }
Run the code above in your browser using DataCamp Workspace