swh:1:snp:ffdd0a7d2c8ea15ad41d45b3b178f668bd942287
Tip revision: 576ff4b7a130640e672f054885dfc219c17aeb2f authored by Derek Young on 29 September 2009, 00:00:00 UTC
version 0.4.3
version 0.4.3
Tip revision: 576ff4b
multmixinit.r
multmix.init <- function(y, lambda = NULL, theta = NULL, k = 2){
n <- nrow(y)
p <- ncol(y)
if (is.null(theta)) {
theta = matrix(runif(p * k), k, p)
theta = theta/apply(theta, 1, sum)
}
else k = nrow(theta)
if (is.null(lambda)) {
lambda = runif(k)
lambda = lambda/sum(lambda)
} else k = length(lambda)
list(lambda=lambda, theta=theta, k=k)
}