modified Survey_jags.R