3

我有两个向量:x (n,1)y (n,1)实数值,我想M (n,n)从这些向量中创建一个矩阵,其中包含每两对之间的距离。

4

2 回答 2

4

你可以使用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。

于 2013-10-29T09:35:09.937 回答
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其中提供了几种计算距离矩阵的方法。

于 2013-10-29T09:31:02.547 回答