前回のRで書いたIsomapはk近傍グラフの作り方が決定的に間違っていました。 なんかブクマつけてくれている人もいるので修正版を・・・ # データ取得 swiss <- read.table('swiss.data') # 近傍の数 k <- 8 # 各点同士のユークリッド距離を計算 # データ点×デ…