;;; Four category conjunctive soybean data in form for COBWEB (first is name for instance)
;;; This version includes the class as an extra feature that can be predicted.

(defun make-domains (levels-list)
  (mapcar #'(lambda (levels) (let ((domain nil)) 
			       (dotimes (i levels domain)
				 (setf domain (nconc domain (list i))))))
	  levels-list))

(setf *domains* (append (make-domains '(7 2 3 3 2 4 4 3 3 3 2 2 3 3 3 2 2 3 2 2
					  4 4 2 3 2 3 2 4 5 2 2 2 2 2 3))
			'((char diap phyt rhiz))))

(setf *feature-names*
      '(TIME-OF-OCCURRENCE PLANT-STAND PRECIPITATION TEMPERATURE OCCURENCE-OF-HAIL CROPPING-HISTORY
        DAMAGED-AREA SEVERITY SEED-TREATMENT SEED-GERMINATION PLANT-HEIGHT CONDITION-OF-LEAVES
	YELLOW-LEAF-SPOT-HALOS LEAF-SPOT-MARGINS LEAF-SPOT-SIZE SHOT-HOLING LEAF-MALFORMATION
	LEAF-MILDEW-GROWTH CONDITION-OF-STEM STEM-LODGING STEM-CANKERS CANKER-LESION-COLOR
	FRUITING-BODIES-ON-STEM EXTERNAL-DECAY-OF-STEM MYCELIUM-ON-STEM INTERNAL-DISCOLORATION-OF-STEM
	SCLEROTIA-INTERNAL-OR-EXTERNAL CONDITION-OF-FRUIT-PODS FRUIT-SPOTS CONDITION-OF-SEED
	SEED-MOLD-GROWTH SEED-DISCOLORATION SEED-SIZE SEED-SHRIVELING CONDITION-OF-ROOTS
	CLASS))

