# countreg not yet on CRAN
if (require(countreg)) {
data("CrabSatellites", package = "countreg")
# jittered scatterplot
plot(jitter(satellites) ~ width, data=CrabSatellites,
ylab="Number of satellites (jittered)", xlab="Carapace width",
cex.lab=1.25)
with(CrabSatellites, lines(lowess(width, satellites), col="red", lwd=2))
# boxplot, using deciles
plot(satellites ~ cutfac(width), data=CrabSatellites,
ylab="Number of satellites", xlab="Carapace width (deciles)")
}Run the code above in your browser using DataLab