pop.mean <- c(a=1, v.f1=1, v.f2=.2, z=.5, sz=.3, sv.f1=.25, sv.f2=.23,
t0=.3)
pop.scale <- c(a=.2, v.f1=.2, v.f2=.2, z=.1, sz=.05, sv.f1=.05, sv.f2=.05,
t0=.05)
p.prior <- prior.p.dmc(
dists = rep("tnorm", 8),
p1 = pop.mean,
p2 = pop.scale,
lower = c(0,-5, -5, 0, 0, 0, 0,0),
upper = c(2, 5, 5, 1, 2, 2, 1, 1))
view(p.prior)
## mean sd lower upper log dist untrans
## a 1 0.2 0 2 1 tnorm identity
## v.f1 1 0.2 -5 5 1 tnorm identity
## v.f2 0.2 0.2 -5 5 1 tnorm identity
## z 0.5 0.1 0 1 1 tnorm identity
## sz 0.3 0.05 0 2 1 tnorm identity
## sv.f1 0.25 0.05 0 2 1 tnorm identity
## sv.f2 0.23 0.05 0 1 1 tnorm identity
## t0 0.3 0.05 0 1 1 tnorm identity
Run the code above in your browser using DataLab