(setf *raw-examples*
     '((CHAR0006 (3 0 0 2 1 0 2 1 0 1 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (DIAP0009 (5 0 2 1 0 3 1 1 1 2 1 1 0 2 2 0 0 0 1 1 3 0 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (CHAR0009 (4 0 0 1 0 2 3 1 1 1 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (DIAP0006 (4 0 2 1 0 3 0 2 0 2 1 1 0 2 2 0 0 0 1 0 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (DIAP0005 (5 0 2 1 0 2 0 1 1 0 1 1 0 2 2 0 0 0 1 1 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (PHYT0005 (1 1 2 0 0 3 1 1 1 2 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (DIAP0004 (3 0 2 1 0 2 1 1 0 1 1 1 0 2 2 0 0 0 1 1 3 0 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (PHYT0017 (3 1 1 0 0 2 1 2 1 2 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (PHYT0016 (0 1 2 1 1 1 1 1 0 0 1 1 0 2 2 0 0 0 1 0 1 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (PHYT0015 (1 1 2 1 1 3 1 2 0 1 1 1 0 2 2 0 0 0 1 1 1 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (PHYT0002 (2 1 2 0 0 1 1 2 0 0 1 1 0 2 2 0 0 0 1 0 1 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (PHYT0001 (3 1 2 0 0 2 1 2 1 1 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (DIAP0010 (4 0 2 1 1 1 0 1 0 2 1 1 0 2 2 0 0 0 1 0 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (RHIZ0009 (4 0 2 0 1 0 1 2 0 2 1 1 0 2 2 0 0 0 1 1 1 1 0 1 1 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (PHYT0004 (1 1 2 1 0 0 1 2 1 1 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (DIAP0003 (3 0 2 1 0 1 0 2 1 2 1 1 0 2 2 0 0 0 1 0 3 0 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (CHAR0001 (5 0 0 2 1 3 3 1 1 2 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (CHAR0004 (3 0 0 1 0 1 2 1 0 0 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (PHYT0007 (3 1 2 0 0 1 1 2 1 0 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (CHAR0008 (5 0 0 2 0 3 2 1 0 2 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (PHYT0014 (1 1 2 0 0 0 1 2 1 0 1 1 0 2 2 0 0 0 1 0 2 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (RHIZ0004 (0 1 2 0 0 1 1 1 1 1 1 0 0 2 2 0 0 0 1 0 1 1 0 1 1 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (PHYT0012 (2 1 1 0 0 3 1 2 0 2 1 1 0 2 2 0 0 0 1 0 1 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (RHIZ0010 (0 1 2 0 0 2 1 1 1 1 1 0 0 2 2 0 0 0 1 0 1 1 0 1 0 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (RHIZ0007 (0 1 2 0 0 0 1 1 0 1 1 0 0 2 2 0 0 0 1 0 1 1 0 1 0 0 0 3 4 0 0 0 0 0 1 RHIZ))
       (PHYT0009 (0 1 1 1 0 1 1 1 0 0 1 1 0 2 2 0 0 0 1 0 1 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (CHAR0010 (6 0 0 2 1 0 2 1 0 0 1 1 0 2 2 0 0 0 1 1 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (RHIZ0003 (2 1 2 0 0 3 1 2 0 1 1 0 0 2 2 0 0 0 1 0 1 1 0 1 0 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (RHIZ0001 (0 1 2 0 0 0 1 1 1 2 1 0 0 2 2 0 0 0 1 0 1 1 0 1 0 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (CHAR0007 (6 0 0 1 1 3 3 1 1 0 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (PHYT0008 (2 1 2 1 1 3 1 2 1 2 1 1 0 2 2 0 0 0 1 0 2 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (PHYT0013 (1 1 2 1 1 2 3 1 1 1 1 1 0 2 2 0 0 0 1 0 2 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (RHIZ0005 (0 1 2 0 0 1 1 2 1 2 1 0 0 2 2 0 0 0 1 0 1 1 0 1 0 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (PHYT0006 (2 1 2 1 1 1 1 2 0 2 1 1 0 2 2 0 0 0 1 0 1 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (CHAR0003 (5 0 0 2 1 2 2 1 0 2 1 1 0 2 2 0 0 0 1 1 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (CHAR0002 (6 0 0 2 0 1 3 1 1 0 1 1 0 2 2 0 0 0 1 0 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
       (DIAP0001 (6 0 2 1 0 1 0 1 0 2 1 1 0 2 2 0 0 0 1 0 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (RHIZ0006 (3 0 2 0 1 3 1 2 0 1 1 0 0 2 2 0 0 0 1 1 1 1 0 1 1 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (DIAP0007 (6 0 2 1 0 1 1 1 0 0 1 1 0 2 2 0 0 0 1 1 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (PHYT0011 (0 1 1 1 1 2 1 2 1 0 1 1 0 2 2 0 0 0 1 1 2 2 0 1 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (RHIZ0008 (2 1 2 0 0 3 1 2 0 2 1 0 0 2 2 0 0 0 1 0 1 1 0 1 1 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (PHYT0003 (0 1 2 1 0 3 1 1 0 0 1 1 0 2 2 0 0 0 1 0 1 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (RHIZ0002 (2 1 2 0 0 2 1 1 0 2 1 0 0 2 2 0 0 0 1 0 1 1 0 1 1 0 0 3 4 0 0 0 0 0 0 RHIZ))
       (PHYT0010 (0 1 2 1 0 3 1 1 0 2 1 1 0 2 2 0 0 0 1 0 1 2 0 0 0 0 0 3 4 0 0 0 0 0 1 PHYT))
       (DIAP0008 (3 0 2 1 0 2 0 2 1 1 1 1 0 2 2 0 0 0 1 0 3 0 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (DIAP0002 (6 0 2 1 0 3 0 1 1 1 1 1 0 2 2 0 0 0 1 0 3 1 1 1 0 0 0 0 4 0 0 0 0 0 0 DIAP))
       (CHAR0005 (4 0 0 1 1 1 3 1 1 1 1 1 0 2 2 0 0 0 1 1 0 3 0 0 0 2 1 0 4 0 0 0 0 0 0 CHAR))
      ))