Looping Through Vectors in R: A Guide to Optimizing Performance and Readability