Permalink
Browse files

Use linear basis function family by default for driver as it's output…

… is more instructive
  • Loading branch information...
1 parent e523e4f commit 52c46a9db178f6f2ab32fadc56ec9cec37cfcede @batterseapower committed Sep 13, 2008
Showing with 3 additions and 1 deletion.
  1. +3 −1 Algorithms/MachineLearning/Tests/Driver.hs
@@ -24,7 +24,9 @@ basisFunctions
-- = gaussianBasisFamily (map rationalToDouble [-1,-0.9..1]) 0.04
basisFunctions2D :: [(Double, Double) -> Double]
-basisFunctions2D = map ((. \(x, y) -> fromList [x, y])) $ multivariateIsotropicGaussianBasisFamily [fromList [x, y] | x <- range, y <- range] 0.1
+basisFunctions2D
+ = [\(x, _) -> x, \(_, y) -> y]
+ -- = map ((. \(x, y) -> fromList [x, y])) $ multivariateIsotropicGaussianBasisFamily [fromList [x, y] | x <- range, y <- range] 0.1
where range = map rationalToDouble [-1,-0.8..1]
sampleFunction :: (Double -> a) -> [(Double, a)]

0 comments on commit 52c46a9

Please sign in to comment.