无限递归错误 - 如何解决？

Question

对 R 还是新手，所以尝试练习使用函数，我创建了一些（可能效率很低的）代码，我稍后会考虑修改这些代码，目前它 return 是我需要的结果，但我想要在函数本身内重复模拟 100 次。这实际上是 turn[i] which returns outcomes -1 or 1 with a specified function probability:

game = function(n,pr) {
turn = cumsum(2*rbinom(n,1,prob=pr)-1)
bankrupcy.test = which(turn == -25)
winner.test = which(turn == 50)
if(length(bankrupcy.test)==0){bankrupcy.test=c(0)}
if(length(winner.test)==0){winner.test=c(0)}
if(bankrupcy.test==0 && winner.test==0){turn[n]}else
if(bankrupcy.test[1]>winner.test[1]){-25}else{
50}
return(replicate(100,game(n)))
}

我已经尝试创建一个 for 循环，但我似乎无法正确构建它，因此我希望在我创建的函数中使用复制命令，但是我收到以下错误：

“计算嵌套太深：无限递归/选项（表达式=）？总结期间出错：求值嵌套太深：无限递归/options(expressions=)"

我哪里错了？我想要 return 一个包含上述模拟的 100 个结果的向量，其中游戏一直进行到盈利 50 或亏损 25，以先发生者为准。如果之前的结果均未发生，则采用向量的最终值。

Answer 1

试试这个：

n <- 1000
pr <- 0.50

game <- function(n, pr) {
  result = 
    replicate(100, {{turn = cumsum(2*rbinom(n, 1,prob=pr)-1)
      bankrupcy.test = which(turn == -25)
      winner.test = which(turn == 50)
      if(length(bankrupcy.test)==0){bankrupcy.test = 0}
      if(length(winner.test)==0){winner.test = 0}
      if(bankrupcy.test==0 && winner.test==0){turn[n]} else
        if(bankrupcy.test[1]>winner.test[1]) {-25} else {50}
      }})
  return(result)
}

game(n, pr)

无限递归错误 - 如何解决？

Infinite recursion error - how to solve?

r

function

recursion

replication

infinite-recursion