demo/sec3.3.R

In abd: The Analysis of Biological Data

# Figure 3.3-1
histogram(~plates | genotype, SticklebackPlates, 
	layout=c(1,3), breaks=seq(6,70,by=2))
# Table 3.3-1
aggregate(plates ~ genotype, SticklebackPlates, FUN=favstats)
if (require(Hmisc)) {
	summary(plates ~ genotype, SticklebackPlates, fun=favstats)
}