## Not run:
# library(methods)
# if (require(SparseM)) {
# data(iris)
# x <- as.matrix(iris[,1:4])
# y <- iris[,5]
# xs <- as.matrix.csr(x)
# write.matrix.csr(xs, y = y, file = "iris.dat")
# xs2 <- read.matrix.csr("iris.dat")$x
# if (!all(as.matrix(xs) == as.matrix(xs2)))
# stop("Error: objects are not equal!")
# }
# ## End(Not run)
Run the code above in your browser using DataLab