library(lattice)
data(ToothGrowth)
head(ToothGrowth)
histogram (~len,data=ToothGrowth,main="Histogram of ToothGrowth ")
dev.off

Embed on website

To embed this program on your website, copy the following code and paste it into your website's HTML: