## File Name: rm_facets_pp_mle_calc_ll_theta.R
## File Version: 0.11
rm_facets_pp_mle_calc_ll_theta <- function( data, a, b, theta )
{
N <- length(theta)
I <- ncol(data)
ll0 <- rep(0,N)
for (ii in 1L:I){
probs.ii <- rm_facets_pp_mle_calc_pcm( theta=theta, a=a, b=b, ii=ii )
res <- rm_facets_pp_mle_calc_ll( probs=probs.ii, data=data, ii=ii )
ll0 <- ll0 + res
}
return(ll0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.