/*
        SAMPLE DATA for pedigree analysis
    of self-fertilization crops as rice, barley, wheat ...

                 2008.1.23  home; www.d1.dion.ne.jp/~tmhk/yosida.htm
*/
/*
       INSTRUCTION FOR SELF-FERTILIZATION CROPS DATA

     First, try pedigree tree of kosihikari (not koshihikari).
     Next, try kin (coefficient of parentage) between 
     kosihikari and nagoyutaka. The value must be 0.18798828125.
     Good luck !

*/
/*
   For "kin3"
   Values of  namae1 vs. namae2 can be obtained.
 �@This part is not indispensable.
*/
namae1('kosihikari').
namae1('nagoyutaka').
namae1('honenwase').
namae1('norin21').
namae2('kosihikari').
namae2('zensekiwase').
namae2('futaba').
/*
   Cross parents data
   rr('entry', 'female p', 'male p').
*/
rr('kosihikari','norin22','norin1').
rr('norin22','norin8','norin6').
rr('norin8','aikoku','asahi').
rr('norin6','joshu','kiryoyosi').
rr('norin1','oba','rikuu132').
rr('rikuu132','aikoku','kamenoo').
rr('nagoyutaka','todorokiwase','ginmasari').
rr('ginmasari','kyotoasahi1','hokuriku14').
rr('hokuriku14','karihasinshu','sinigou').
rr('todorokiwase','shu921','honenwase').
rr('shu921','hatuminori','fujisaka5').
rr('fujisaka5','futaba','zensekiwase').
rr('zensekiwase','itadowase','kyuigo').
rr('futaba','sinju2','takaneasahi').
rr('sinju2','tasensho','aitiwaseasahi2').
rr('aitiwaseasahi2','asahi','aitihayaine1').
rr('takaneasahi','waseasahi','wasesinriki').
rr('hatuminori','norin21','norin1').
rr('norin21','asahi','norin1').
rr('honenwase','norin22','norin1').
rr('tasensho','ban68','chuben122').
rr('ban68','rikutosensho','koban33').
rr('koban33','sinriki','sinsekitori').
rr('chuben122','nakatesinriki','benkei116').
rr('aitihayaine1','kiryoyosi','manzai').
/*  end of data */