Displaying 1 result from an estimated 1 matches for "4diff".
Did you mean:
diff
2006 Dec 09
1
WinBUGS14 and R
...i]] + b[county[i]]*x[i]
}
for (j in 1:J){
a[j] ~ dnorm (0, .0001)
b[j] ~ dnorm (b.hat, tau.b)
}
b.hat ~ dnorm (0, .0001)
tau.b <- pow(sigma.b, -2)
sigma.b ~ dnorm (0, 100)
tau.y <- pow(sigma.y, -2)
sigma.y ~ dunif (0, 100)
}
Here is my R code used to call BUGS:
y <- abs.4diff
n <- length(abs.4diff)
x <- log.ineq
uniq.name <- unique(country_name)
J <- length(uniq.name)
country <- rep (NA, J)
for (i in 1:J){
country[country_name==uniq.name[i]] <- i
}
ineq.bugs <- list ("n", "J", "y", "country", "x&quo...