R 将用户自定义函数应用于带有其他参数的向量

我在R中创建了两个函数

orderstat <- function(pop,ord=1){
  sort(pop)[ord]
}

这两个功能分别工作。当我尝试时

run=seq(0,10,1)
sc(c(1,2,3,4,5,6,7), run, orderstat, ord=2)

我得到了错误

sc（c（1、2、3、4、5、6、7）、run、orderstat、ord=2）中的错误： 未使用的参数（ord=2）

---

我希望在我创建的函数sc中order=2时，这将应用函数orderstat。我想我需要让我的sc函数有能力接受更多的参数。像这样

sc= function(y.pop,y.val,atr,...){
  N=length(y.pop)+1
  sapply(y.val,function(y.new){
    N*(atr(c(y.new,y.pop),...)-atr(y.pop,...))
  })
}

---

我没有答案，但是你基本上不是在调用一个函数来在一个函数中操作吗？因此，对于任何函数，都必须提供参数。因此，对于orderstat，您需要（pop、ord）。这意味着在sc函数中，您仍然需要为orderstat提供正确的参数？

sc= function(y.pop,y.val,atr,...){
  N=length(y.pop)+1
  sapply(y.val,function(y.new){
    N*(atr(c(y.new,y.pop),...)-atr(y.pop,...))
  })
}