R/mean2log.R

Defines functions mean2log

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