pVec <- c(a=1, v=1, z=0.5, sz=0.25, sv=0.2,t0=.15)
p.prior <- prior.p.dmc(
dists = rep("tnorm", 6),
p1 = c(a=2, v=2.5, z=0.5, sz=0.3, sv=1, t0=0.3),
p2 = c(a=0.5, v=.5, z=0.1, sz=0.1, sv=.3, t0=0.05) * 5,
lower = c(0,-5, 0, 0, 0, 0),
upper = c(5, 7, 2, 2, 2, 2))
summed_log_prior(pVec, p.prior)
## -3.224406
Run the code above in your browser using DataLab