R/AIC_t_mixture.r

In sp2019-antibiotics/Team-Student: T-Mixture

Defines functions AIC.t.mixture

Documented in AIC.t.mixture

AIC.t.mixture<-function(n, j, pi, mu, s, df)
{
  N = sum(n)
  K = length(pi)
  return(2*logLik.t.mixture(n, j, pi, mu, s, df) - (4*K-1) * 2)
}