如何使用 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