直下のフォルダ内の特定のテキストを全て読み込むスクリプト

【フォルダの構成】
計算条件ごとにフォルダ分けした状態でそれぞれのフォルダにoutput1.txt~output10.txtまでが入っている状態
pathとしてフォルダ名を毎回入力する手間を省く目的で作成

for(j in 1:length(list.files())){
	filepath<-list.files()[j]
	as.character(filepath)
	for(i in 1:10){
		filename<-paste(filepath,"/output",i,".txt",sep="")
		data<-read.table(filename,skip=0,sep="\t")
		#これ以降任意のデータ処理#
	}
}