library(DAAG)
help("ais")
head(ais)


bwplot(ais$sex~ais$ssf,horizontal=T,xlab="Skinfold thickness") # example boxplot

table(ais$sex,ais$sport)  #numbers of atheletes by sport and gender

################### Howework questions #############

# 1. Briefly discuss differences between sports with respect to the proportion of
# male and female athletes. In particular: in which sports is there a large imbalance
# (e.g., by a factor of 2:1 or more) in the number of the two sexes? 
#
# 2. When comparing different sports with respect to measures of athlete body fat, which sports are 
# likely to show greater body fat because the athletes are principally female? 

# 3. Construct boxplots that show how measures of body morphology (skinfold thickness, 
# percent body fat, and lean body mass) vary among sports.

# 4. Identify those sports for which the athletes are unusual with respect to measures of athlete body fat.

# 5. What is netball?

#####################################################