anchor.diff:        -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)
  +    :test #'approximately-equal)
  +
  +(is (cl-ol::bias-of perceptron-learner) -2.0d0 :test #'approximately-equal)
   
   ;; 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))
  +    '(82.61682 1326 1605)
  +    :test #'approximately-equal)
   
   ;; Test5,6 make and train averaged perceptron learner
   (defvar averaged-perceptron-learner)
  
positive.code:       0.0d0 -0.023947097706836798d0 -0.13155181519914805d0 -0.18035674534617752d0
        0.0d0 0.0d0 -0.06478330902974494d0 0.2470977967397556d0 -0.3045554304015999d0
        0.0d0 0.0d0 0.0d0 0.0d0)
      :test #'equalp)
  
  (is (cl-ol::bias-of scw2-learner) -0.31820098518563744d0)
  
  ;; Test19: test SCW-II learner
  (is (multiple-value-bind (accuracy n-correct n-total)
  	(test scw2-learner a1a)
        (list accuracy n-correct n-total))
      '(85.35825 1370 1605))
  
  (finalize)
  
negative.code:       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 #'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)
      :test #'approximately-equal)
  
  ;; Test17,18 make and train SCW-II learner
  (defvar scw2-learner)
  