Nothing
logsumexp <- function(A, margin) {
M <- A
if (margin == 1) {
xstar <- apply(A, 1, max)
M <- M - xstar %*% matrix(1, nrow = 1, ncol = ncol(M))
A <- xstar + log(apply(exp(M), 1, sum))
} else{
xstar <- apply(A, 2, max)
M <- M - matrix(1, nrow = nrow(M), ncol = 1) %*% xstar
A <- xstar + log(apply(exp(M), 2, sum))
}
return(A)
}
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.