Nothing
#' @useDynLib pbdDMAT R_convert_dense_to_csr
convert_dense_to_csr <- function(x)
{
if (!is.double(x))
storage.mode(x) <- "double"
.Call(R_convert_dense_to_csr, x)
}
#' @useDynLib pbdDMAT R_convert_csr_to_dense
convert_csr_to_dense <- function(dim, Data, row_ptr, col_ind)
{
if (!is.double(Data))
storage.mode(Data) <- "double"
if (!is.integer(dim))
storage.mode(dim) <- "integer"
if (!is.integer(row_ptr))
storage.mode(row_ptr) <- "integer"
if (!is.integer(col_ind))
storage.mode(col_ind) <- "integer"
.Call(R_convert_csr_to_dense, dim, Data, row_ptr, col_ind)
}
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.