A list of JAGS models use to a Bayesian analysis of OSL age of one sample. There are models for various growth curves and various distrubution to describe equivalent dose distribution around the palaeodose.

data("Model_Age")

Format

This list contains:

AgeMultiBF_EXPLIN

a list of 4 models that all consider a saturating exponential plus linear growth. These 4 models have different distribution to describe equivalent dose values around the palaeodose.

AgeMultiBF_EXP

a list of 4 models that all consider a saturating exponential growth. These 4 models have different distribution to describe equivalent dose values around the palaeodose.

AgeMultiBF_EXPZO

a list of 4 models that all consider a saturating exponential plus linear growth and fitting through the origin. These 4 models have different distribution to describe equivalent dose values around the palaeodose.

AgeMultiBF_EXPLINZO

a list of 4 models that all consider a saturating exponential growth and fitting through the origin. These 4 models have different distribution to describe equivalent dose values around the palaeodose.

Details

The different distibutions to describe equivalent dose values around the palaeodose are:

cauchy

a Cauchy distribution with postition parameter equal to the palaeodose of the sample

gaussian

a Gaussian distribution with mean equal to the palaeodose of the sample

lognormal_A

a log-normal distribution with mean or Average equal to the palaeodose of the sample

lognormal_M

a log-normal distribution with Median equal to the palaeodose of the sample

For more information we refer to the function Age_Computation, section Details.

References

Plummer, M. (2003). JAGS: A program for analysis of Bayesian graphical models using Gibbs sampling. In Proceedings of the 3rd international workshop on distributed statistical computing, volume 124, page 125. Technische Universit at Wien, Austria.

Plummer, M. (2015). JAGS Version 4.0. 0 user manual.

See also

rjags

Examples

data(Model_Age)
## Terminal print
## The JAGS model for a saturating exponential plus linear growth
## (a function of the type \code{f(x)=a(1-exp(-x/b))+cx+d})
## and a gaussian distribution of equivalent doses around the palaeodose:
writeLines(Model_Age$AgeMultiBF_EXPLIN$cauchy)
#> model {
#>     D~dnorm(A*ddot,omega)
#>     sD~dt(0,pow(0.16*D,-2),1)T(0,)#dgamma(0.01,0.01)
#>     pD<-pow(sD,-2)
#> 
#>     # Likelihood:
#>     for(bf in 1:BinPerSample){
#>       for(j in 1:J[bf]){
#>         # prior on growth function
#>         xa[(index[bf]+j)]~dnorm(6.5,1/(9.2^2))T(0,)
#>         xb[(index[bf]+j)]~dnorm(50,1/(1000^2))T(0,)
#>         xc[(index[bf]+j)]~dnorm(0.002,1/(0.01^2))T(0,)
#>         xd[(index[bf]+j)]~dnorm(0.5,1/(2.5^2))T(-xa[(index[bf]+j)],)
#>         sigmaf[(index[bf]+j)]~dexp(20)
#> 
#>         De[(index[bf]+j),1]~dt(D,pD,1)
#>         #
#>         xprecision[(index[bf]+j),1]<-1/(sigmaf[(index[bf]+j)]^2+sN[(index[bf]+j),1]^2) ##<-- ???? sN[j,1]^2 ????
#>         N[(index[bf]+j),1]~dnorm(xQ[(index[bf]+j),1],xprecision[(index[bf]+j),1])
#>         xQ[(index[bf]+j),1]<-xa[(index[bf]+j)]*(1-exp(-De[(index[bf]+j),1]/xb[(index[bf]+j)]))+xc[(index[bf]+j)]*De[(index[bf]+j),1]+xd[(index[bf]+j)]
#> 
#>         for(k in 2:K[bf]){
#>           xprecision[(index[bf]+j),k]<-1/(sigmaf[(index[bf]+j)]^2+sN[(index[bf]+j),k]^2)
#>           N[(index[bf]+j),k]~dnorm(xQ[(index[bf]+j),k],xprecision[(index[bf]+j),k])
#>           xQ[(index[bf]+j),k]<-xa[(index[bf]+j)]*(1-exp(-De[(index[bf]+j),k]/xb[(index[bf]+j)]))+xc[(index[bf]+j)]*De[(index[bf]+j),k]+xd[(index[bf]+j)]
#>           De[(index[bf]+j),k]<-IT[(index[bf]+j),(k-1)]*sDlab[bf]
#>         }
#> 
#>       }
#>     }
#>     omega<-1/(A^2*Sigma)
#>     u~dunif(0,1)
#>     A<-exp(u*log(xbound[2]/xbound[1])+log(xbound[1]))
#>   }