获取dgTMatrix的行和列中的非零元素数

Question

我有一个稀疏的dgTMatrix：

require(Matrix)
mat <- as(Matrix(c(rep(0,15000),rnorm(6000)),nrow=30,ncol=700,sparse=T), "dgTMatrix")

实际上它要大得多（35000 x 750000）。

我想为每一行和每一列计算非零元素的数量。

还有什么比：

更快

apply(mat,1,nnzero)
apply(mat,2,nnzero)

为此？