(in-package :tsdb)

(load "ranking.lisp")

(setf *feature-flags* most)

(setf *feature-frequency-threshold* (make-counts :relevant 1))

(setf *feature-random-sample-size* nil)

(setf *feature-preference-weightings* '((0 :binary)))

(setf %redwoods-items-increment% #-:64bit 100 #+:64bit 200)

(setf %redwoods-items-percentile% 20)

(setf *maxent-relative-tolerance* 1e-4)

(setf *maxent-variance* 1e+6)

(train
 "jh.r" "jh.r.mem"
 :fcp nil :resolvedp nil :normalizep :minmax)