data(toyped)
x=linkdat(toyped, model=1)
linkage.power(x, N=5)
power.varyPar(x,N=20, varyPar="f1", values=seq(0,1,length=11))
#X-linked example - increase N to make interesting:
data(Xped)
y = linkdat(Xped, model=4)
linkage.power(y, N=1)
Run the code above in your browser using DataLab