Nothing
logmean <- function(logL) {
my.max <- max(logL)
my.mod.logL <- logL - my.max
return( log(mean(exp(my.mod.logL))) + my.max)
}
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.