ということで、ようやく週末でしっかり作業できそうですので、早速、データの前処理。まずは必要なデータのみに絞っていきます。 > library(data.table) > dt<-fread("./data/SE.csv") #直近のデータにはタイムとかが入ってないので、削ります。 > dt<-dt[V3…

ということで、軽くデータに触っていきます。あんまり時間ないのですっげーてきとーです。 > install.packages("data.table") > library(data.table) > system.time(dt<-fread("./data/nkf_SE.csv")) ユーザ システム 経過 1.380 0.324 2.816 #最新のデータ…

公営競技の統計学的アプローチによる分析および最適投票合議システムの実装 つまるところ、お馬さんの分析ですよ。そうです、これをやりたいがためにココまで練習してきたんです。ということで、ここまで準備してきたものを使って簡単なシステムを作ってみた…