KellyO R code for attempt at Euler 8

I'm so glad I looked at this, because I hadn't realized that Project Euler changed the problem since the last time I looked! Thirteen digits now!