data(toyped)
x=linkdat(toyped, model=1)
lod(x, t=0)
data(largefam)
y=linkdat(largefam)
y=setModel(y, model=1, penetrances=c(.001, .9, .99))
lod(y, markers=305:310)
lod(y, markers=305:310, t="max")
Run the code above in your browser using DataLab