## File Name: pmle_prior_extract_density.R
## File Version: 0.153
# extract density of all variables
pmle_prior_extract_density <- function( prior )
{
NP <- length(prior)
dens <- rep('',NP)
names(dens) <- names(prior)
for (pp in 1L:NP){
v1 <- prior[[pp]][[1]]
v2 <- prior[[pp]][[2]]
NV <- length(v2)
v_pp <- paste0( v1, '(' )
if (NV > 1){
for (vv in 2L:NV){
h1 <- names(v2)[vv]
if ( ! is.null(h1) ){
if ( ! is.na(h1) ){
if ( !( h1 %in% c('NA','') ) ){
v_pp <- paste0( v_pp, h1, '=' )
}
}
}
v_pp <- paste0( v_pp, v2[vv])
if (vv < NV){
v_pp <- paste0( v_pp, ',' )
}
}
}
dens[pp] <- paste0( v_pp, ')' )
}
return(dens)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.