« 02.13 Hadoop / 基礎から学ぶAndroid SDK | ココ | 02.16 こっさり挑戦 »
2010年2月16日
SOMってみた
RでSOMをやってみるがてら、ずっと前に採っていた競艇のデータを使ってプロットしてみた。SOM(自己組織化マップ)は一回VBでやった(Erbe 06.03.02)ので詳しくは省略ということで。
da[,c(3,4,9,10,11)]に(順位、コース枠、スタートタイミング、進入コース、展示タイム)を入れて、da2[,]にda[,c(4,10,9,11)]を入れておく。今回のSOMじゃ順位によって偏りなんて微塵も見られなかったけど、どのデータを使うかとかレーサーごとに分けてみたりするとそれなりの結果が出てくるのかも。
foo<-som(normalize(da2),8,8)
png(filename="race_som_0.png",width=800,height=800,bg="white")
plot(foo)
dev.off()for(i in 1:6){
obj<-foo$visual[(da[,3]==i),1:2]+0.5+cbind(
rnorm(nrow(da2),0,0.13),rnorm(nrow(da2),0,0.13))
png(filename=paste("race_som_",i,".png",sep=""),
width=800,height=800,bg="white")
plot(foo)
points(obj[,1:2],col=i,pch="*")
dev.off()
}
By ただ at 22:58 カテゴリー ; プログラミングとか
« 02.13 Hadoop / 基礎から学ぶAndroid SDK |
02月の記事
| 02.16 こっさり挑戦 »
トラックバック
このエントリーのトラックバックURL:
http://pinmarch.sakura.ne.jp/mt/mt-tb.cgi/1542