#The following R/OpenBUGS code runs a Bayesian Tobit-like model, with an arbitrary lower threshold
#Unlike a standard Tobit, this model outputs two separate sets of coefficients,
#the logit coefficients predict y>=Lower Threshold
#the normal coefficients predict y when y>Lower Threshold
#the second set of coefficients must be modified to reflect only the mean of the truncated portion of the model
#Like the Tobit, the coefficients of each part of the model cannot have opposite signs.