convert_to_sparse <- function(M) {
methods::as(methods::as(methods::as(M,
"dMatrix"),
"generalMatrix"),
"CsparseMatrix")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.