anchor.diff:                                      :omit-label-p omit-label-p
                                       :sample-visible-p sample-visible-p)))))
   
  -
   (defun make-training-sampler (&key omit-label-p)
  -  (make-sampler (subseq *training-stories* 0 1000)
  -                :max-n 1000
  +  (make-sampler *training-stories*
  +                :max-n (length *training-stories*)
                   :omit-label-p omit-label-p))
   
   (defun make-test-sampler (&key omit-label-p)
  
positive.code:                      (setf (aref scale stripe) (flt (story-size story))))
                     (with-stripes ((stripe chunk start end))
                       (clamp-story story nodes start end)))))))
    (let ((chunk (find 'input-label (visible-chunks rbm) :key #'name)))
      (when chunk
        (let ((nodes (storage (nodes chunk))))
          (loop for sample in samples
  
negative.code:                               (t
                                 (values 0.002 0.01)))
                        #+nil
                        (when (find 'label (name cloud))
                          (setq learning-rate (* 0.1 (flt learning-rate))))
                        (make-instance 'mr-rbm-segment-trainer
                                       :learning-rate (* 0.3 (flt learning-rate))
                                       :momentum (flt 0.9)
                                       :weight-decay (flt decay)
                                       :batch-size 10))))
  