2012-07-30 ■ R R サンプルから1つずつ選んで,戻して,ベクトルxに付け加えていく. rm(list=ls()) dat <- read.table("WordPool_Neko.txt") set.seed(1) x <- as.numeric(NULL) #random shuffle #x <- sample(dat[,1]) #word pool simulation for(i in 1:length(dat[,1])){ x <- append(x,sample(dat[,1],1)) }