R 在函数中使用多个参数

我以以下形式使用Lappy函数：

y=rnorm(10)
x1=c(1,1,1,2,2,2,3,3,3,4)
x2=c(5,5,6,6,7,7,8,8,9,9)
x3=c(7,7,8,8,9,9,10,10,11,11)

t1 <- outer(x1, unique(x1), '<=')
t2 <- outer(x2, unique(x2), '<=')
t3 <- outer(x3, unique(x3), '<=')
lapply(seq_along(unique(x1)), function(idx) t(y*t1[,idx]*t2) %*% t3)

y=rnorm（10）
x1=c（1,1,1,2,2,3,3,4）
x2=c（5,5,6,6,7,7,8,8,9,9）
x3=c（7,7,8,8,9,9,10,10,11,11）
t1我想我找到了一种解决方法，嵌套两个lappy函数

lapply(seq_along(unique(x)), function(idx){lapply(seq_along(unique(r)),
                                              function(idr) t(y*t1[,idx]*t2)%*%(t3
                                              *t4[,idr]))})

这完全解决了我的问题。如果有人有更清洁的解决方案，请张贴

lapply(seq_along(unique(x)), function(idx){lapply(seq_along(unique(r)),
                                              function(idr) t(y*t1[,idx]*t2)%*%(t3
                                              *t4[,idr]))})