#古典的MDS

eurodist#データ

 

(eur.cmd<-cmdscale(eurodist))

​

​

plot(eur.cmd,type="n")
text(eur.cmd,rownames(eur.cmd ))

​

​

​