# data frame
sparsity(mtcars)
# Matrix
set.seed(1234)
mat <- matrix(sample(0:1, 100, TRUE, c(0.9, 0.1)), nrow = 10)
colnames(mat) <- letters[1:10]
sparsity(mat)
# Sparse matrix
sparse_mat <- Matrix::Matrix(mat, sparse = TRUE)
sparsity(sparse_mat)
Run the code above in your browser using DataLab