r - 後続のリスト要素をRの新しいリストに結合する方法は?

Question

例: マトリックスのリストがあり、それらの違いを評価したいと思います。一種の 3-D diff です。だから私が持っている場合：

m1 <- matrix(1:4, ncol=2)
m2 <- matrix(5:8, ncol=2)
m3 <- matrix(9:12, ncol=2)
mat.list <- list(m1,m2,m3)

入手したい

mat.diff <- list(m2-m1, m3-m2)

私が見つけた解決策は次のとおりです。

mat.diff <- mapply(function (A,B) B-A, mat.list[-length(mat.list)], mat.list[-1])

これを行うためのより良い/組み込みの方法はありますか?

Answer 1

lapplyこれは、ループの方法または他の方法で行うことができます。

mat.diff <- lapply( tail( seq_along(mat.list), -1 ), 
                    function(i) mat.list[[i]] - mat.list[[ i-1 ]] )

Answer 2

を使用combnして、マトリックスのインデックスを生成し、各組み合わせに関数を適用できます。

       combn(1:length(l),2,FUN=function(x) 
            if(diff(x) == 1)         ## apply just for consecutive index 
                  l[[x[2]]]-l[[x[1]]], 
                  simplify = FALSE)  ## to get a list 

@Arun データを使用すると、次のようになります。

[[1]]
     [,1] [,2]
[1,]    4    4
[2,]    4    4

[[2]]
NULL

[[3]]
     [,1] [,2]
[1,]    4    4
[2,]    4    4