Displaying 1 result from an estimated 1 matches for "nseawifs".
2008 Jan 04
2
R2WinBUGS sending variables as factors
...ail.
Kind Regards
Jim Dell
Phd Candidate
Quantitative Marine Science
University of Tasmania and CSIRO Marine and Atmospheric Research
ph +62 3 6232 5182
mb +61 429 32 5182
model
{
#Centre variables
mSeaW <- mean(SeaW[])
s_dSeaW <- sd(SeaW[])
#normalise Variables
nSeaWiFS <- mSeaW/s_dSeaW
for(i in 1:N) {
log(lambda[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] &l...