Description Usage Arguments See Also Examples
Call coda package to summarise the model parameters in a DMC samples
1 2 |
object |
a model samples |
start |
summarise from which MCMC iteration. Default uses the first iteration. |
end |
summarise to the end of MCMC iteration. For example, set
|
... |
other arguments |
summary.dmc.list, summary.hyper
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | m1 <- model.dmc(
p.map=list(a="1",v="1",z="1",d="1",sz="1",sv="1", t0="1",st0="1"),
constants=c(st0=0,d=0),
match.map=list(M=list(s1="r1",s2="r2")),
factors=list(S=c("s1","s2")),
responses=c("r1","r2"),
type="rd")
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),
lower=c(0,-5, 0, 0, 0, 0),
upper=c(5, 7, 2, 2, 2, 2))
pVec <- c(a=1,v=1, z=0.5, sz=0.25, sv=0.2,t0=.15)
dat1 <- simulate(m1, nsim=30, p.vector=pVec)
mdi1 <- data.model.dmc(dat1, m1)
samples0 <- samples.dmc(nmc=100, p.prior=p.prior, data=mdi1)
samples0 <- run.dmc(samples0, p.migrate=.05)
gelman.diag.dmc(samples0)
class(samples0)
## [1] "dmc"
summary(samples0)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.