Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Yet more playing with the test driver

  • Loading branch information...
commit 5323a942bb000daf68149b256235f74cd02b559c 1 parent b50897b
@batterseapower authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 Algorithms/MachineLearning/Tests/Driver.hs
View
7 Algorithms/MachineLearning/Tests/Driver.hs
@@ -43,8 +43,9 @@ main = do
gen <- newStdGen
let --used_data = sinDataSet
used_data = sampleDataSet gen 10 sinDataSet
- --(model, variance_model) = regressBayesianLinearModel 1 (1 / 0.09) basisFunctions used_data
- (model, variance_model, gamma) = regressEMBayesianLinearModel 1 (1 / 0.09) basisFunctions used_data
+ --model = regressLinearModel basisFunctions used_data
+ (model, variance_model) = regressBayesianLinearModel 1 (1 / 0.09) basisFunctions used_data
+ --(model, variance_model, gamma) = regressEMBayesianLinearModel 1 (1 / 0.09) basisFunctions used_data
-- Show some model statistics
evaluate model used_data
@@ -53,4 +54,4 @@ main = do
--putStrLn $ "Gamma = " ++ show gamma
-- Show some graphical information about the model
- plot [dataSetToSampleList used_data, sampleFunction $ predict model, sampleFunction $ (sqrt . predict variance_model)]
+ plot [dataSetToSampleList used_data, sampleFunction $ predict model, sampleFunction $ (sqrt . predict variance_model)
Please sign in to comment.
Something went wrong with that request. Please try again.