Description Usage Arguments Value See Also Examples
View source: R/jagsposteriors.R
Prints results for rjags
or mcmc.list
parameters, which are
specified with a regular expression, or by exact name.
1 2 |
x |
The |
params |
Character vector or a regular expression pattern. The
parameters for which results will be printed (unless |
regex |
Logical. If |
invert |
Logical. If |
probs |
A numeric vector of probabilities within range [0, 1], representing the sample quantiles to be calculated and returned. |
signif |
If supplied, all columns other than |
... |
Additional arguments accepted by |
A matrix with one row for each parameter that matches param
,
and one column for each of mean
, sd
, percentiles 2.5
,
25
, 50
, 75
, and 97.5
. In addition, if x
is an rjags
object, columns for Rhat
and neff
are
returned.
rhats
for simplified rhat output,
rearray
for recovering array structure of vector-valued
parameters.
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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | ## Data
N <- 100
temp <- runif(N)
rain <- runif(N)
wind <- runif(N)
a <- 0.13
beta.temp <- 1.3
beta.rain <- 0.86
beta.wind <- -0.44
sd <- 0.16
y <- rnorm(N, a + beta.temp*temp + beta.rain*rain + beta.wind*wind, sd)
dat <- list(N=N, temp=temp, rain=rain, wind=wind, y=y)
### jags example
library(R2jags)
## Model
M <- function() {
for (i in 1:N) {
y[i] ~ dnorm(y.hat[i], sd^-2)
y.hat[i] <- a + beta.temp*temp[i] + beta.rain*rain[i] + beta.wind*wind[i]
resid[i] <- y[i] - y.hat[i]
}
sd ~ dunif(0, 100)
a ~ dnorm(0, 0.0001)
beta.temp ~ dnorm(0, 0.0001)
beta.rain ~ dnorm(0, 0.0001)
beta.wind ~ dnorm(0, 0.0001)
}
## Fit model
jagsfit <- jags(dat, inits=NULL,
parameters.to.save=c('a', 'beta.temp', 'beta.rain',
'beta.wind', 'sd', 'resid'),
model.file=M, n.iter=10000)
## Output
# model summary
jagsfit
# Results for beta.rain only
jagsposteriors(x=jagsfit, param='beta.rain')
# Results for 'a' and 'sd' only
jagsposteriors(x=jagsfit, param=c('a', 'sd'))
jagsposteriors(x=jagsfit, param=c('a', 'sd'),
probs=c(0.01, 0.025, 0.1, 0.25, 0.5, 0.75, 0.9, 0.975))
# Results for all parameters including the string 'beta'
jagsposteriors(x=jagsfit, param='beta', regex=TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.