修复在 R 中使用 `replicate()` 的函数中的错误？

Question

我有一个名为 RR 的 R 函数。我想知道如何解决以下错误：

Error in rbinom(1, size = n, prob = p) : promise already under evaluation: recursive default argument reference or earlier problems?

 RR = function(n, p, n.sim){

fun <- function(n = n, p = p){
  x <- rbinom(1, size = n, prob = p)
res <- binom.test(x, n, p)[[4]]
c(Lower = res[1], Upper = res[2])
 }

sim <- t(replicate(n.sim, fun()))

mean(sim[,1] <= p & p<= sim[,2])

}
 # Example of use:
RR(n = 15, p = .5, n.sim = 5)

Answer 1

当您为与函数参数同名的函数定义默认值，然后从另一个具有相同参数名的函数中调用该函数时，R 会抛出此错误消息。所以 function(x = x) 通常不是一个好主意。如果你只是改变乐趣 fun <- function(n2 = n, p2 = p) 您的代码运行没有问题。

我自己也不完全明白为什么会发生这种情况，但很容易避免。

修复在 R 中使用 `replicate()` 的函数中的错误？

Fixing an error in a function that uses `replicate()` in R?

for-loop

r

function

sapply