PRML二章から読む。
とりあえず手始めに図2.1をRで書いてみる。
plot(0:10, dbinom(0:10, 10, 0.25), pch=19, type="b")
ヒストグラム風に描画する方法が分からないから点と線で。
乱数で出すバージョンも描いてみる。
> x <- rbinom(1000, 10, 0.25); table(x); hist(x, breaks=c(-1,0:10))
x
0 1 2 3 4 5 6 7
59 192 283 252 152 45 12 5
>
コードの貼付け方がよくわからないからそのままコピペした。あとで直す。
