Blogged Rcode

This is code that has appeared in a blog post I've written at some point.

See: http://somelab.net/author/jhemsley/