如何處置矩陣的零元素

Question

我有以下矩陣。

墊

 [,1]  [,2]  [,3]  [,4] 
[1,] 0.3421638 0.6578362 0.0000000 0.0000000 
[2,] 0.0000000 0.0000000 0.3417066 0.6582934 
[3,] 0.6237054 0.3762946 0.0000000 0.0000000 
[4,] 0.0000000 0.0000000 0.3567124 0.6432876 

我想提取矩陣而不null元素。

墊

 0   1 
[1,] 0.3421638 0.6578362 
[2,] 0.3417066 0.6582934 
[3,] 0.6237054 0.3762946 
[4,] 0.3567124 0.6432876 

我怎樣做，在編碼R？

Answer 1

t(apply(Mat, 1, function(x)x[x!=0])) 
      [,1]  [,2] 
[1,] 0.3421638 0.6578362 
[2,] 0.3417066 0.6582934 
[3,] 0.6237054 0.3762946 
[4,] 0.3567124 0.6432876