norm_fact <- sum(gam)
sumLogLLH <- sumLogLLH + log(norm_fact) - log((2 * base::pi)^(m/2))
}
- llhLambda <- c(sumLogLLH/n, (dimension + m + 1) * k - 1)
+ llhLambda <- c(-sumLogLLH/n, (dimension + m + 1) * k - 1)
list(phi = phiLambda, rho = rhoLambda, pi = piLambda, llh = llhLambda)
}