data(wolves)
## Remove the factors location and sex which we will not use for now
x <- wolves[,-c(2:3)]
## Plot a pairwise scaterplot matrix
pairs(x[,2:10])
mcd <- CovMcd(x[, 2:10])
plot(mcd, which="pairs")
lda <- LdaClassic(class~., data=x)
lda@center
lda@cov
predict(lda)
Run the code above in your browser using DataLab