why is this R loop faster than the vectorized operation

Question

I am new to R and was reading about speed of vector operations vs loops in "Hands On Programming w R" and he had this example. I typed it into my pc to try them, a