Converting Multiple For Loops to Single or Nested Apply Statements in R: A Performance Optimization Guide