pdf("graphics/rplot-wine-scatterm.pdf")
load("wine.Rdata")
attach(wine)
iType <- as.integer(Type)
colours <- unlist(lapply(iType, function(x){palette()[x+1]}))
plot(wine[,c(1, 4:8)], col=colours, pch=iType)
dev.off()