read.matrix.csr.Rdreads and writes a file in sparse data format.
read.matrix.csr(file, fac = TRUE, ncol = NULL)
write.matrix.csr(x, file = "out.dat", y = NULL, fac = TRUE)If the data file includes no y variable, read.matrix.csr returns an object of class
matrix.csr, else a list with components:
object of class matrix.csr
vector of numeric values or factor levels, depending on fac.
if (FALSE) { # \dontrun{
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!")
}
} # }