PRML3章の線形回帰を実装した。ベイズ線形回帰は未実装。 中谷さんのgihyo.jp連載記事「機械学習 はじめよう」 第11回 "線形回帰を実装してみよう"が非常に参考になりました。 http://gihyo.jp/dev/serial/01/machine-learning/0011?page=1 実装は以下の通り。 import System.Random import Numeric.LinearAlgebra import Graphics.Gnuplot.Simple import Control.Applicative -- ノイズを付与する addNoise :: (RandomGen g, Random a, Num a) => (a, a) -> [a] -> g -> [a] addNoise range xs g = zipWith (+) xs (randomRs