test_matrix <- simulate_sparse_matrix(10, 10)
colnames(test_matrix) <- paste0("c", 1:10)
rownames(test_matrix) <- paste0("r", 1:10)
table <- matrix_to_table(test_matrix)
matrix_new <- table_to_matrix(table)
test_matrix <- test_matrix[rownames(matrix_new), colnames(matrix_new)] |>
as_matrix()
identical(test_matrix, matrix_new)
matrix_to_table(
test_matrix,
threshold = 2
)
matrix_to_table(
test_matrix,
row_names = c("r1", "r2"),
col_names = c("c1", "c2")
)
Run the code above in your browser using DataLab