r - 如何使用outer()计算每个向量之间的中位数？

Question

我希望标题不要太困惑......

基本上，我有两个长度为 n 的向量。我想将这两个向量转换为一个 n*n 矩阵(即包含 2 个数字的 2 个向量，每个向量成为一个 2*2 矩阵)，其中矩阵中的每个位置是两个向量每个位置的中位数。

例如:

a<-as.vector(1,5)
b<-as.vector(1,5)

使用outer()给我一个2*2矩阵

  1 5
1
5

但是，如何用每个唯一组合之间的中值填充空矩阵？答案应该如下所示:

1 3
3 5

Answer 1

尝试

 outer(a, b, FUN= Vectorize(function(x,y) median(c(x,y))))
 #     [,1] [,2]
 #[1,]    1    3
 #[2,]    3    5

数据

a <- c(1,5)
b <- a