Tengo un problema, espero puedan ayudarme. Construí una matriz diagonal en la cual tengo valores "0" y quiero eliminarlos ya que solo quiero trabajar con los que tienen datos acumulados. 

Esta es la una parte de la matriz diagonal ya que es una matriz mas grande:

```
I<-t(X)%*%X
I
   41 42 43 44 45 46 47 48 49 50
41  4  0  0  0  0  0  0  0  0  0
42  0  3  0  0  0  0  0  0  0  0
43  0  0  2  0  0  0  0  0  0  0
44  0  0  0  0  0  0  0  0  0  0
45  0  0  0  0  3  0  0  0  0  0
46  0  0  0  0  0  0  0  0  0  0
47  0  0  0  0  0  0  0  0  0  0
48  0  0  0  0  0  0  0  2  0  0
49  0  0  0  0  0  0  0  0  0  0
50  0  0  0  0  0  0  0  0  0  2
```
Busqué tutoriales y usé na.omit pero no me funciona porque lo que quiero eliminar son valores nulos (0), también intenté lo siguiente:

```
diag(I)==0
```
para identificar los valores 0, pero luego no sé como eliminar la fila y columna donde están esos valor (en realidad son muchos 0 los que quiero eliminar).