anchor.diff:  					 (list (parse-integer (car index-num-pair))
   					       (coerce (parse-number:parse-number (cadr index-num-pair)) 'double-float))))
   				     (cdr d)))
  -			    (training-label (coerce (parse-integer (car d)) 'double-float)))
  +			    (training-label (coerce (parse-number:parse-number (car d)) 'double-float)))
   		       (dolist (index-num-pair index-num-alist)
   			 (setf (aref dv (1- (car index-num-pair))) (cadr index-num-pair)))
   		       (read-loop (cons (cons training-label dv) data-list)))))))
  
positive.code: (defparameter a9a-test (read-libsvm-data "/home/wiz/tmp/a9a.t" a9a-dim))
  
  ;; Perceptron
  (let ((learner (make-perceptron a9a-dim)))
    (train learner a9a-train)
    (test  learner a9a-test))
  
  ;; Averaged Perceptron
  (let ((learner (make-averaged-perceptron a1a-dim (length a9a-train))))
    (train learner a9a-train)
    (test  learner a9a-test))
  
  ;; Linear SVM
  (let ((learner (make-svm a9a-dim 0.01d0 0.01d0))) ; learning-rate & regularization-parameter
    (train learner a9a-train)
    (test  learner a9a-test))
  
  ;; AROW
  (let ((learner (make-arow a9a-dim 10d0))) ; gamma
    (train learner a9a-train)
    (test  learner a9a-test))
  
negative.code: (defparameter a1a-test (read-libsvm-data "/home/wiz/tmp/a1a.t" a1a-dim))
  
  ;; Perceptron
  (defparameter perceptron-learner (make-perceptron a1a-dim))
  (train perceptron-learner a1a-train)
  (test  perceptron-learner a1a-test)
  
  ;; Averaged Perceptron
  (defparameter averaged-perceptron-learner (make-averaged-perceptron a1a-dim (length a1a-train)))
  (train averaged-perceptron-learner a1a-train)
  (test  averaged-perceptron-learner a1a-test)
  
  ;; Linear SVM
  (defparameter svm-learner (make-svm a1a-dim 0.01d0 0.01d0)) ; learning-rate, regularization-parameter
  (train svm-learner a1a-train)
  (test  svm-learner a1a-test)
  
  ;; AROW
  (defparameter arow-learner (make-arow a1a-dim 10d0)) ; gamma
  (train arow-learner a1a-train)
  (test  arow-learner a1a-test)
  
  ;; SCW-I
  (defparameter scw1-learner (make-scw1 a1a-dim 0.8d0 0.1d0)) ; eta, C
  (train scw1-learner a1a-train)
  (test  scw1-learner a1a-test)
  
  ;; SCW-II
  (defparameter scw2-learner (make-scw2 a1a-dim 0.8d0 0.1d0)) ; eta, C
  (train scw2-learner a1a-train)
  (test  scw2-learner a1a-test)
  
  ;;; a9a dataset
  
  