model
{
# Standardise x's and coefficients
  for (j in 1:p) {
      b[j] <- beta[j]/sd(x[,j]) ;
      for (i in 1:N) {
          z[i,j] <- (x[i,j] -  mean(x[,j]))/sd(x[,j]) ;
      }
  }
# Model
  PI <- 3.141593;
  d <- 4;  # degrees of freedom for t
  for (i in 1:N) {
      Y[i] ~ dt(mu[i],tau,d);        # t_d errors
      mu[i] <- beta0 + beta[1]*z[i,1]+beta[2]*z[i,2]+beta[3]*z[i,3];
      ds[i] <- (d+1)*log(1+tau/d*pow((Y[i]-mu[i]),2))
               - log(tau/(d*PI)) - 2*loggam((d+1)/2)
               + 2*loggam(d/2);                            # t_d errors
  }
# Priors 
  beta0 ~  dnorm(0,.00001);
  for (j in 1:p) {
     beta[j] ~ dnorm(0,.00001); # coeffs independent
  }
  tau ~ dgamma(1.0E-3,1.0E-3);
}
