不規則な多角形で囲まれた 2 点間のユークリッド距離を見つけようとしています。(つまり、距離は、指定されたウィンドウを通るルートとして計算する必要があります)
再現可能な例を次に示します。
library(spatstat)
#Simple example of a polygon and points.
ex.poly <- data.frame(x=c(0,5,5,2.5,0), y=c(0,0,5,2.5,5))
points <- data.frame(x=c(0.5, 2.5, 4.5), y=c(4,1,4))
bound <- owin(poly=data.frame(x=ex.poly$x, y=ex.poly$y))
test.ppp <- ppp(x=points$x, y=points$y, window=bound)
pairdist.ppp(test.ppp)#distance between every point
#The distance result from this function between point 1 and point 3, is given as 4.0
ただし、ポイントをプロットするだけでわかります
plot(test.ppp)
ルートがポリゴンに限定されている場合の距離は、より大きくする必要があります (この場合は 5.00)。
これを行う {spatstat} で私が認識していない別の関数はありますか? または、これを行うことができる別のパッケージについて他の提案はありますか?
水域の 2 点間の距離を見つけようとしているので、実際のデータの不規則な多角形はより複雑です。
どんな助けでも大歓迎です！
乾杯