[英]Apply a function over all combinations of a list of vectors -R
我有一个向量列表,我需要将一个函数应用于所有可能的组合,并在矩阵中表示结果,我可以使用for
循环中的效率很低的for
循环,任何人都可以指出任何其他方法来执行此操作,例如使用申请等?
代码,例如
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)
}
我需要将add_function应用于所有可能的组合并获得3 x 3矩阵。
我们可以使用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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.