logpars2pars <- function(pars){ pars <- as.list(pars) if(!is.null(pars$sig1)) pars$sig1 <- exp(pars$sig1) if(!is.null(pars$sig2)) pars$sig2 <- exp(pars$sig2) if(!is.null(pars$tau1)) pars$tau1 <- exp(pars$tau1) if(!is.null(pars$tau2)) pars$tau2 <- exp(pars$tau2) if(!is.null(pars$a)) pars$a <- exp(pars$a) if(!is.null(pars$rho)) pars$rho <- (exp(pars$rho)-1)/(1+exp(pars$rho)) return(unlist(pars)) }