anchor.diff:                                        (make-instance 'constant-chunk
                                                        :name 'constant2)))
                                    ,(make-instance hidden-type
  -                                                 :name 'features :size 1))
  +                                                 :name 'features
  +                                                 :size features-size))
                   :clouds (if rank
                               `(:merge
                                 (:class factored-cloud
  
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) ())
  
  