hagiaatcos
你这里pmap接受的第一个参数是list(a, b, c, d)，意味着第二个参数得是四个参数的函数f(a, b, c, d)，而不是一个参数f(list)，具体的可以多研究下pmap的文档，下面两种改法应该都可以
fun3 <- function(x1, x2, x3, x4){
cci <- cci(x1, x2, x3, x4)
return(cci$or)
}
fun4 <- function(...){
cci <- cci(...)
return(cci$or)
}
