Update CRUG-2011-Nov/applyDemo.R

I hate the original seed, let's use something a little more positive.