# NOT RUN {
x1<-iris3[,"Sepal L.","Setosa"]
y1<-iris3[,"Sepal W.","Setosa"]
x2<-iris3[,"Sepal L.","Versicolor"]
y2<-iris3[,"Sepal W.","Versicolor"]
x3<-iris3[,"Sepal L.","Virginica"]
y3<-iris3[,"Sepal W.","Virginica"]
xlim=c(4,8)
ylim=c(1.5,5)
summaryEllipse(x1,y1,xlim=xlim,ylim=ylim,InEllipse='F',InRect='F',
OutRect='F',REGxony='F',REGyonx='F')
summaryEllipse(x2,y2,add=TRUE,pch=20,col="brown",InEllipse='F',InRect='F',
OutRect='F',REGxony='F',REGyonx='F')
summaryEllipse(x3,y3,add=TRUE,pch=19,col="grey",InEllipse='F',InRect='F',
OutRect='F',REGxony='F',REGyonx='F')
#end of example
# }
Run the code above in your browser using DataLab