R/emg.nllik.R

In emg: Exponentially Modified Gaussian (EMG) Distribution

Defines functions emg.nllik

Documented in emg.nllik

emg.nllik <- function(x, mu, sigma, lambda)
{
  #print(paste('nllemg',length(x), mu, sigma, lambda, '=>', demg(x, mu, sigma, lambda)))
  -sum(demg(x, mu, sigma, lambda, log=TRUE))
}

Try the emg package in your browser