R/starts_uni_estimate_prepare_fitting_prior_variance.R

In STARTS: Functions for the STARTS Model

## File Name: starts_uni_estimate_prepare_fitting_prior_variance.R
## File Version: 0.06


starts_uni_estimate_prepare_fitting_prior_variance <- function( prior_var, sd0)
{
    vec <- round( c(NA, prior_var[1], prior_var[2] * sd0 ), 4 )
    vec <- as.list(vec)
    res <- list( "digamma2", vec )
    return(res)
}