> (load "ml-utilities.lisp")
> (load "cobweb.lisp")

; -----------------------------------------------------------------------------

> (load "cobweb-animal-data.lisp")

> (train-cobweb *raw-examples*)

Intializing root category with first instance. 
C-9985{AMPHIBIAN}


Incorporating instance: FISH
 Level 0: Growing leaf category

 C-9985{FISH AMPHIBIAN}
   C-9986{FISH}
   C-9987{AMPHIBIAN}


Incorporating instance: MAMMAL
 Category utility 0.444 when put with C-9986{FISH}
 Category utility 0.444 when put with C-9987{AMPHIBIAN}
 Category utility 0.741 when by itself
 Level 0: putting instance by itself

 C-9985{MAMMAL FISH AMPHIBIAN}
   C-9988{MAMMAL}
   C-9986{FISH}
   C-9987{AMPHIBIAN}


Incorporating instance: BIRD
 Category utility 0.708 when put with C-9988{MAMMAL}
 Category utility 0.458 when put with C-9986{FISH}
 Category utility 0.458 when put with C-9987{AMPHIBIAN}
 Category utility 0.594 when by itself
 Category utility 0.437 when merge C-9988{MAMMAL} and C-9986{FISH}
 Level 0: putting instance with C-9988{MAMMAL}
   Level 1: Growing leaf category

 C-9985{BIRD MAMMAL FISH AMPHIBIAN}
   C-9988{BIRD MAMMAL}
     C-9991{BIRD}
     C-9992{MAMMAL}
   C-9986{FISH}
   C-9987{AMPHIBIAN}


Incorporating instance: REPTILE
 Category utility 0.560 when put with C-9986{FISH}
 Category utility 0.560 when put with C-9987{AMPHIBIAN}
 Category utility 0.516 when put with C-9988{BIRD MAMMAL}
 Category utility 0.570 when by itself
 Level 0: putting instance by itself

 C-9985{REPTILE BIRD MAMMAL FISH AMPHIBIAN}
   C-9993{REPTILE}
   C-9988{BIRD MAMMAL}
     C-9991{BIRD}
     C-9992{MAMMAL}
   C-9986{FISH}
   C-9987{AMPHIBIAN}


Incorporating instance: FISH2
 Category utility 0.569 when put with C-9986{FISH}
 Category utility 0.486 when put with C-9987{AMPHIBIAN}
 Category utility 0.444 when put with C-9993{REPTILE}
 Category utility 0.361 when put with C-9988{BIRD MAMMAL}
 Category utility 0.456 when by itself
 Category utility 0.611 when merge C-9986{FISH} and C-9987{AMPHIBIAN}
 Level 0: Merging 2 best hosts C-9986{FISH} and C-9987{AMPHIBIAN}
   Category utility 0.444 when put with C-9986{FISH}
   Category utility 0.111 when put with C-9987{AMPHIBIAN}
   Category utility 0.296 when by itself
   Category utility 0.000 when merge C-9986{FISH} and C-9987{AMPHIBIAN}
   Level 1: putting instance with C-9986{FISH}
     Level 2: Growing leaf category

 C-9985{FISH2 REPTILE BIRD MAMMAL FISH AMPHIBIAN}
   C-9995{FISH2 FISH AMPHIBIAN}
     C-9986{FISH2 FISH}
       C-9998{FISH2}
       C-9999{FISH}
     C-9987{AMPHIBIAN}
   C-9993{REPTILE}
   C-9988{BIRD MAMMAL}
     C-9991{BIRD}
     C-9992{MAMMAL}

C-9985{FISH2 REPTILE BIRD MAMMAL FISH AMPHIBIAN}

; -----------------------------------------------------------------------------

> (load "cobweb-animal2-data.lisp")

> (train-cobweb *raw-examples*)

Intializing root category with first instance. 
C-0000{PENGUIN}


Incorporating instance: ROBIN
 Level 0: Growing leaf category

 C-0000{ROBIN PENGUIN}
   C-0001{ROBIN}
   C-0002{PENGUIN}


Incorporating instance: PANTHER
 Category utility 1.056 when put with C-0001{ROBIN}
 Category utility 0.889 when put with C-0002{PENGUIN}
 Category utility 1.481 when by itself
 Level 0: putting instance by itself

 C-0000{PANTHER ROBIN PENGUIN}
   C-0003{PANTHER}
   C-0001{ROBIN}
   C-0002{PENGUIN}


