Some R code to work with Jason Wright's elastichoney data set - View it on GitHub