获得的样品的平均值

Question

我有这个信息：

Student:  1   2   3   4   5   6   7   8   9  10 
   Mark: 85  62  90  85  64  72  70  59  66  70

所以我这样做了：

x <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 
y <- c(85, 62, 90, 85, 64, 72, 70, 59, 66, 70)

我想收集4个学生的10个样本，然后获得这些学生的平均值。我使用下一个命令10次采样（sample1，sample2，...，sample10）：

sample1 <- sample(x, 4, replace=FALSE, prob=NULL)

有没有更简单的方法来获取样品？

我如何获得那些样本编程的平均值？

我尝试了以下内容：

meansample1 <- mean(sample1)

Answer 1

您可以使用以下方法计算四名学生的平均分数：

mean(sample(y, 4, replace = FALSE))

然后，我们可以使用replicate()复制此任务10次：

replicate(n = 10, mean(sample(y, 4, replace = FALSE)))
# [1] 78.75 72.25 78.00 70.25 74.25 79.25 72.25 64.25 76.50 69.00