data(oils)
res<-sym.mds(oils)
plot(res,pch = 23, bg = "red", xlab = "Score 1", ylab = "Score 2")
res<-sym.mds(oils,distance="centers")
plot(res,pch = 23, bg = "red", xlab = "Score 1", ylab = "Score 2")
Run the code above in your browser using DataLab