data(SticklebackPlates)
aggregate(plates ~ genotype, SticklebackPlates, favstats)
histogram(~plates | genotype, SticklebackPlates,
layout=c(1,3),
n=15,
xlab = "Number of Lateral Body Plates"
)
densityplot(~plates | genotype, SticklebackPlates,
xlab = "Number of Lateral Body Plates",
layout=c(1,3)
)
Run the code above in your browser using DataLab