(A <- matrix(c(0,0,0,0,0,1,0,0,0,0,0,0,0,0,-34),
nrow=5, byrow=TRUE))
str(A.dgc <- as(A, "dgCMatrix"))
nonzero(A.dgc)
A2.dgc <- Matrix::cBind(A.dgc, A.dgc)
as.matrix(A2.dgc)
nonzero(A2.dgc)
Run the code above in your browser using DataLab