diff --git a/app/Main.hs b/app/Main.hs index e877a49..6427590 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -11,8 +11,8 @@ main = do let numData = 100 let mesh = [-1, -0.995 .. 1] lam_lg <- generateUniformPoints 1000 (-1.0, 1.0) - let trueValue = 0.1 - let noiseLevel = 0.121 + let trueValue = 0.2 + let noiseLevel = 0.15 noise <- generateNormalPoints numData 0 noiseLevel let d = replicate numData trueValue let noisyData = zipWith (+) d noise