## * Various utility functions
## ** Log Sum exp
.logsumexp_R <- function(x, ...) {
max_x <- max(x, ...)
max_x + log(sum(exp(x - max_x)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.