## * Various utility functions
## ** Log-Sum- exp
.logsumexp_R <- function(x, ...) {
max_x <- max(x, ...)
max_x + log(sum(exp(x - max_x)))
}
## ** Sparse matrices check
##' @title is.sparse
##' @param X matrix is sparse. False otherwise.
##' @return Boolean. TRUE if X is
is.sparse <- function(X) inherits(X, "sparseMatrix")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.