平均R

Question

我有一个列表可以说4个项目，我需要通过获取该列表的任何两个元素并找到该列表的平均值来将该列表减少到2。 这是我提出的算法，我不知道如何在R中写这个。

1. 选择x_i
2. 选择x_j不等于x_i
3. 找到x_i和x_j
的平均值
4. 选择新的x_(i+1)和x_(j+1)，只要它们不等于x_i或x_j

例如：

x <- c(2,4,6,8)
y <- c((2+4)/2,(6+8)/2) or c((2+6)/2,(2+8)/2) or anything similar to that.

Answer 1

为了解答这个问题，我们可以使用以下语法来完成我们需要做的事情：replicate(2, mean(sample(x, 2)))