R code 효율화 (for loop -> foreach loop)

for loop을 사용하여 작성한 R코드를 foreach를 사용한 R코드로 변환하길 원합니다. 자세한 내용은 첨부된 txt 파일과 dropbox link의 데이터셋을 통해 확인하시고 질문있으면 주세요. https://www.dropbox.com/t/UrWqJnWwh3x6AW63