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!")
}
Run the code above in your browser using DataLab