如何处理矩阵的零元素

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