R 古典的MDS

Rにあるサンプルデータ　eurodist をつかって古典的MDSを実行。

> x <-eurodist

> euro <-cmdscale(x)

> plot(euro,type="n")

> text(euro,rownames(euro))