Example block code for R
* written as test so it is easy to run
* eventually some of this code will make its way into real code