Bayesian Analysis for a Fractional Population Growth Model

Box 3

model

for (i in 1:N)

movil[i]   dnorm(mu[i], tau)

mu[i] <- xo*exp(a*t[i])

xo <- 0.6

a   dgamma(0.001,0.001)

sigma2 <- 1/tau

tau   dgamma(0.001,0.001) # media =1 y var=1000

 ", file="movil.model.jags", fill=T)