model{
for(i in 1:n)
{y~dt(0,p,omega)
p<-exp(-theta)
}
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)
}

# Initial value
list(phi1=0.975, mu=0, itau2=50, omega=8)

完全不会用WINBUGS  百度了下 没看到有
模型怎么设置  怎么进行迭代 我的样本数据怎么输出  最好有图文解析  急