我如何在R中使用求和函数？

Question

这是我在这里的第一篇文章，我找不到我想要的答案。我目前正在上edX课程中的“数据科学中的概率”课程，但是我被困在第1节中。该任务要求您模拟一系列6个游戏，这些游戏具有随机，独立的亏损（0）或win（1）结果，然后使用sum函数确定模拟的系列是否至少包含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)

但是我似乎无法使用sum函数对'''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

现在您可以使用n生成此类序列replicate次。

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