今後追加していく。 とりいそぎ。 library(ggplot2) qplot(x = 0:1, geom = "blank") + stat_function(fun = function(x)1-(1-x)^1) + stat_function(fun = function(x)1-(1-x)^2) + stat_function(fun = function(x)1-(1-x)^5) + stat_function(fun = funct…

PRMLを読み始めた。 ということで最初の方の図をトレース。 ggplot脳なのでggplotでやる。 library(ggplot2) x <- seq(0, 1, by=0.1) t <- sin(2*pi*x) + rnorm(n=11, mean=0, sd=0.5) M0 <- fitted(lm(t~1)) M1 <- fitted(lm(t~poly(x,1))) M3 <- fitted(lm…

2.3ガウス分布 ガウス分布（正規分布）の諸性質について証明が並ぶ。 条件付きガウス分布 周辺ガウス分布 ガウス変数に対するベイズの定理 ガウス文王の最尤推定 逐次推定（Robbins-Monroアルゴリズム） ガウス分布に対するベイズ推論→平均・分散等が既知/未…

2.3ガウス分布 図2.8が描けず苦しむ。 3次元でごまかす。 あと、ディリクレ分布はあきらめた。