Update Complete.R

I get the right output but the submission system says it's wrong. Hmmm.