如何在 R 中创建一个 for 循环？ [复制]

Question

可能的重复：
how to start a for loop in R programming
Creating a for loop in R

你好 这是场景

快速约会：您确信自己有 15% 的机会与任何给定的人约会 当地快速约会活动的候选人。在活动中，您将遇到正好 8 位候选人。在您与候选人交谈 5 分钟后，他/她会立即表明她是否想与您约会。

问题是……

通过模拟，找出你遇到的第三个候选人是第一个 给你一个约会。

我正在寻找可以回答这个问题的 R 代码（我认为这是一个 for 循环）

Answer 1

这是一个 for 循环示例：

for (i in 1:1e7) {
  cat("I LOVE HOMEWORK!!  ")
}

Answer 2

这不是一个循环，但它更以 R 为中心：

N <- 1000 ## number of simulations to run
## Make this reproducible by seeding the random number generator
set.seed(1)
## read ?sample to see how this works
## Basically, sampling accept/not accept with 0.15/0.85 probability,
## N (1000) times for each of three Girls
df <- data.frame(Girl1 = sample(c(TRUE,FALSE), N, replace = TRUE,
                 prob = c(0.15,0.85)),
                 Girl2 = sample(c(TRUE,FALSE), N, replace = TRUE,
                 prob = c(0.15,0.85)),
                 Girl3 = sample(c(TRUE,FALSE), N, replace = TRUE,
                 prob = c(0.15,0.85)))
## Show some of the data
head(df)
## the row sums tell us how many accepts you'd get, 1, 2, or 3
outcomes <- rowSums(df)
## We want the rows with 1 acceptance **and** where Girl3 == TRUE
wanted <- with(df, which(outcomes == 1L & Girl3))
## This gives us the simulation probability
length(wanted) / N

抱歉，这不是一个循环 - 但您可以尝试使用上述指导在循环中执行此操作。不能让我们做所有的工作。