m <- matrix(sample(c(NA,0:5),50, replace=TRUE, prob=c(.5,rep(.5/6,6))),
nrow=5, ncol=10, dimnames = list(users=paste('u', 1:5, sep=''),
items=paste('i', 1:10, sep='')))
## drop all NAs in the representation
sparse <- dropNA(m)
sparse
## convert back to matrix
dropNA2matrix(sparse)
## Using regular coercion to dgCMatrix. Note that regular coercion
## to dgCMatrix drops 0s and not NAs!
as(m, "dgCMatrix")Run the code above in your browser using DataLab