Description Usage Arguments Author(s) Examples
Kernel density of selected parameters from an R2jags object.
1 |
jags.out |
A jags output object from R2jags |
CI |
Specifying TRUE overlays vertical lines corresponding to 50% and 95% credible intervals, as well as posterior median. |
which.param |
A vector of the parameter indices we're interested in plotting. Calling jags.names() first can help with this. |
Matt Tyers
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 27 28 29 30 31 32 33 34 | # ------------ a sample R2jags model ----------- #
## Not run:
library(R2jags)
N <- 1000
x <- 1:N
epsilon <- rnorm(N, 0, 1)
y <- x + epsilon
cat('model {
for (i in 1:N){
y[i] ~ dnorm(y.hat[i], tau)
y.hat[i] <- a + b * x[i]
}
a ~ dnorm(0, .0001)
b ~ dnorm(0, .0001)
tau <- pow(sigma, -2)
sigma ~ dunif(0, 100)
}', file="test.jags")
test.data <- list(x=x,y=y,N=N)
test.jags.out <- jags(model.file="test.jags", data=test.data,
parameters.to.save=c("a","b","tau","sigma"), n.chains=3, n.iter=1000)
# ------------- calling jags.dens() ------------ #
par(mfrow=c(3,2))
jags.dens(test.jags.out)
# say we're only interested in parameters a and b
jags.names(test.jags.out)
par(mfrow=c(2,1))
jags.dens(test.jags.out,which.param=1:2)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.