# 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
RankData<-responseTransform(Data=SubData, ResponVar='WEIGHT', Trans='Log')
head(RankData)
# }
Run the code above in your browser using DataCamp Workspace