Displaying 1 result from an estimated 1 matches for "yftcpue".
2008 Jan 04
2
R2WinBUGS sending variables as factors
...i]) <- delta0 + alpha1 * Month[i] + alpha2 * Lat[i] +
beta1 * (SeaW[i] - nSeaW)
logit(p[i]) <- gamma0
mu[i, 1] <- 0
mu[i, 2] <- lambda[i]
mu.i[i] <- mu[i, index[i]]
index[i] ~ dcat(theta[i, 1:2])
theta[i, 1] <- p[i]
theta[i, 2] <- 1 - p[i]
# mixture
YFTCPUE[i] ~ dpois(mu.i[i])
}
# recalculate the original intercept term
Intercept <- delta0 - beta1 * nSeaW
#prior on regression coefficients
beta1 ~ dnorm(0,1.0E-6)
alpha2 ~ dnorm(0,1.0E-6)
alpha1 ~ dnorm(0, 1.0E-6)
delta0 ~ dnorm(0, 1.0E-6)
gamma0 ~ dnorm(0, 1.0E-6)...