data(MetRef)
u=MetRef$data;
u=u[,-which(colSums(u)==0)]
u=scaling(u)$newXtrain
class=as.numeric(as.factor(MetRef$gender))
cc= cmdscale(dist(u))
plot(cc,pch=21,bg=class,xlab="First Component",ylab="Second Component");
Run the code above in your browser using DataLab