(in-package :tsdb)

(setf *feature-grandparenting* 4)

(setf *feature-use-preterminal-types-p* t)

(setf *feature-lexicalization-p* nil)

(setf *feature-constituent-weight* 2)

(setf *feature-active-edges-p* t)

(setf *feature-ngram-size* 4)

(setf *feature-ngram-tag* :type)

(setf *feature-ngram-back-off-p* t)

(setf *feature-item-enhancers* (list #'lm-item-enhancer))

(setf *feature-lm-p* 10)

(setf *feature-preference-weightings*
  '((0 :binary) (1 :bleu) (2 :wa) (3 :waft)))

(setf *redwoods-score-similarities* '(:bleu :wa :waft))

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

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

(setf %redwoods-items-percentile% 20)