倉持君への課題

この間の菊池君の課題を参照する。
まず iris データからラベルを除いた 150*4 の行列を作る。

x<-as.matrix(iris[,1:4])

x は4次元のデータの集合。
これを今日勉強したラプラシアン固有マップ法を使って
2次元のデータに次元圧縮して表示する。

R のプログラムと表示した図を送って下さい。