R 输赢模拟

我正试图为nfl球队本赛季的胜利做一个模拟。我创建了一个代码，该代码将根据我创建的标准创建一个长度为16的向量，其中“赢”或“输”作为元素

我正在努力让R计算向量中的获胜次数，并将其设置为多次模拟测试

下面是我用来创建向量的代码

schedule <- c(0.707, 0.594, 0.455, 0.487, 0.505, 0.327, 0.643, 0.525, 0.513,0.545, 0.500, 0.293, 0.545,  0.487, 0.465, 0.500)

random <- runif(16)

trial <- ifelse(random < schedule, "win","loss")

---

schedule如果您想运行此
运行次数（将值从10更改为您需要的任何值）并只跟踪获胜次数，这是一种方法：

set.seed（1）
计划我想你已经接近你想要的了。也许你应该试着复制下表

runs <- 5
trial <- replicate(runs,table(ifelse(runif(16) < schedule, "win","loss")),simplify = FALSE)

> trial
[[1]]

loss  win
   6   10

[[2]]

loss  win
  12    4

[[3]]

loss  win 
   6   10

[[4]]

loss  win
   5   11

[[5]]

loss  win
   6   10