## File Name: prior_extract_density.R
## File Version: 0.11
###########################################################
# extract density of all variables
prior_extract_density <- function( prior ){
NP <- length(prior)
dens <- rep("",NP)
names(dens) <- names(prior)
for (pp in 1:NP){
# pp <- 1
v1 <- prior[[pp]][[1]]
v2 <- prior[[pp]][[2]]
NV <- length(v2)
v_pp <- paste0( v1, "(" )
if (NV > 1){
for (vv in 2:NV){
# vv <- 2
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.