rnorm()によるデータ作成
getwd() setwd("作業ディレクトリ") N=1000 out <- file("rnorm_data.txt", "w") # 書き込みモードで開く for(cnt in 1:N){ x=rnorm(5) for(i in 1:length(x)){ if (i < 5) writeLines(paste(x[i]),out,sep=", ") else if(i==5) writeLines(paste(x[i]),out,sep="\n") } } close(out) # ファイルを閉じる
1行ずつ読み込み
( x <- read.table("rnorm_data.txt") ) f<-file("rnorm_data.txt","r") a<-readLines(con=f,1) a b=unlist(strsplit(a, "\\,")) # "," で分割 mode(b) c=as.numeric(b)