golf

golf.hs

-- assumes hmatrix installed
module Main where
import Numeric.LinearAlgebra
import Graphics.Plot
x:: Vector Double
x =  linspace 2000 (-10.0,10.0)
randomSeed= 7331 --because its funny, also because i don't want to break in some io for a simple example

rnorm :: Int -> Double -> Double -> Vector Double
rnorm size mean sd =  flatten $ (gaussianSample randomSeed size $ constant mean 1 ) $ fromLists [[sd]]


y = scale 2 x + rnorm 2000 0.0 2.0


main = do 
         mplot [x,y]