#linear regression for storks
#number of chicks per pair as a fluncion of both rainfall and temperature in May
model
{
for(i in 1:N)
{
nbchicksperpair[i] ~dnorm(mu[i],tau)
mu[i]<-intercept+slope.temperature*temperature[i]+slope.rainfall*rainfall[i]
}
#priors for regression parameters
intercept ~dnorm(0,0.001)
slope.temperature ~ dnorm(0,0.001)
slope.rainfall ~ dnorm(0,0.001)
#piors for precision parameter
tau ~ dgamma(0.001,0.001)
#monitor the standard deviation
sigma<-1/sqrt(tau)
}
#data
list(N=23,nbchicksperpair=
c(2.55,1.85,2.05,2.88,3.13,2.21,2.43,2.69,2.55,2.84,2.47,2.69,2
.52,2.31,2.07,2.35,2.98,1.98,2.53,2.21,2.62,1.78,2.30),temperature=
c(15.1,13.3,15.3,13.3,14.6,15.6,13.1,13.1,15.0,11.7,15.3,14.4,14.4,12.7,
11.7,11.9,15.9,13.4,14.0,13.9,12.9,15.1,13.0),rainfall=
c(67,52,88,61,32,36,72,43,92,32,86,28,57,55,66,26,28,96,48,90,86,78,87))
#initial values
list(intercept=0,slope.temperature=0,slope.rainfall=0,tau=0.01)
运行到load data的时候,出现expected variable name,检查了多次感觉没有出错啊。
麻烦各位大虾看看