(in-package :tsdb) (load "parsing.lisp") (setf *feature-grandparenting* 3) (setf *feature-use-preterminal-types-p* t) (setf *feature-lexicalization-p* nil) (setf *feature-constituent-weight* 0) (setf *feature-active-edges-p* nil) (setf *feature-ngram-size* 0) (setf *feature-ngram-tag* :type) (setf *feature-ngram-back-off-p* t) (setf *feature-frequency-threshold* (make-counts :relevant 5)) (setf *feature-random-sample-size* nil) (setf *feature-item-enhancers* nil) (setf *feature-lm-p* 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-8) (setf *maxent-variance* 1e-4) (train "jhpstg" "jhpstg.mem" :fcp t)