Nothing
test_that("matrix_to_triplet_dataframe", {
skip_if_not(utils::packageVersion("Matrix") >= as.package_version("1.3"))
expect_equal(
matrix_to_triplet_dataframe(
Matrix::sparseMatrix(i = 1:3, j = c(1, 1, 2), x = 4:6, repr = "T")
),
data.frame(i = 1:3, j = c(1, 1, 2), x = 4:6)
)
expect_equal(
matrix_to_triplet_dataframe(
Matrix::sparseMatrix(i = 1:3, j = c(1, 1, 2), x = 4:6, repr = "C")
),
data.frame(i = 1:3, j = c(1, 1, 2), x = 4:6)
)
expect_equal(
matrix_to_triplet_dataframe(
Matrix::sparseMatrix(
i = 1:3, j = c(1, 1, 2), x = 4:6, repr = "C", symmetric = TRUE
)
),
data.frame(i = 1:3, j = c(1, 1, 2), x = 4:6)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.