在新列名下的data.frame旁边添加向量

我正在试验R，并希望实现一个循环，该循环运行

1000000次

，并创建一个长度为

10

的向量，并将每个向量添加到一个数据帧中，其名称为

cycle

和它所迭代的

number

这是我当前的代码：

loser <- 100
winner <- 500
percentageWinner <- 70
runns <- 1000000
numbs <- 10
for(i in runns ) {
  randNumb <- runif(numbs, min=0, max=100)
  outcome <- ifelse(randNumb < percentageWinner, winner, loser) # true are winners and false are losers
  df <- data.frame(outcome)
  colnames(df)[which(names(df) == "outcome")] <- paste("cycle",i)

}
df 

---

loser在代码中，在for循环的每次迭代中，您通过
1
覆盖
i
（
i在代码中，在for循环的每次迭代中，您通过
1
覆盖
i
（
i在代码中，在for循环的每次迭代中，您通过
1
覆盖
i
（
i在您的代码中，在for循环的每次迭代中，您将
i
覆盖
1
（
i在
for
循环的每次迭代中，您将
i
覆盖1（
i@Pascal-Yep true）。更改了我的示例代码。在
for
循环的每次迭代中，您将
i
覆盖1（
i@Pascal-Yep-true。更改了我的示例代码。在
for
循环的每次迭代中，您将
i
覆盖1（
i@Pascal-Yep-true。更改了我的示例代码。在
for
循环的每次迭代中，您将
i
覆盖1（
i@Pascal-Yep-true）。更改了我的示例代码。
loser <- 100
winner <- 500
percentageWinner <- 70
runns <- 1000000
numbs <- 10
outcome <- matrix(NA, numbs, runns)
for(i in seq_len(runns)) {
  randNumb <- runif(numbs, min=0, max=100)
  outcome[,i] <- ifelse(randNumb < percentageWinner, winner, loser)
}
df <- data.frame(outcome)
colnames(df) <- paste0("cycle",seq_len(runns))

randNumb <- runif(numbs*runns, min=0, max=100)
outcome <- ifelse(randNumb < percentageWinner, winner, loser)
outcome <- matrix(outcome, numbs, runns)
df <- data.frame(outcome)
colnames(df) <- paste0("cycle",seq_len(runns))