aleator/Simple-SVM — pull request #2 by cosmo0920 (2013-11-02 19:30:14+00:00)
Title: Examples: fix missing import and Type mismatch

When I try to build Example/SmokeTest.hs, following compilation error occurred:

```
SmokeTest.hs:9:12: Not in scope: `loadSVM'

SmokeTest.hs:20:15:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)

SmokeTest.hs:21:15:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)

SmokeTest.hs:42:17: Not in scope: `crossvalidate'

SmokeTest.hs:42:32: Not in scope: data constructor `C_SVC'

SmokeTest.hs:45:19: Not in scope: `trainSVM'

SmokeTest.hs:45:29: Not in scope: data constructor `C_SVC'

SmokeTest.hs:46:13:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)

SmokeTest.hs:47:13:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)
SmokeTest.hs:48:13:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)

SmokeTest.hs:49:13:
Not in scope: `predict'
Perhaps you meant one of these:
`product' (imported from Prelude),
`V.product' (imported from Data.Vector.Storable)
```
and then add `import AI.SVM.Base`, Type mismatch error occurred:

```
SmokeTest.hs:46:19:
Couldn't match expected type `IO t0'
with actual type `f0 (Double, a0) -> IO (String, SVM)'
In the return type of a call of `trainSVM'
Probable cause: `trainSVM' is applied to too few arguments
In a stmt of a 'do' block:
(msg, svm2) <- trainSVM (C_SVC 1) (RBF 1) trainingData
In the expression:
do { svm <- loadSVM "model";
let positiveSample, negativeSample :: V.Vector Double
positiveSample = V.fromList ...
....;
let pos, neg :: Double
pos = predict svm positiveSample
....;
print "Testing a loaded model. Expect (1,-1).";
.... }
```

Cheers!