R/prior_extract_density.R

Defines functions prior_extract_density

## 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)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.