如何在 R 中使用总和 function？

Question

这是我在这里的第一篇文章，我找不到我正在寻找的答案。 我目前正在学习关于数据科学概率的 edX 课程，但我被困在第 1 部分。该任务要求您模拟一系列 6 场比赛，其随机、独立的结果为输 (0) 或赢 (1)，然后使用总和 function 来确定模拟系列是否包含至少 4 场胜利。 这是我所做的：

l <- list(0:1)

n <- 6

games <- expand.grid(rep(l, n))

games <- paste (games$Var1, games$Var2, games$Var3, games$Var4, games$Var5, games$Var6)
sample (game, 1, replace = TRUE)

但我似乎无法使用总和 function 来总结 '''sample''' 的结果并检查是否有一系列至少 4 个游戏。 我一直在尝试使用sum(sample (game, 1, replace = TRUE))但似乎无法使用它。

任何光线将不胜感激！ 非常感谢！

Answer 1

这是一个模拟系列的样子

sample(c(0, 1), 6, replace = TRUE)

要计算获胜次数（即 1），您可以使用sum

sum(sample(c(0, 1), 6, replace = TRUE)) >= 4

现在您可以使用replicate生成这样的系列n次。

n <- 1000
replicate(n, sum(sample(c(0, 1), 6, replace = TRUE)) >= 4)

---

如果您必须使用games来计算，您可以使用rowSums来计算 1 的数量

sum(rowSums(games) >= 4)
#[1] 22