logGam <- logGam - max(logGam) #adjust without changing proportions
gam <- exp(logGam)
- print(gam)
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)
# densite <- vector("double", n)
# for (r in 1:k)
# {