cp = prep_car_data(shape2mat(georgia))
fit <- stan_car(log(rate.male) ~ 1,
data = georgia,
car_parts = cp,
family = auto_gaussian(),
chains = 2, iter = 700) # for speed only
print(fit)
Run the code above in your browser using DataLab