!
! Elliptocytosis pedigree 5 from Lawler & Sandler 1954, Morton 1956
! Zmax of 3.31 at c=0.05 
!
set loc ellipto affection
set loc rhesus marker
read pedigree inline
ped5 101 x   x   m x x x
ped5 102 x   x   f x x x
ped5 201 x   x   m x x x
ped5 202 101 102 f x x x
ped5 203 x   x   f x x x
ped5 204 101 102 m x x x
ped5 301 201 202 f y 1 3
ped5 302 x   x   m x x x
ped5 303 201 202 f y 1 3
ped5 304 x   x   m x x x
ped5 305 201 202 m n 3 3
ped5 306 201 202 f y 1 3
ped5 307 x   x   m x x x
ped5 308 x   x   m x x x
ped5 309 201 202 f y 1 3
ped5 311 x   x   m x x x
ped5 310 204 203 f y 1 2
ped5 312 204 203 f n 2 3
ped5 314 204 203 m y 3 3
ped5 405 302 301 m n 3 3
ped5 407 304 303 m n 2 3
ped5 408 304 303 m y 1 1
ped5 409 304 303 m y 1 2
ped5 410 304 303 m y 1 1
ped5 412 x   x   m x x x
ped5 411 307 306 f y 1 1
ped5 413 307 306 m y 1 3
ped5 414 307 306 f n 3 3
ped5 415 308 309 m y 1 3
ped5 417 x   x   m x x x
ped5 418 308 309 f y 1 3
ped5 419 311 310 f n 2 2
ped5 504 412 411 f y 1 3
ped5 505 417 418 m y 1 1
ped5 506 417 418 m y 1 1
ped5 507 417 418 f y 1 1
;;;;
run