# NOT RUN {
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