別の値に基づいてデータフレームを更新する際のエラー

Question

Test3 <- function(n,d) { 

    die1 = sample(1:d, n, replace = TRUE) 
    die2 = sample(1:d, n, replace = TRUE) 
    move = die1 + die2 
    position_before_roll = move 
    position_after_roll = move 
    jail = move 


    monopoly_sim = data.frame(position_before_roll,die1,die2,move,position_after_roll,jail) 
    monopoly_sim[1,1]=0 

    i = 1 
for(i in 1:n){ 
    #Needs to be position after roll + Dice Roll (Move) 

    monopoly_sim[i,5] = monopoly_sim[i,1] + monopoly_sim[i,4] 
    monopoly_sim[i+1,1] = monopoly_sim[i,5] 
} 
i=1 
    for(i in 1:n) { 

    if (monopoly_sim[i,1] + monopoly_sim[1,4] >= 39) { 
     monopoly_sim[i,5] = 0 + monopoly_sim[i,1] + monopoly_sim[i,4] - 39 
     monopoly_sim[i+1, 1] = monopoly_sim[i,5] 
     } 

    else { 
    monopoly_sim[i,5] = monopoly_sim[i,1] + monopoly_sim[i,4] 
    monopoly_sim[i+1, 1] = monopoly_sim[i,5] 
    } 
    } 

    i=1 
    for (i in 1:n) { 
     if (monopoly_sim[i,2] == monopoly_sim[i,3] && monopoly_sim[i+1,2] == monopoly_sim[i+1,3] 
     && monopoly_sim[i+2,2] == monopoly_sim[i+2,3] && monopoly_sim[i+3,2] != monopoly_sim[i+3,3]) 
     {monopoly_sim[i+2,6] = "Yes" } 
     else {monopoly_sim[i+2,6] = "No"} 
     } 

    return(monopoly_sim) 

    } 

df = Test3(200,6) 
x1= as.data.frame(df) 

ここは私のコードです。この関数の目的は、データフレームを作成し、それに応じて値を設定することです。開始位置を0にして、ダイスロール1とダイスロール2を追加します。

私はposition_before_rollをequal（前の行のposition_after_roll）にしました。しかし、私が苦労しているところでは、私の「ボード」に39のポジションを持たせたいと思うので、39よりも大きなポジションに行くと、代わりにループします。試してこれを行うには、39より大きい値にして39を引いた後に設定します。

私の出力DFを見ても、必ずしもそうではありません。代わりに、時には39未満の値を減算して、負の数を作成します。

Answer 1

私はあなたのコードを掘り下げて、見えている限り、あなたはモノポリーゲームをシミュレートしようとしています。次回は、いくつかの文脈を提供し、コードで何をやろうとしているのか、特にこの場合は実装しようとしているルールについて説明してください。
すべての変数参照が変更され、コードが読みやすく親しみやすくなりました。私はまた、1つのサイクルを取り除き、i > 39のチェックを最初のサイクルの中に挿入しました。いくつかの変数はNAとして開始され、移動中に計算されます。それでも、これは簡単な改良であり、それを完璧にするためにはまだたくさんのことがあります。どうぞご覧ください：

monopoly_sim <- function(n,d) { 

#n <- 200 
#d <- 6 

die1 = sample(1:d, n, replace = TRUE) 
die2 = sample(1:d, n, replace = TRUE) 
move = die1 + die2 


df = data.frame(position_before_roll = NA, die1, die2, move, position_after_roll = NA, jail = "No", stringsAsFactors = F) 
df$position_before_roll[1] = 0 

for(i in 1:n){ 
    # Simulate rolling dice and moving 
    df$position_after_roll[i] = df$position_before_roll[i] + df$move[i] 

    # If position after roll greater than 38, substract 39 from it 
    if (df$position_after_roll[i] >=39) {df$position_after_roll[i] <- df$position_after_roll[i] - 39} 

    # Calculate start position on the next move 
    if (i < n) {df$position_before_roll[i+1] = df$position_after_roll[i]} 


} 

# Check if move should lead to the jail 
for (i in 1:n-3) { 
if (df$die1[i] == df$die2[i] && 
    df$die1[i+1] == df$die2[i+1] && 
    df$die1[i+2] == df$die2[i+2] && 
    df$die1[i+3] != df$die2[i+3]) 
    {df$jail[i+2] = "Yes" } 
    else {df$jail[i+2] = "No"} 
} 
return(df) 
} 


df <- monopoly_sim(200,6) 

head(df, 40) 

    position_before_roll die1 die2 move position_after_roll jail 
1      0 6 4 10     10 No 
2     10 2 4 6     16 No 
3     16 5 6 11     27 No 
4     27 4 2 6     33 No 
5     33 2 5 7     1 No 
6      1 5 3 8     9 No 
7      9 3 6 9     18 No 
8     18 3 6 9     27 No 
9     27 5 6 11     38 No 
10     38 5 6 11     10 No 
11     10 5 3 8     18 No 
12     18 6 2 8     26 No 
13     26 3 3 6     32 No 
14     32 5 1 6     38 No 
15     38 1 4 5     4 No 
16     4 3 6 9     13 No 
17     13 6 6 12     25 No 
18     25 3 5 8     33 No 
19     33 5 5 10     4 No 
20     4 1 6 7     11 No 
21     11 3 6 9     20 No 
22     20 1 4 5     25 No 
23     25 4 6 10     35 No 
24     35 4 4 8     4 No 
25     4 5 4 9     13 No 
26     13 1 1 2     15 No 
27     15 1 6 7     22 No 
28     22 6 1 7     29 No 
29     29 1 2 3     32 No 
30     32 5 3 8     1 No 
31     1 6 6 12     13 No 
32     13 6 6 12     25 No 
33     25 4 1 5     30 No 
34     30 1 6 7     37 No 
35     37 6 4 10     8 No 
36     8 3 4 7     15 No 
37     15 4 1 5     20 No 
38     20 5 1 6     26 No 
39     26 5 5 10     36 No 
40     36 3 6 9     6 No