ユークリッド距離を計算している間にホールドポイントAを一定の変化点Bに変更

Question

私は現在、イベント中にバスケットボール選手の位置とボールの距離を計算するのに興味があるプロジェクトに取り組んでいます。私が達成したい何

## Euclidean distance 
distance <- function(x,y){ 
    x2 <- (x[i]-x[j])^2 
    y2 <- (y[i]-y[j])^2 
    dis <- sqrt(x2+y2) 
} 

はバスケットボールと選手間の距離を計算して、私が持っているデータの各時間フレームのために、このプロセスを繰り返すことです： は、これを行うために、私は次の関数を作成しました。だから、x [j]とy [j]は2から11へと変化し続けますが、x1とy1は常に一定でなければならないでしょう。私はこのforループをネストしましたが、28.34639の定数を与えています。私は私のデータフレームのサンプルの画像へのリンクを追加しました。 Data Frame Sample

for(i in i:length(all.movement$x_loc)){ 
    for(j in j:11){ 
    all.movement$distance[j] <- distance(all.movement$x_loc, all.movement$y_loc) 
    } 
    i <- i + 11 
} 

私は本当にこの問題を持ついくつかの助けをいただければ幸いです。

Answer 1

私は約行くと思います：[1点と、効率的にRで点群間のすべての距離を算出】の

set.seed(101) 
x <- rnorm(30, 10, 5) # x coordinate 
y <- rnorm(30, 15, 7) # y coordinate 
df <- data.frame(x, y) # sample data.frame 
i = 0 
for (i in i:length(df$x)) { 
df$distance <- sqrt((x - 5)^2 + (y + 4)^2)} # assume basket coordinates (5, -4) 
df # output