pop.prior <- prior.p.dmc(
dists = rep("tnorm", 7),
p1=c(a=2, v.f1=4, v.f2=3, z=0.5,sv=1, sz=0.3, t0=0.3),
p2=c(a=0.5,v.f1=.5,v.f2=.5,z=0.1,sv=.3,sz=0.1,t0=0.05),
lower=c(0,-5, -5, 0, 0, 0, 0),
upper=c(5, 7, 7, 1, 2, 1, 1))
plot_prior("a", p.prior=pop.prior)
plot_prior(2, p.prior=pop.prior)
Run the code above in your browser using DataLab