str(water)
qqmath(~ bacteria, water, aspect = 1,
xlab = "Standard normal quantiles",
ylab = "Bacteria concentration (ppm)")
histogram(~ bacteria, water, breaks = 0:14 - 0.5,
xlab = "Bacteria concentration (ppm)")
xtabs(~ bacteria, water)
Run the code above in your browser using DataLab