Rにおける複数ファイルの取込
setwd("XXX")
f<-list.files("XXX", pattern="txt$")
print(f)
j = 1
for(i in f) {
dat <-read.table(paste("XXX", i, sep = ""), header = T)
assign(paste("dat",j,sep=""),dat)
j = j + 1
}
# 50,000 x 300 x 8 のデータで読み込みに20分。XXXは適切なディレクトリ。
# 4/18改良版
f<-list.files(path="XXX", pattern="txt$")
print(f)
j = 1
list <- NULL
for(i in f) {
dat <-read.table(paste("XXX", i, sep = ""), header = T)
listj<-dat[order(-dat$YYY),]
j = j + 1
}