data(Appalachia)
# plot a matrix of scatterplots
pairs(Appalachia,
main="Appalachia data set",
pch=21,
bg=c("red", "green3", "blue"))
mcd<-CovMcd(Appalachia)
mcd
plot(mcd, which="dist", class=TRUE)
plot(mcd, which="dd", class=TRUE)
Run the code above in your browser using DataLab