anchor.diff:        0.0d0 -0.35921664558291455d0 0.0d0 -0.1d0 0.0d0 -0.1d0 0.0d0
         -0.004009999408091602d0 -0.09096123283625236d0 0.0d0 0.1d0 -0.1d0 0.0d0 0.0d0
         0.0d0 0.0d0 0.1d0 -0.1d0 0.0d0 0.0d0 0.0d0 0.0d0)
  -    :test #'equalp)
  -
  -(is (cl-ol::bias-of scw1-learner) -0.4139374405086192d0)
  +    :test #'approximately-equal)
  +
  +(is (cl-ol::bias-of scw1-learner)
  +    -0.4139374405086192d0
  +    :test #'approximately-equal)
   
   ;; Test16: test SCW-I learner
   (is (multiple-value-bind (accuracy n-correct n-total)
   	(test scw1-learner a1a)
         (list accuracy n-correct n-total))
  -    '(84.610596 1358 1605))
  +    '(84.610596 1358 1605)
  +    :test #'approximately-equal)
   
   ;; Test17,18 make and train SCW-II learner
   (defvar scw2-learner)
  
positive.code:       -1.0d0 0.0d0 0.0d0 0.0d0 1.0d0 0.0d0 0.0d0 0.0d0 -2.0d0 0.0d0 0.0d0 0.0d0
        0.0d0 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0 -1.0d0 0.0d0 0.0d0 0.0d0 0.0d0 1.0d0
        0.0d0 0.0d0 0.0d0 0.0d0 0.0d0)
      :test #'equalp)
  
  (is (cl-ol::bias-of perceptron-learner) -2.0d0)
  
  ;; Test4: test perceptron learner
  (is (multiple-value-bind (accuracy n-correct n-total)
  	(test perceptron-learner a1a)
        (list accuracy n-correct n-total))
      '(82.61682 1326 1605))
  
  ;; Test5,6 make and train averaged perceptron learner
  (defvar averaged-perceptron-learner)
  
negative.code:       -0.0013014053751485856d0 -0.00875278356258395d0 -0.008000970045530652d0 0.0d0
        0.0d0 0.0d0 0.008180596014072151d0 -0.018065112698466522d0 0.0d0 0.0d0 0.0d0
        0.0d0)
      :test #'approximately-equal)
  
  (is (cl-ol::bias-of svm-learner)
      -0.18887199483305964d0
      :test #'approximately-equal)
  
  ;; Test10: test SVM learner
  (is (multiple-value-bind (accuracy n-correct n-total)
  	(test svm-learner a1a)
        (list accuracy n-correct n-total))
      '(83.177574 1335 1605)
      :test #'approximately-equal)
  
  ;; Test11,12 make and train AROW learner
  (defvar arow-learner)
  