更新:现在使用 Traceplot 示例
我正在尝试适应Outhwaite 等。als 2018占用建模代码,并且有几个问题我似乎无法找到答案...
用于创建模型的代码
cat(
"model{
### Model ###
# State model
for (i in 1:nsite){
for (t in 1:nyear){
z[i,t] ~ dbern(psi[i,t])
logit(psi[i,t])<- b[t] + u[i]
}}
# Observation model
for(j in 1:nvisit) {
y[j] ~ dbern(Py[j]+0.0001)
Py[j]<- z[Site[j],Year[j]]*p[j]
logit(p[j]) <- a[Year[j]] + c*logL[j]
}
### Priors ###
# State model priors
for(t in 1:nyear){
b[t] ~ dunif(-10,10) # fixed year effect
}
for (i in 1:nsite) {
u[i] ~ dnorm(0, tau.u) # random site effect
}
tau.u <- 1/(sd.u * sd.u)
sd.u ~ dunif(0, 5) # half-uniform hyperpriors
# Observation model priors
for (t in 1:nyear) {
a[t] ~ dnorm(mu.a, tau.a) # random year effect
}
mu.a ~ dnorm(0, 0.01)
tau.a <- 1 / (sd.a * sd.a)
sd.a ~ dunif(0, 5) # half-uniform hyperpriors
c ~ dunif(-10, 10) # sampling effort effect
### Derived parameters ###
# Finite sample occupancy - proportion of occupied sites
for (t in 1:nyear) {
psi.fs[t] <- sum(z[1:nsite,t])/nsite
}
#data# nyear, nsite, nvisit, y, logL, Site, Year
}", file="bmmodel.txt"
)
注意 dbern(Py[j]+0.0001) 包含一个校正因子,因为 dbern(0) 在 JAGS 中不受支持。
我在一些工厂数据上运行模型,基本上只是尝试看看它是否像我期望的那样运行、收敛和表现。
问题 1(已回答):我对 psi.fs[t] 的数量感兴趣。但是由于模型在实际建模过程之后计算了这个量,是否可以评估 psi.fs[t] 的收敛性?
用于运行模型的 R 代码R2JAGS
jagsrespsi<-jags(data.list, inits=test.inits,
n.chains=2, n.iter=15000, n.thin=3,
DIC=T,
model.file=paste0(modeltype,"model.txt"), parameters.to.save=c("psi.fs"))
问题 2:当我 traceplot(jagsrespsi)
用来绘制轨迹图时,似乎到处都是,jagsrespsi$BUGSoutput
但我多年来 的 Rhat 是 1?gelman.diag(as.mcmc(jagsrespsi))
也表示收敛。监测 psi 也是如此!
我对这种模型行为感到非常惊讶,并且怀疑有什么问题......但不知道在哪里看