R 中的 rnbinom 返回错误，表示缺少可选参数

Question

我尝试使用以下示例代码重置 rnbinom 函数中的默认参数:

params <- c("size" = 1, "mu" = 1)
formals(rnbinom)[names(params)] <- params
rnbinom(n = 10)

它返回以下内容:

rnbinom(n = 10) 中的错误:缺少参数“prob”，没有默认值

如果我使用此代码设置默认值:

params <- c("size" = 1, "prob" = .5)
formals(rnbinom)[names(params)] <- params
rnbinom(n = 10)

该函数工作正常。文档指定您可以设置 mu 或 prob 的大小。 rbinom 如何评估此函数，以便使用形式设置的参数顺序产生效果？

Answer 1

这是rnbinom的来源

> rnbinom
function (n, size, prob, mu) 
{
    if (!missing(mu)) {
        if (!missing(prob)) 
            stop("'prob' and 'mu' both specified")
        .External(C_rnbinom_mu, n, size, mu)
    }
    else .External(C_rnbinom, n, size, prob)
}

注意它如何检查提供的参数是否缺少。默认且未提供的参数仍算作缺失。

> f <- function(x=1) missing(x)
> f()
# [1] TRUE

你应该考虑只写一个包装器而不是搞乱形式

> rnbinom <- function(n, size=1, mu=1) stats::rnbinom(n=n,size=size,mu=mu)
> rnbinom(n=10)
 [1] 0 3 1 1 0 0 1 0 2 1