Fixed R doc example.  Really thought I had tested the previous version, though.