R/meanlog.R

Defines functions meanlog

meanlog <-
function(fit) {marg <- fit$marginals.hyper[[1]]; inla.expectation(function(x) log(x)^1, marg)}
markvdwiel/ShrinkBayes documentation built on March 27, 2022, 7:47 p.m.