※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

#設定する変数
n <- 3 #ファイル数 この場合は次の3つとする"st001.txt","st002.txt","st003.txt"
gyou <- 2 #取り出したい行
retsu <-4 #取り出したい列

dt =c() #空のベクトル準備

for(i in 1:n){
	file.name <- sprintf("st%03d.txt",i) #上のファイル名の場合,要相談
	d <- read.table(file.name)
	dt <- c(dt, d[gyou,retsu])
}

mean(dt) #平均値の計算
|