anchor.diff:                          (batch-size 50)
                           (max-n-stripes 10)
                           (trainer-class 'test-cd-trainer)
  -                        (learning-rate (flt 0.1)))
  +                        (learning-rate (flt 0.1))
  +                        (features-size 1)
  +                        normal-sparsity
  +                        cheating-sparsity)
     (flet ((clamp (samples rbm)
              (let ((chunk (find 'inputs (visible-chunks rbm) :key #'name)))
                (loop for sample in samples
  
positive.code:                  (or (get-error counter) #.(flt 0))
                   (n-sum-errors counter)
                   n-inputs)
          (reset-counter counter)))))
  
  (defun test-do-chunk ()
    (let ((chunk (make-instance 'sigmoid-chunk :size 5
  
negative.code: (in-package :mgl-test)
  
  (defclass test-trainer ()
    ((counter :initform (make-instance 'rmse-counter) :reader counter)
     (features-average-mean :accessor features-average-mean)))
  
  (defclass test-cd-trainer (test-trainer rbm-cd-trainer) ())
  
  