pdf("graphics/rplot-wine-corr.pdf")
load("wine.Rdata")
library(ellipse)
wine.corr <- cor(wine)
ord <- order(wine.corr[1,])
xc <- wine.corr[ord, ord]
plotcorr(xc, col=cm.colors(11)[5*xc + 6])
dev.off()