# NOT RUN {
data(IMC.ENFANT)
attach(IMC.ENFANT)
indf <- which(SEXE=="F") # Permet de recuperer les indices des filles.
indg <- which(SEXE=="G") # Permet de recuperer les indices des garcons.
cor2.test.2.sample(taille[indf],poids[indf],taille[indg],poids[indg])
detach(IMC.ENFANT)
# }
Run the code above in your browser using DataLab