Incorporating instance: GRACKLE
 Category utility 1.208 when put with C-0001{ROBIN}
 Category utility 0.958 when put with C-0002{PENGUIN}
 Category utility 0.875 when put with C-0003{PANTHER}
 Category utility 1.031 when by itself
 Category utility 1.062 when merge C-0001{ROBIN} and C-0002{PENGUIN}
 Level 0: putting instance with C-0001{ROBIN}
   Level 1: Growing leaf category

 C-0000{GRACKLE PANTHER ROBIN PENGUIN}
   C-0003{PANTHER}
   C-0001{GRACKLE ROBIN}
     C-0006{GRACKLE}
     C-0007{ROBIN}
   C-0002{PENGUIN}


Incorporating instance: LION
 Category utility 1.293 when put with C-0003{PANTHER}
 Category utility 0.827 when put with C-0002{PENGUIN}
 Category utility 0.782 when put with C-0001{GRACKLE ROBIN}
 Category utility 1.020 when by itself
 Category utility 0.907 when merge C-0003{PANTHER} and C-0002{PENGUIN}
 Level 0: putting instance with C-0003{PANTHER}
   Level 1: Growing leaf category

 C-0000{LION GRACKLE PANTHER ROBIN PENGUIN}
   C-0003{LION PANTHER}
     C-0010{LION}
     C-0011{PANTHER}
   C-0001{GRACKLE ROBIN}
     C-0006{GRACKLE}
     C-0007{ROBIN}
   C-0002{PENGUIN}


Incorporating instance: EAGLE
 Category utility 1.185 when put with C-0001{GRACKLE ROBIN}
 Category utility 1.019 when put with C-0002{PENGUIN}
 Category utility 0.796 when put with C-0003{LION PANTHER}
 Category utility 0.972 when by itself
 Category utility 1.236 when merge C-0001{GRACKLE ROBIN} and C-0002{PENGUIN}
 Level 0: Merging 2 best hosts C-0001{GRACKLE ROBIN} and C-0002{PENGUIN}
   Category utility 0.812 when put with C-0001{GRACKLE ROBIN}
   Category utility 0.437 when put with C-0002{PENGUIN}
   Category utility 0.708 when by itself
   Category utility 0.000 when merge C-0001{GRACKLE ROBIN} and C-0002{PENGUIN}
   Category utility 0.708 when split C-0001{GRACKLE ROBIN} and put in C-0006{GRACKLE}
   Level 1: putting instance with C-0001{GRACKLE ROBIN}
     Category utility 0.333 when put with C-0006{GRACKLE}
     Category utility 0.333 when put with C-0007{ROBIN}
     Category utility 0.444 when by itself
     Level 2: putting instance by itself

 C-0000{EAGLE LION GRACKLE PANTHER ROBIN PENGUIN}
   C-0013{EAGLE GRACKLE ROBIN PENGUIN}
     C-0001{EAGLE GRACKLE ROBIN}
       C-0016{EAGLE}
       C-0006{GRACKLE}
       C-0007{ROBIN}
     C-0002{PENGUIN}
   C-0003{LION PANTHER}
     C-0010{LION}
     C-0011{PANTHER}


Incorporating instance: BEAR
 Category utility 1.284 when put with C-0003{LION PANTHER}
 Category utility 0.782 when put with C-0013{EAGLE GRACKLE ROBIN PENGUIN}
 Category utility 0.935 when by itself
 Category utility 0.000 when merge C-0003{LION PANTHER} and C-0013{EAGLE GRACKLE ROBIN PENGUIN}
 Category utility 0.935 when split C-0003{LION PANTHER} and put in C-0011{PANTHER}
 Level 0: putting instance with C-0003{LION PANTHER}
   Category utility 0.278 when put with C-0011{PANTHER}
   Category utility 0.111 when put with C-0010{LION}
   Category utility 0.296 when by itself
   Level 1: putting instance by itself

 C-0000{BEAR EAGLE LION GRACKLE PANTHER ROBIN PENGUIN}
   C-0013{EAGLE GRACKLE ROBIN PENGUIN}
     C-0001{EAGLE GRACKLE ROBIN}
       C-0016{EAGLE}
       C-0006{GRACKLE}
       C-0007{ROBIN}
     C-0002{PENGUIN}
   C-0003{BEAR LION PANTHER}
     C-0019{BEAR}
     C-0010{LION}
     C-0011{PANTHER}


