Converting Foreach Loops to Functions: A Practical Guide for Efficient Data Analysis in R