読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

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)