Incorporating instance: DUCK
 Category utility 1.302 when put with C-0013{EAGLE GRACKLE ROBIN PENGUIN}
 Category utility 0.719 when put with C-0003{BEAR LION PANTHER}
 Category utility 1.014 when by itself
 Category utility 0.000 when merge C-0013{EAGLE GRACKLE ROBIN PENGUIN} and C-0003{BEAR LION PANTHER}
 Category utility 1.160 when split C-0013{EAGLE GRACKLE ROBIN PENGUIN} and put in C-0002{PENGUIN}
 Level 0: putting instance with C-0013{EAGLE GRACKLE ROBIN PENGUIN}
   Category utility 0.700 when put with C-0002{PENGUIN}
   Category utility 0.550 when put with C-0001{EAGLE GRACKLE ROBIN}
   Category utility 0.667 when by itself
   Category utility 0.000 when merge C-0002{PENGUIN} and C-0001{EAGLE GRACKLE ROBIN}
   Level 1: putting instance with C-0002{PENGUIN}
     Level 2: Growing leaf category

 C-0000{DUCK BEAR EAGLE LION GRACKLE PANTHER ROBIN PENGUIN}
   C-0013{DUCK EAGLE GRACKLE ROBIN PENGUIN}
     C-0001{EAGLE GRACKLE ROBIN}
       C-0016{EAGLE}
       C-0006{GRACKLE}
       C-0007{ROBIN}
     C-0002{DUCK PENGUIN}
       C-0024{DUCK}
       C-0025{PENGUIN}
   C-0003{BEAR LION PANTHER}
     C-0019{BEAR}
     C-0010{LION}
     C-0011{PANTHER}

C-0000{DUCK BEAR EAGLE LION GRACKLE PANTHER ROBIN PENGUIN}
> (dribble)

; -----------------------------------------------------------------------------

> (load "cobweb-soybean-data.lisp")

