meanlog <- function(fit) {marg <- fit$marginals.hyper[[1]]; inla.expectation(function(x) log(x)^1, marg)}
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.