R/calc_moddee.R
In EMJMCMC: Evolutionary Mode Jumping Markov Chain Monte Carlo Expert Toolbox

calc_moddee <- function(mliks) {
  if (length(mliks) == 0) {
    return(0)
  }
  which(unlist(mliks) == max(unlist(mliks), na.rm = TRUE))[1]
}

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

EMJMCMC documentation built on June 22, 2024, 11:34 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the EMJMCMC package in your browser