library (lattice)
data<-iris
head(data)
cloud(Sepal.Length~Sepal.Length*Petal.Width,data=(iris))
cloud (Sepal.Length~Sepal.Length*Petal.Width,
group=Species,data=iris,
auto.key=TRUE)
To embed this program on your website, copy the following code and paste it into your website's HTML: