data(lmom32)
# plot a matrix of scatterplots
pairs(lmom32,
main="Hosking and Wallis Data Set, Table 3.3",
pch=21,
bg=c("red", "green3", "blue"))
mcd<-CovMcd(lmom32)
mcd
plot(mcd, which="dist", class=TRUE)
plot(mcd, which="dd", class=TRUE)
sqrt(getDistance(mcd))
cc <- Cov(lmom32)
sqrt(getDistance(cc))
Run the code above in your browser using DataLab