Little R simulation I wrote for paper back in 2012 when all I could do was "for" loops.