data("Erabbits", package="ssym")
plot(Erabbits$age, Erabbits$wlens, xlim=range(Erabbits$age), ylim=range(Erabbits$wlens),
type="p", cex=0.3, lwd=3, ylab="Dry weight of eye lens (in milligrams)",
xlab="Age of the animal (in days)")
Run the code above in your browser using DataLab