size <-c(170,162,158,166,170,170,161,173,168,160,168,162,192,186,196,170,172,160,171,170,160,192,172,187,168,160,175,174) Gender<-c("F","F","F","F","F","F","F","F","F","F","F","F","M","M","M","F","F","F","F","F","F","M","M","M","F","F","F","F")