Comment créer une boucle for dans R?

Question

Doublons possibles:
how to start a for loop in R programming
Creating a for loop in R

HI Voici le scénario

Speed ​​dating: Vous êtes sûr que vous avez une chance de décrocher une date de 15% avec n'importe quel candidat à un événement local de datation rapide. Lors de l'événement, vous rencontrerez exactement 8 candidats. Après avoir parlé à un candidat pendant 5 minutes, il/elle vous indiquera immédiatement si elle veut sortir avec vous.

La question est ...

Grâce à la simulation, trouver vos chances que le troisième candidat que vous rencontrez est le premier à offre vous une date.

Je cherche le code R (je pense qu'il est une boucle) qui répondra à cette question

Answer 1

Ce n'est pas une boucle, mais est un peu plus R centrée sur:

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 

Désolé ce n'est pas une boucle - mais vous pouvez essayer de le faire dans une boucle en utilisant ce qui précède à titre indicatif. Nous ne pouvons pas nous faire tout le travail.

Answer 2

Voici un exemple de boucle:

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