HoltsWinters法 ff2<-ts(ff[!is.na(ff)],frequency=12,start=c(2006,11)) hol<-HoltsWinter(ff2) plot(c(ff2,predict(hol,6))) points(c(ff2),col=2)

エラスティックサーチの検索結果をCSVにかえるワンライナー ruby -r "json" -ne 'v=JSON.load($_);print v["hits"]["hits"][0]["_source"].values.map{|j| j.gsub("\n","\\n")}.join(",");' _search; 複数検索結果が返ってくる場合。 ruby -r "json" -ne 'v=…

まず、wikipediaのタイトルとハテナワードをゲット： wget http://dumps.wikimedia.org/jawiki/latest/jawiki-latest-all-titles-in-ns0.gz wget http://d.hatena.ne.jp/images/keyword/keywordlist_furigana.csv 次に，辞書用CSVファイルに変換 例えば、 ht…

Rで刈込み移動平均を計算する． zooパッケージの移動関数適応関数rollapplyを利用する． #刈込なし library(zoo) v<-rep(1,1000)+rnorm(1000) v[c(10,200,500,700)]<-10^5; x<-(rollapply(zoo(v),50,mean)); v2<-rep(NA,length(v)) v2[index(x)]<-x plot(v2)…