# data(iris)
# group<-iris[,5]
# x<-iris[,1:2]
# MhD<-depth.MhD(x,trim=0.1,draw=TRUE)
# PD<-depth.PD(x,trim=0.1,draw=TRUE)
# HD<-depth.HD(x,trim=0.1,draw=TRUE)
# SD<-depth.SD(x,trim=0.1,draw=TRUE)
# x.setosa<-x[group=="setosa",]
# x.versicolor<-x[group=="versicolor",]
# x.virginica<-x[group=="virginica",]
# d1<-depth.SD(x,x.setosa)$dep
# d2<-depth.SD(x,x.versicolor)$dep
# d3<-depth.SD(x,x.virginica)$dep
# plot(d1,d2,col=as.numeric(group),pch=as.numeric(group))
# plot(d1,d3,col=as.numeric(group),pch=as.numeric(group))
# plot(d2,d3,col=as.numeric(group),pch=as.numeric(group))
Run the code above in your browser using DataLab