将复杂函数应用于r中的更多数据集

Question

我有一个看起来像这样的函数：

filter <- function(x,lambda){
eg <- diag(length(x))
result <- solve(eg+lambda%*%crossprod(diff(eye,lag=1,d=2)),x)
return(result)
}

我想将它应用于更多数据集，但lapply不起作用：

re <-lapply(my_data, filter(x,6.5))

为什么呢？

Answer 1

re <-lapply(my_data, function(x) filter(x,6.5))