ベクトルへのデータ格納

sampleを使うか、先に長いベクトルを作っておくと速いですね。

##################################################
#sample関数
jan<- c(1:3)
system.time(
for(i in 1:1000){
a<- sample(jan,size=100,replace=T)
}
)

#長いベクトルを作成
b<- c(rep(0,100))
system.time(
for(i in 1:1000){
for(i in 1:100){
b[i]<- sample(jan,size=1)
}
}
)

#一個ずつ長さを増やす
c<- c()
system.time(
for(i in 1:1000){
for(i in 1:100){
c<- c(c,sample(jan,size=1))
}
}
)

#################################################