# 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)
summary(plates ~ genotype, SticklebackPlates, fun = favstats)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.