#
# Inbred long QT Syndrome pedigree due to Brian Suarez
# Used to demonstrate algorithms, including Gibbs samplers 
# for homozygosity mapping
# by Kong 1991, Jensen 1997, 1998, 1999
#
set loc marker marker
set loc lqt aff
read pedigree inline
LQT 1  60 61 m 0 0 n 
LQT 2  62 63 f 0 0 n 
LQT 3  1  2  f 0 0 n 
LQT 4  1  2  m 0 0 n 
LQT 5  0  0  m 0 0 n 
LQT 6  0  0  f 0 0 n 
LQT 7  3  5  f 0 0 n 
LQT 8  3  5  f 0 0 n 
LQT 9  4  6  m 1 2 n 
LQT 10 4  6  m 0 0 n 
LQT 11 4  6  m 0 0 n 
LQT 12 0  0  m 0 0 n 
LQT 13 0  0  f 3 4 n 
LQT 14 0  0  m 0 0 n 
LQT 15 0  0  f 0 0 n 
LQT 16 0  0  f 0 0 n 
LQT 17 7  12 m 1 3 n 
LQT 18 7  12 m 1 2 n 
LQT 19 9  13 f 1 4 n 
LQT 20 9  13 f 1 4 n 
LQT 21 9  13 f 1 3 n 
LQT 22 8  14 m 1 4 n 
LQT 23 10 15 f 1 4 n 
LQT 24 11 16 m 1 3 n 
LQT 25 72 73 m 2 3 n 
LQT 26 70 71 f 2 4 n 
LQT 27 17 19 x 1 1 y 
LQT 28 17 19 x 1 1 y 
LQT 29 17 19 x 1 3 n 
LQT 30 17 19 x 1 3 n 
LQT 31 17 19 x 1 3 n 
LQT 32 17 19 x 1 3 n 
LQT 33 17 19 x 1 4 n 
LQT 34 17 19 x 1 4 n 
LQT 35 17 19 x 1 4 n 
LQT 36 17 19 x 3 4 n 
LQT 37 17 19 x 3 4 n 
LQT 38 17 19 x 3 4 n 
LQT 39 18 20 x 1 1 y 
LQT 40 18 20 x 2 4 n 
LQT 41 21 22 x 1 1 y 
LQT 42 21 22 x 1 3 n 
LQT 43 21 22 x 1 3 n 
LQT 44 21 22 x 1 3 n 
LQT 45 21 22 x 1 3 n 
LQT 46 21 22 x 1 4 n 
LQT 47 21 22 x 1 4 n 
LQT 48 21 22 x 1 4 n 
LQT 49 21 22 x 1 4 n 
LQT 50 21 22 x 3 4 n 
LQT 51 21 22 x 3 4 n 
LQT 52 21 22 x 3 4 n 
LQT 53 21 22 x 3 4 n 
LQT 54 25 23 m 1 3 n 
LQT 55 24 26 f 1 4 n 
LQT 56 54 55 x 1 1 y 
LQT 57 54 55 x 1 3 n 
LQT 58 54 55 x 1 4 n 
LQT 59 54 55 x 3 4 n 
LQT 60 0  0  m 0 0 n 
LQT 61 0  0  f 0 0 n 
LQT 62 0  0  m 0 0 n 
LQT 63 0  0  f 0 0 n 
LQT 64 60 61 m 0 0 n 
LQT 65 62 63 f 0 0 n 
LQT 66 0  0  m 0 0 n 
LQT 67 64 65 f 0 0 n 
LQT 68 1  2  m 0 0 n 
LQT 69 0  0  f 0 0 n 
LQT 70 68 69 m 0 0 n 
LQT 71 66 67 f 0 0 n 
LQT 72 3  5  m 0 0 n 
LQT 73 0  0  f 0 0 n 
;;;;                 
run