R/logmean.R

logmean <- function(logL) {


  my.max <- max(logL)
  my.mod.logL <- logL - my.max
  return( log(mean(exp(my.mod.logL))) + my.max)
  
  
}

Try the metaMix package in your browser

Any scripts or data that you put into this service are public.

metaMix documentation built on May 2, 2019, 6:55 a.m.