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!