如何使用此功能？

Question

这是函数声明（fOptions::GBSGreeks）我想要的清单适用于：

function (Selection = c("Delta", "Theta", "Vega", "Rho", "Lambda", 
    "Gamma", "CofC"), TypeFlag = c("c", "p"), S, X, Time, r, 
    b, sigma) 

我想尝试不同的Selection同时固定所有其它参数。我想：

library(fOptions) 

greeks <- lapply(Selection=list('Delta', 'Gamma', 'Vega', 'Theta', 'Rho'), 
      FUN=fOptions::GBSGreeks, TypeFlag='p', S=100.0, X=100.0, Time=1.0, r=0.05, b=0, sigma=0.05) 

但结果只是一个单一的元素：

[[1]] 
[1] -0.4661285 

Q：如何在我的例子lapply呢？

Answer 1

尝试

greeks <- lapply(list('Delta', 'Gamma', 'Vega', 'Theta', 'Rho'), 
      function(a) GBSGreeks(Selection = a, 
            TypeFlag='p', 
            S=100.0, X=100.0, 
            Time=1.0, r=0.05, b=0, sigma=0.05))