Nothing
## File Name: mnlfa_proc_inits_prior.R
## File Version: 0.02
mnlfa_proc_inits_prior <- function(theta, N)
{
TP <- nrow(theta)
w1 <- stats::dnorm( theta[,1] )
pi.k <- w1 / sum(w1)
prior <- matrix( pi.k, nrow=N, ncol=TP, byrow=TRUE)
return(prior)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.