R/logmeanexp.R

#'@export
logmeanexp <- function(logw){
  ml <- max(logw)
  l <- logw - ml
  return(ml + log(mean(exp(l))))
}
pierrejacob/bettertogether documentation built on May 29, 2019, 7:37 a.m.