R：函數作為另一個函數的參數

Question

我編寫了R函數myplot() ，它在間隔[ myplot()上繪制了一條與提供的函數FUN相對應的曲線。

myplot <- function(FUN)
{
  curve(FUN(x), xlim = c(-10, 10))
}

例如

myplot(FUN = dnorm)

給

如何向FUN添加參數？ 例如，假設我要用平均值5繪制法線密度。

遵循@akrun的評論，我可以執行以下操作：

myplot <- function(FUN, ...)
{
  args <- list(...)
  curve(FUN(x, unlist(args)), xlim = c(-10, 10))
}
myplot(dnorm, mean = 5)

但是之后

   > myplot(FUN = dnorm)
    Error in FUN(x, unlist(args)) : 
      Argument non numérique pour une fonction mathématique

另外， myplot(FUN = dnorm, mean = 5, sd = 2)不能給出預期的圖像...

Answer 1

您的原始功能運行良好（但您的原始示例有錯字）

myplot <- function(FUN, ...)
{
    curve(FUN(x, ...), xlim = c(-10, 10))
}

myplot(dnorm)
myplot(dnorm, mean = 5)
myplot(dnorm, mean = 5, sd=2)

一切似乎工作。