对R中向量的随机元素求平均

Question

我有一个列表，可以说4个项目，我需要通过采用该列表的任何两个元素并找到该列表的平均值来将该列表缩减为2。 这是我想出的算法，我不知道如何用R编写。

1. 选择一个x_i
2. 选择一个不等于x_i的x_j
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)))