当該URL以下にあるhtmlファイルをすべて取得する． curl -O "http://XXXXXX.com/novel/titleid01/chapter_[001-999].html"とすると001番から999番までのhtmlのファイルがすべて取得できる． ただし，htmlがない場合にもファイルができるので，ファイルサイズ…

サンプルから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])){ …