Nothing
#' Check if an object is a sparse matrix
#'
#' @param x An object to test
#'
#' @export
#'
#' @importFrom methods is
#'
#' @examples
#' library(Matrix)
#' is_sparse(matrix(1:10)) # FALSE
#' is_sparse(Matrix::rsparsematrix(100, 200, .01)) # TRUE
is_sparse <- function(x) {
is(x, "sparseMatrix")
}
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.