![]() |
![]() |
Poisson![]() |
(125) |
![]() |
![]() |
Poisson![]() |
(126) |
![]() |
![]() |
![]() |
(127) |
![]() |
![]() |
![]() |
(128) |
![]() |
![]() |
![]() |
(129) |
model { x1 ~ dpois(lambda1) x2 ~ dpois(lambda2) lambda1 <- r1 * T1 lambda2 <- r2 * T2 r1 ~ dgamma(1, 1e-6) r2 ~ dgamma(1, 1e-6) rho <- r1/r2 }in which are also included the flat priors of
![]() |
![]() |
Gamma![]() |
(130) |
![]() |
![]() |
Gamma![]() |
(131) |
![]() |
The summary figure , drawn
automatically by R when
the command plot() is called with first argument an MCMC
chain object, shows, for each of the three variables that we have
chosen to monitor,
the `trace' and the 'density'.
The latter is a smoothed representation of the histogram
of the possible occurrences of a variable in the chain.
The former shows the `history'
of a variable during the sampling, and it is important
to understand the quality of the sampling. If the traces appear quite randomic,
as they are in this figure, there is nothing to worry. Otherwise
we have to increase the length of the chain so that it can visit
each `point' (in fact a little volume)
of the space of possibilities with relative frequencies `approximately equal'
to their probabilities (just Bernoulli theorem, nothing
to do with the `frequentist definition of probability').
Here is the relevant output of the script:
1. Empirical mean and standard deviation for each variable, plus standard error of the mean: Mean SD Naive SE Time-series SE r1 1.334 0.6671 0.002110 0.002110 r2 1.167 0.4418 0.001397 0.001397 rho 1.333 0.9444 0.002986 0.002986 2. Quantiles for each variable: 2.5% 25% 50% 75% 97.5% r1 0.3637 0.8457 1.223 1.700 2.927 r2 0.4701 0.8481 1.111 1.424 2.179 rho 0.2772 0.7048 1.102 1.684 3.770 Exact: r1 = 1.333 +- 0.667 r2 = 1.167 +- 0.441 rho = 1.333 +- 0.943As we can see, the agreement between the MCMC and the exact results, evaluated from Eqs. (