对向量列表的所有组合应用函数-R
我有一个向量列表,我需要对所有可能的组合应用一个函数,并在矩阵中表示结果,我可以使用对向量列表的所有组合应用函数-R,r,lapply,R,Lapply,我有一个向量列表,我需要对所有可能的组合应用一个函数,并在矩阵中表示结果,我可以使用for循环来实现这一点,这在r中效率很低,有人能指出其他方法吗,例如使用apply等 代码,例如 list <- list(c(1,2),c(3,4),c(5,6)) add_function <- function(x1,x2){ g1 <- x1[1]+x2[2] g2 <- x1[2]+x2[1] return(g1*g2) } list我们可以使用outer ou
for
循环来实现这一点,这在r中效率很低,有人能指出其他方法吗,例如使用apply等
代码,例如
list <- list(c(1,2),c(3,4),c(5,6))
add_function <- function(x1,x2){
g1 <- x1[1]+x2[2]
g2 <- x1[2]+x2[1]
return(g1*g2)
}
list我们可以使用outer
outer(seq_along(list), seq_along(list),
FUN= Vectorize(function(i,j) add_function(list[[i]], list[[j]])))
# [,1] [,2] [,3]
#[1,] 9 25 49
#[2,] 25 49 81
#[3,] 49 81 121
该函数计算产品(x1+rev(x2))