- #model specification
- model{
- for(i in 1:N)
- {y[i]~dt(0,p[i],omega)
- p[i]<-exp(-theta[i])
- }
- theta[1]~dnorm(mu,itau2)
- for(j in 2:N)
- {theta[j]~dnorm(theta2[j],itau2)
- theta2[j]<-mu+phi*(theta[j-1]-mu)}
- phi<-2*phi1-1
- tau<-sqrt(1/itau2)
- mu~dnorm(0,0.01)
- itau2~dgamma(2.5,0.025)
- phi1~dbeta(20,1.5)
- omega~dchisqr(8)
- }
- #Data
- list(N=387,T=1,y = structure(.Data = c(0.000137324,


雷达卡




.....
京公网安备 11010802022788号







