for() 루프 내에서 for() 루프를 사용하는 방법 R

Question

저는 R을 처음 사용하기 때문에 대부분의 코드가 잘못되었을 가능성이 큽니다. 그러나 for() 루프 내에서 while() 루프를 사용하는 방법을 궁금 해서요. 총 2,3,7,11, 또는 12 내가 멈 추면 주사위를 여러 번 굴려서 시뮬레이션하려고합니다. 총 4,5,6,8,9 또는 10이면 초기 총계가 나올 때까지 주사위를 굴립니다. 게임을 끝내는 데 걸리는 평균 롤 수를 찾으려고합니다

count = 0 
x = NULL 
for (i in 1:10) { 
    x[i] = c(sample(1:6,1) +sample(1:6,1)) 
    if(x[i] == c(2||3||7||11||12)) { 
    if(TRUE) {count = count +1} 
    } else { while(x[i] == c(4||5||6||8||9||10)) { 
    x[i +1] = c(sample(1:6,1)+sample(1:6,1)) 
    if(x[i+1] == c(x[i]||7)) { 
     if(TRUE){count = count + x[i+1]} 
    } 
    } 
    } 
} 
print(count) 

Answer 1

로직에 몇 가지 문제가 있다고 생각합니다. 나는 당신이 당신의 코드에서 무엇을하려고하는지 잘 모르지만, 이것은 당신의 문제에 대한 설명에 대한 나의 해석입니다. 이것은 게임의 한 라운드 만 실행합니다 - 당신이 포함한다면 작동 할 것입니다. 그것은 for 루프에 있습니다 (단지 count을 리셋하지 않거나 루프의 난수 시드를 재설정하지 마십시오 - count은 총 롤 수를 줄 것이고 라운드 수로 나눠 평균을 구할 수 있습니다)

설정 : 단일 라운드 실행

count = 0 
sscore <- c(2,3,7,11,12) 
set.seed(101) 
debug = TRUE 

:

,536,

x = sample(1:6,1) +sample(1:6,1) ## initial roll 
count = count + 1 
if (x %in% sscore) { 
    ## don't need to do anything if we hit, 
    ## as the roll has already been counted 
    if (debug) cat("hit",x[i],"\n") 
} else { 
    ## initialize while loop -- try one more time 
    y = c(sample(1:6,1)+sample(1:6,1)) 
    count = count + 1 
    if (debug) cat("initial",x,"next",y,"\n") 
    while(!(y %in% c(x,7))) { 
     y = c(sample(1:6,1)+sample(1:6,1)) 
     count = count+1 
     if (debug) cat("keep trying",y,"\n") 

    } ## end while 
} ## end if-not-hit 
print(count) 

루프를 for 루프에 끼워 넣으려는 시도가 있었고 @ PawelP의 답변에 가깝게 1000 라운드 동안 평균 3.453을 얻었습니다. 내가 숙제 질문에 대답하지 않으으로이 숙제를하지 희망

PS ...

Answer 2

편집 : 나는 버그를했다 - if 부정을 제거하는 것을 잊었다. 이제 아래 내용은 문제에 대한 설명에 100 % 진실 된 것 같습니다.

이것은 내가 설명한 게임의 구현입니다. TOTAL_GAMES 많은 게임을 통해 게임을 끝내는 데 걸린 평균 롤 수를 계산합니다.

TOTAL_GAMES = 1000 
counts = rep(0, TOTAL_GAMES) 
x = NULL 
for (i in 1:TOTAL_GAMES) { 
    x_start = c(sample(1:6,1) +sample(1:6,1)) 
    counts[i] = counts[i] + 1 
    x = x_start 
    if(x %in% c(2, 3, 7, 11, 12)){ 
     next 
    } 

    repeat { 
     x = c(sample(1:6,1)+sample(1:6,1)) 
      counts[i] = counts[i] + 1 
     if(x %in% c(x_start, 7)){ 
      break 
     } 
    } 
} 

print(mean(counts)) 

이 롤의 평균은 주위 보인다 3.38

Answer 3

다음은이 질문에 대한 하나의 접근 방식 - 나는 하나의 시험을 실행하는 기능, 그리고 다양한 수를 실시하고 다른 기능을 만든 이러한 시도는 누적 평균을 반환합니다.

## Single trial 
rollDice <- function(){ 
    init <- sample(1:6,1)+sample(1:6,1) 
    rolls <- 1 
    if(init %in% c(2,3,7,11,12)){ 
    return(1) 
    } else { 
    Flag <- TRUE 
    while(Flag){ 
     roll <- sample(1:6,1)+sample(1:6,1) 
     rolls <- rolls + 1 
     if(roll %in% c(init,7)){ 
     Flag <- FALSE 
     } 
     rolls 
    } 
    } 
    return(rolls) 
} 
## Multiple trials 
simAvg <- function(nsim = 100){ 
    x <- replicate(nsim,rollDice()) 
    Reduce("+",x)/nsim 
} 
## 
## Testing 
nTrial <- seq(1,1000,25) 
Results <- sapply(nTrial, function(X){ simAvg(X) }) 
## 
## Plot over varying number of simulations 
plot(x=nTrial,y=Results,pch=20) 

@ 벤 Bolker가 지적한 것처럼, 당신은 또한 R. 누군가에 대한 새로운 이해가 ||와 구문 오류의 부부, 당신은 아마 그것을 천 번, 만 for 및 while 루프를들을 수 있었다 R에서 꽤 비효율적이므로 일반적으로 가능하면 피하기를 원합니다. 위의 rollDice() 함수에있는 while 루프의 경우, 루프가 많은 횟수로 실행될 확률이 매우 낮기 때문에 큰 문제는 아닙니다. 나는 Reduce과 replicate 함수를 사용하여 두 번째 함수에서 for 루프의 역할을 수행했습니다. 좋은 질문이지만, 일하는 것이 재미있었습니다.