# Bayesian Methods for the Physical Science. Learning from
# Examples in Astronomy and Physics. By S. Andreon and B. Weaver.
data{
zeros <- 0
C <- 10
}
model{
lgM ~ dunif(12,18)
#Using the zero trick
phi <- -2.3025*0.4*(alpha+1)*(lgM-lgMstar)+10^(0.4*(lgM-lgMstar))
zeros ~ dpois(phi+C)  
}