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

Question

这是我第一次 post 在这里，我找不到我要找的答案。我目前正在上 edX 数据科学概率课程，但我卡在了第 1 部分。该任务要求您模拟一系列 6 场比赛，随机、独立的结果为输 (0) 或赢 (1)，然后使用求和函数确定模拟系列是否至少包含 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 like

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

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

How can I use sum function in R?

statistics

r

probability