我有一个旨在模拟Chuck-a-lucky游戏的功能。作为根据经验显示投注期望值的一种方式，我想要一个包含1000个投注结果的向量。我想出了以下几点：
chuck.a.luck.wager.game.limit.record <- function(bankroll) {
games = 0
changes = vector()
repeat{
games <- games + 1
results <- 0
bankroll <- bankroll - 10
pred = sample(1:6, 1)
rolls = n.di.roll(3,6)
if (rolls[1] == pred) {results <- results +1}
if (rolls[2] == pred) {results <- results +2}
if (rolls[3] == pred) {results <- results +3}
minus_10 = -10
plus_10 = 10
plus_20 = 20
plus_100 = 100
if (results == 1) {bankroll <- bankroll + 20;
changes <- append(changes, plus_10)}
else if (results == 2) {bankroll <- bankroll +30;
changes <- append(changes, plus_20)}
else if (results == 3) {bankroll <- bankroll + 110;
changes <- append(changes, plus_100)}
else if (results == 0) {changes <- append(changes, minus_10)}
if (games == 1000)
{
break
}
}
return(changes)}
我对意大利面条代码表示歉意（我通常使用Python）。但是，当我创建该函数的实例时，它返回可变长度的矢量，例如930、940、950，而不是所需的1000。
有谁知道为什么会这样吗？
如果大于rolls等于1pred怎么办？然后result可以大于3，因此不会附加任何内容changes。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句