# NOT RUN {
data(BMI.CHILD)
attach(BMI.CHILD)
indf <- which(GENDER=="F") # To retrieve indices of the females.
indm <- which(GENDER=="M") # To retrieve indices of the males.
twosample.cor.test(height[indf],weight[indf],
height[indm],weight[indm])
detach(BMI.CHILD)
# }
Run the code above in your browser using DataLab