如何处置矩阵的零元素

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