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

【问题标题】：Fixing an error in a function that uses `replicate()` in R?修复在 R 中使用 `replicate()` 的函数中的错误？
【发布时间】：2018-01-16 18:51:11
【问题描述】：

我有一个名为 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)

【问题讨论】：

我认为变量存在某种词汇范围问题。

标签： r function for-loop sapply

【解决方案1】：

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

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

【讨论】：