R/fix.old.sim.post.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

fix.old.sim.post <-
function (sim.post) 
{
    if (is.matrix(sim.post$prior)) {
        sim.post$prior <- list(prior = sim.post$prior)
        return(sim.post)
    }
    else {
        return(sim.post)
    }
}