R/BIC_t_mixture.r

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

Defines functions BIC.t.mixture

Documented in BIC.t.mixture

BIC.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) * log(N))
}