Question

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

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

返回以下内容：

Error in rnbinom(n = 10) : argument "prob" is missing, with no default

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

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

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

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)
}

请注意它是如何检查参数是否随missing一起提供的。默认且未提供的参数仍被视为缺失。

> 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

Answer 2

你在这里尝试做的是currying，这是一种函数编程技术，用于设置函数的参数。

它在您的示例中不起作用，因为值仍然缺失：formals只是设置缺少参数时使用的默认值。 R Internals手册讨论了这种行为here。因此，当rnbinom函数调用if (!missing(mu))时（请参阅A. Webb的答案中的源代码），它将评估为FALSE并跳转到else子句，在其中评估probs 1}}在调用.External(C_rnbinom, n, size, prob)时无法找到它，抛出遗漏的错误。

一个。 Webb的方法可以在这里使用，但您也应该考虑functional::Curry()（package）中使用的方法。

示例：

    library(functional)
    rnbinom <- Curry(rnbinom, "size" = 7000, "mu" = 5)
    rnbinom(n = 100)

这适用于您可能想要进行咖喱的所有功能，并且不需要每个功能的独特包装或特殊缺失条件。

在幕后，functional::Curry正在做一些类似于A. Webb答案的包装，但是以更通用的方式：

    function (FUN, ...) 
    {
      .orig = list(...)
      function(...) do.call(FUN, c(.orig, list(...)))
    }

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

2 个答案: