我有f1.txt,f2.txt,.....,fn.txt 一共n个文本文件（n=100），我想通过循环处理每个文本文件，然后输出到f1out.txt,f2out.txt,.....,fnout.txt里去，这个循环应该怎么写？谢谢
#!/usr/bin/env Rscript
n<-100
for (i in 1:n){
    relations<-read.table("D:\\f.txt",header=T)
    write.table(metrics, file = "D:\\out.txt", sep = " ",col.names = FALSE)
}