r - 如何计算矩阵中两个元素之间的最大欧氏距离 - R？

Question

我有一个由 0 和 1 组成的 100x100 矩阵。我正在尝试计算矩阵中任意 2 个整数 1 之间的最大欧氏距离。

我是否应该找到彼此相距最远的两个整数的位置并使用它们？

提前致谢

Answer 1

这是一种避免通过 for 循环查看矩阵的每个元素的方法。

# set up
set.seed(123)
n <- 100
m <- matrix(sample(c(1,0), size = n^2, replace = TRUE), n, n)

# find the ones in the matrix and calculates the distances
ind <- which(m==1, arr.ind=TRUE)
dists <- dist(ind) # default euclidean

# look for the largest entry, and convert it to index position
ind1d <- which.max(dists)
ind2d <- arrayInd(ind1d, .dim=rep(nrow(ind),2))

# get answer
ans <- ind[as.vector(ind2d),]
ans

#     row col
#[1,]  98 100
#[2,]   1   1