/* SAMPLE DATA for pedigree analysis of outcross crops (vegetatively propagated crops) as potate, strawberry, ... Applicable to animal. 2008.2.23 home; www.d1.dion.ne.jp/~tmhk/yosida.htm */ /* INSTRUCTION FOR OUTCROSS CROPS DATA First, try pedigree tree of 'myself'. * of grandpa means the value of grandpa is in database. Next, try inbreeding coefficient of child6 or between cousin and myself. The value must be 0.065625. For further calculation including child6, add kiti('child6',0.065625). into this database. Just after or before rr('child6','cousin','myself'). is desirable. Value 0.1 of 'grandpa' is assumed only for explanation. Usually it (value of last ancestor) is 0. When grandpa has no inbreeding, the value of 'child6' is 0.0625. Good luck ! */ /* ----------------------------------------- For "kin3" Values of namae1 x namae2 can be obtained. This part is not indispensable. ------------------------------------------ */ namae1('myself'). namae1('mom'). namae1('pa'). namae2('myself'). namae2('aunt'). /* ----------------------------------- parents data rr('entry', 'female p', 'male p'). kiti('entry', inbreeding coefficient value of the entry). ---------------------------------- */ rr('myself','mom','pa'). rr('mom','grandmom','grandpa'). kiti('grandpa',0.1). rr('sister','mom','pa'). rr('pa','grandmom2','grandpa2'). rr('aunt','grandmom','grandpa'). rr('cousin','aunt','uncle'). rr('half-sister','mom2','pa'). rr('child1','wife','myself'). rr('child2','sister','myself'). rr('child3','mom','myself'). rr('child4','aunt','myself'). rr('child5','grandmom','myself'). rr('child6','cousin','myself'). rr('child7','half-sister','myself'). /* end of data */