> (run-cobweb-test *raw-examples* 30 5 '(class))

Trained on 5 examples
Correct Prediction: 70.59% on 17 examples

Trained on 10 examples
Correct Prediction: 94.12% on 17 examples

Trained on 15 examples
Correct Prediction: 100.00% on 17 examples

Trained on 20 examples
Correct Prediction: 100.00% on 17 examples

Trained on 25 examples
Correct Prediction: 100.00% on 17 examples

Trained on 30 examples
Correct Prediction: 100.00% on 17 examples
NIL
> (run-cobweb-test *raw-examples* 30 5 '(class))

Trained on 5 examples
Correct Prediction: 94.12% on 17 examples

Trained on 10 examples
Correct Prediction: 100.00% on 17 examples

Trained on 15 examples
Correct Prediction: 100.00% on 17 examples

Trained on 20 examples
Correct Prediction: 100.00% on 17 examples

Trained on 25 examples
Correct Prediction: 100.00% on 17 examples

Trained on 30 examples
Correct Prediction: 100.00% on 17 examples
NIL
> (run-cobweb-test *raw-examples* 30 5 (subseq *feature-names* 0 3))

Trained on 5 examples
Correct Prediction: 76.47% on 17 examples

Trained on 10 examples
Correct Prediction: 56.86% on 17 examples

Trained on 15 examples
Correct Prediction: 76.47% on 17 examples

Trained on 20 examples
Correct Prediction: 70.59% on 17 examples

Trained on 25 examples
Correct Prediction: 68.63% on 17 examples

Trained on 30 examples
Correct Prediction: 70.59% on 17 examples
NIL
> (run-cobweb-test *raw-examples* 30 5 (subseq *feature-names* 0 5))

Trained on 5 examples
Correct Prediction: 62.35% on 17 examples

Trained on 10 examples
Correct Prediction: 70.59% on 17 examples

Trained on 15 examples
Correct Prediction: 68.24% on 17 examples

Trained on 20 examples
Correct Prediction: 68.24% on 17 examples

Trained on 25 examples
Correct Prediction: 75.29% on 17 examples

Trained on 30 examples
Correct Prediction: 68.24% on 17 examples
NIL

> (print-hierarchy soy-tree)
 C-6585{PHYT0008 RHIZ0002 RHIZ0009 DIAP0004 DIAP0009 CHAR0003 DIAP0005 RHIZ0004 DIAP0008 DIAP0001 PHYT0003 PHYT0004 CHAR0007 CHAR0005 PHYT0012 PHYT0001 RHIZ0010 CHAR0004 PHYT0015 PHYT0013 DIAP0007 RHIZ0005 DIAP0010 RHIZ0008 CHAR0001 PHYT0005 CHAR0010 RHIZ0001 DIAP0006 PHYT0006 CHAR0002 CHAR0008 PHYT0011 PHYT0009 PHYT0010 PHYT0016 PHYT0017 DIAP0003 PHYT0002 RHIZ0003 CHAR0009 CHAR0006 PHYT0014 RHIZ0006 DIAP0002 RHIZ0007 PHYT0007}
   C-6797{PHYT0008 RHIZ0002 RHIZ0009 RHIZ0004 RHIZ0010 RHIZ0005 RHIZ0008 RHIZ0001 RHIZ0003 RHIZ0006 RHIZ0007 PHYT0003 PHYT0004 PHYT0012 PHYT0001 PHYT0015 PHYT0013 PHYT0005 PHYT0006 PHYT0011 PHYT0009 PHYT0010 PHYT0016 PHYT0017 PHYT0002 PHYT0014 PHYT0007}
     C-6586{RHIZ0002 RHIZ0009 RHIZ0004 RHIZ0010 RHIZ0005 RHIZ0008 RHIZ0001 RHIZ0003 RHIZ0006 RHIZ0007}
       C-6606{RHIZ0002 RHIZ0008 RHIZ0003}
         C-6840{RHIZ0002}
         C-6688{RHIZ0008}
         C-6689{RHIZ0003}
       C-6591{RHIZ0009 RHIZ0006}
         C-6832{RHIZ0009}
         C-6833{RHIZ0006}
       C-6592{RHIZ0004 RHIZ0010 RHIZ0005 RHIZ0001 RHIZ0007}
         C-6735{RHIZ0004 RHIZ0010}
           C-6804{RHIZ0004}
           C-6805{RHIZ0010}
         C-6661{RHIZ0005 RHIZ0001}
           C-6704{RHIZ0005}
           C-6705{RHIZ0001}
         C-6662{RHIZ0007}
     C-6587{PHYT0008 PHYT0003 PHYT0004 PHYT0012 PHYT0001 PHYT0015 PHYT0013 PHYT0005 PHYT0006 PHYT0011 PHYT0009 PHYT0010 PHYT0016 PHYT0017 PHYT0002 PHYT0014 PHYT0007}
       C-6748{PHYT0003 PHYT0012 PHYT0006 PHYT0002 PHYT0009 PHYT0010 PHYT0016}
         C-6749{PHYT0012}
         C-6609{PHYT0006 PHYT0002}
           C-6650{PHYT0006}
           C-6651{PHYT0002}
         C-6619{PHYT0003 PHYT0009 PHYT0010 PHYT0016}
           C-6630{PHYT0009}
           C-6624{PHYT0003 PHYT0010}
             C-6781{PHYT0003}
             C-6782{PHYT0010}
           C-6625{PHYT0016}
       C-6741{PHYT0004 PHYT0001 PHYT0007 PHYT0005 PHYT0014 PHYT0017}
         C-6770{PHYT0004}
         C-6742{PHYT0001}
         C-6596{PHYT0007}
         C-6674{PHYT0005 PHYT0014 PHYT0017}
           C-6675{PHYT0005}
           C-6595{PHYT0014}
           C-6616{PHYT0017}
       C-6633{PHYT0008 PHYT0015 PHYT0013 PHYT0011}
         C-6847{PHYT0008}
         C-6723{PHYT0015}
         C-6715{PHYT0013}
         C-6716{PHYT0011}
   C-6588{DIAP0004 DIAP0009 DIAP0005 DIAP0008 DIAP0001 DIAP0007 DIAP0010 DIAP0006 DIAP0003 DIAP0002}
     C-6809{DIAP0004 DIAP0009 DIAP0005 DIAP0007 DIAP0002}
       C-6825{DIAP0004}
       C-6820{DIAP0009}
       C-6810{DIAP0005}
       C-6708{DIAP0007}
       C-6613{DIAP0002}
     C-6654{DIAP0001 DIAP0010 DIAP0006}
       C-6789{DIAP0001}
       C-6694{DIAP0010}
       C-6695{DIAP0006}
     C-6612{DIAP0008 DIAP0003}
       C-6794{DIAP0008}
       C-6795{DIAP0003}
   C-6597{CHAR0003 CHAR0007 CHAR0005 CHAR0004 CHAR0001 CHAR0010 CHAR0002 CHAR0008 CHAR0009 CHAR0006}
     C-6728{CHAR0004}
     C-6643{CHAR0007 CHAR0002}
       C-6762{CHAR0007}
       C-6763{CHAR0002}
     C-6602{CHAR0005 CHAR0009}
       C-6756{CHAR0005}
       C-6757{CHAR0009}
     C-6638{CHAR0003 CHAR0001 CHAR0008}
       C-6815{CHAR0003}
       C-6680{CHAR0001}
       C-6681{CHAR0008}
     C-6603{CHAR0010 CHAR0006}
       C-6667{CHAR0010}
       C-6668{CHAR0006}
NIL
> (dribble)

; -----------------------------------------------------------------------------