# your code goes here

library(lattice)
wine=read.csv("~/wine.csv", header=TRUE)
winepca=prcomp(wine[2:14], scale=TRUE, center=TRUE)
wineplot=cbind(wine[1], winepca$x[,1:2])
xyplot(PC2 ~ PC1, grid=TRUE, group=class)