logspace_add <- function(logx, logy) { if(logx==-Inf) return(logy) else max(logx, logy) + log1p(exp (-abs (logx - logy))); }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.