-15.02448これでよかったんでしょうか。y座標はプロットしたときに向きをそうしたいからマイナスにしてました。...数学のフレンズとコンピューターのフレンズとで原点を画面のどこに置くかが違うんですよ!(※恐縮です。as.table(original)あかりセンター!!(違)ありがとうございました。以下、「mykmakari9c3$centers」の代わりに「myakaricenters9co」とご指名ください。(違)※表現は演出です。groundの「g」です。同様にして「mydist2xg」〜「mydist9xg」をつくるそのままなんですけどデータフレーム名で「33333」とか名指しするのをやめました。あとは行数を「33333」とハードコーディングしてあるのを「nrow()」しませうか。返されたベクトルの要素の個数を確かめますほぅ。16秒くらいかかるのでギクッとしますけどちゃんとできます。「gc()」しませう。(※「ギクッ」に傍点。)※ここがあまりにも無駄なので(げふ)ちゃんとじぶんで書けばサーバーで動かせるくらい一瞬で終わる計算になるでしょう。それでも、ここではじぶんでコードを書かないことで(肝心の計算部分については)デバッグを不要にする、「いわば既製品を使う」という感覚を徹底します。なあに既製品だからいくらでも代わりがある。調べる.「mydist1xg」はベクトルなので、nrowじゃなくてlengthで確かめます。n=nrow(myakari2dg))gc()ぬふっ。「dist関数」が返すのはdistオブジェクトみたいなのではあるけれど、head関数で見に行けばうまいこと扱ってくれて、距離行列として表示させたときの行列の左上から下へ1番、2番、(3番から33332番まで略)33333番の順で、上に戻って右へ1つ進んで33334番みたいな順で読み込んでくれます。計算自体を33333番目で終わりにしてくれるオプションとかって、ないんですかねぇ。いうもったいなさはあるけれど、さりとてじぶんでごりごり書いて、それに間違いがないか確かめるのが面倒すぎる。なあにメモリは32GBあるんだ。(棒読み)https://neorail.jp/forum/uploads/r_memory.pnghttps://pbs.twimg.com/media/Dk-OHSZUcAAJyuC.jpg1度も着ない服(違)じゃぶじゃぶ使って、なんかきもちいい。2)))自作の関数を定義しています。自作の関数は定義するけれど「for」は使わない。