直升机,
我有两个向量:x (n,1)
和y (n,1)
个实数值,我想从这些向量中创建一个矩阵M (n,n)
,其中包含每两对之间的距离。
Thnx的帮助。
答案 0 :(得分:3)
您可以使用outer
功能
x <- sample(5)
y <- sample(5)
x
## [1] 1 5 3 4 2
y
## [1] 2 3 5 1 4
outer(x, y, "-")
## [,1] [,2] [,3] [,4] [,5]
## [1,] -1 -2 -4 0 -3
## [2,] 3 2 0 4 1
## [3,] 1 0 -2 2 -1
## [4,] 2 1 -1 3 0
## [5,] 0 -1 -3 1 -2
您可以将"-"
替换为可以使用2个向量的任何其他FUN。
答案 1 :(得分:1)
看一下?dist
:
计算并返回通过使用指定的距离度量计算的距离矩阵,以计算数据矩阵的行之间的距离。
示例:
> set.seed(1) # to make it reproducible
> dat <- data.frame(x = sample(5), y = sample(5)) # sample values
# calculating the distance between each row
> transform(dat, distance=apply(dat, 1, dist))
x y distance
1 2 5 3
2 5 4 1
3 4 2 2
4 3 3 0
5 1 1 0
请注意method
,它提供了几种计算距离矩阵的方法。