library (lattice) data(ToothGrowth) head(ToothGrowth) xyplot(len~dose,data=ToothGrowth)
To embed this program on your website, copy the following code and paste it into your website's HTML: