修复在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会抛出此错误消息，然后从具有相同参数名称的另一个函数中调用该函数。所以cmd /c "@echo off & for /l %N in (1 1 30) do git ls-tree -r -l HEAD~%N "C:\path\to\file.txt" 通常不是一个好主意。如果你只是改变乐趣 function(x = x)您的代码无问题地运行。

我不完全理解为什么会发生这种情况，但很容易避免。